Komut düğmenize şunları ekleyiniz
Kod:
Private Sub ButonAdı_Click()
On Error GoTo Err_ButonAdı_Click
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
stDocName = "AçılacakFormunuzunAdı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ButonAdı_Click:
Exit Sub
Err_ButonAdı_Click:
MsgBox Err.Description
Resume Exit_ButonAdı_Click
End Sub