I have several buttons on a form used to import data from an ODBC connection.
The code turns off warning messages, turns them back on then a msgbox opens stating "import complete". all these buttons do this when each is clicked.
My question is: Can i combine all this code into 1 button? is the below code correct?
current code for 2 buttons:
Private Sub Command12_Click()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "SM_1A_HeaderItem cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub
Private Sub Command14_Click()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "AR1_CustomerMaster Cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub
proposed code for 1 button:
Private Sub NEWBUTTON()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "SM_1A_HeaderItem cleanup"
DoCmd.OpenQuery "AR1_CustomerMaster Cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub
The code turns off warning messages, turns them back on then a msgbox opens stating "import complete". all these buttons do this when each is clicked.
My question is: Can i combine all this code into 1 button? is the below code correct?
current code for 2 buttons:
Private Sub Command12_Click()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "SM_1A_HeaderItem cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub
Private Sub Command14_Click()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "AR1_CustomerMaster Cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub
proposed code for 1 button:
Private Sub NEWBUTTON()
DoCmd.Hourglass True
'Turns off the Access warning messages
DoCmd.SetWarnings False
DoCmd.OpenQuery "SM_1A_HeaderItem cleanup"
DoCmd.OpenQuery "AR1_CustomerMaster Cleanup"
DoCmd.Hourglass False
'Turns the Access warning messages back on
DoCmd.SetWarnings True
MsgBox "Import Complete!"
End Sub