Private Sub cmdAprint_Click()
On Error GoTo Err_cmdAprint_Click

    Dim stDocName As String

    stDocName = "frmAprint個人顧客"
    DoCmd.OpenForm stDocName

Exit_cmdAprint_Click:
    Exit Sub

Err_cmdAprint_Click:
    MsgBox Err.Description
    Resume Exit_cmdAprint_Click
    
End Sub


DoCmd.OpenForm FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs

AcFormView
acNormal　(既定)
acDesign
acFormDS
acPreview
acFormPivotChart
acFormPivotTable

WhereCondition 
SQL文のWHERE句からWEHERを除いた文字列

AcFormOpenDataModeクラス定数
acFormPropertySettings　(既定)
acFormAdd
acFormEdit
acFormReadOnly

AcWindowMode クラスの定数
acDialog
acHidden
acIcon
acWindowNormal (既定値)
 
OpenArgs
開いたフォームに文字列を記憶させておける

例：ダイアログで開きたい時
DoCmd.OpenForm "フォーム名", , , , , acDialog


　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ