Kod:
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
DoCmd.Close
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Komut7_Click:
Exit Sub
Err_Komut7_Click:
MsgBox Err.Description
Resume Exit_Komut7_Click
End Sub