I would like to update some of my forms to have a more professional look. Currently, I have command buttons on the form to perform tasks like saving the record, printing the record and opening related forms that are passed open arguments from the parent form. I'd like to create a set of custom menus and toolbars for this form to perform the same tasks. Is that possible? If so, where is a good place to start?
This is a typical action that I'd like to perform with a toolbar command.
Dim strForm As String
Dim strMESSAGE As String
Dim strCAPTION As String
If IsNull(Me.cboLOCATEGRP) = True Or Me.cboLOCATEGRP.Value = 0 Then
strMESSAGE = "PLEASE SELECT THE SIDE OF I-35"
strCAPTION = "FORM COMPLETION NOTICE"
MsgBox strMESSAGE, vbOKOnly, strCAPTION
Me.cboLOCATEGRP.SetFocus
Exit Sub
End If
If IsNull(Me.cboLOCATETYPE) = True Or Me.cboLOCATETYPE.Value = 0 Then
strMESSAGE = "PLEASE SELECT THE TYPE OF LOCATE"
strCAPTION = "FORM COMPLETION NOTICE"
MsgBox strMESSAGE, vbOKOnly, strCAPTION
Me.cboLOCATETYPE.SetFocus
Exit Sub
End If
strForm = "frmData_Locate_Footage"
DoCmd.OpenForm strForm, acNormal, , , , , Me.txtWORKORDER.Value
Start Free Trial