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
WhereCondition
SQL文のWHERE句からWEHERを除いた文字列
AcFormOpenDataModeクラス定数
acFormPropertySettings (既定)
acFormAdd
acFormEdit
acFormReadOnly
開いたフォームに文字列を記憶させておける
例:ダイアログで開きたい時
DoCmd.OpenForm "フォーム名", , , , , acDialog
↓ facebook のフォローで応援してください。お願いします。

Microsoft Office ブログランキングへ
AcWindowMode クラスの定数
acDialog
acHidden
acIcon
acWindowNormal (既定値)
OpenArgs開いたフォームに文字列を記憶させておける
例:ダイアログで開きたい時
DoCmd.OpenForm "フォーム名", , , , , acDialog
↓ facebook のフォローで応援してください。お願いします。

Microsoft Office ブログランキングへ