Hi, being kind of new to coding aspect of Access, i am unware what this does. Can someone please give me a quick explanation? Especially the lines aceditmenu,
Thanks
VB Code:
Option Compare Database Private Sub Command31_Click() On Error GoTo Err_Command31_Click DoCmd.GoToRecord , , acNewRec Exit_Command31_Click: Exit Sub Err_Command31_Click: MsgBox Err.Description Resume Exit_Command31_Click End Sub Private Sub Command32_Click() On Error GoTo Err_Command32_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command32_Click: Exit Sub Err_Command32_Click: MsgBox Err.Description Resume Exit_Command32_Click End Sub Private Sub Command33_Click() On Error GoTo Err_Command33_Click DoCmd.Close Exit_Command33_Click: Exit Sub Err_Command33_Click: MsgBox Err.Description Resume Exit_Command33_Click End Sub




Reply With Quote