Private Sub btn1_Click()
    DoCmd.Close acForm, Screen.ActiveForm.Name
End Sub

Private Sub btn1_Click()
    DoCmd.Close acForm, Me.Name
End Sub

ObjectType 省略可能
acDataAccessPage 
acDefault (既定値) 
acDiagram 
acForm 
acFunction 
acMacro 
acModule 
acQuery 
acReport 
acServerView 
acStoredProcedure 
acTable

Save 省略可能
acSaveNo 
acSavePrompt default
acSaveYes

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



Microsoft Office ブログランキングへ