D
Don
This is the code in my button on a form that opens a pop-up form.
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me.PrintDate) And IsNull(Me.Date) Then
MsgBox "You did not enter a Work Order. Enter a Work Order, including
the Date, then press the Submit And Print Order Button."
Cancel = True
Date.SetFocus
Else
Me.Refresh
stDocName = "ADAfrm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
What does stLinkCriteria do? ADAfrm is a pop-up form with a yes and no
button that prints different reports.
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me.PrintDate) And IsNull(Me.Date) Then
MsgBox "You did not enter a Work Order. Enter a Work Order, including
the Date, then press the Submit And Print Order Button."
Cancel = True
Date.SetFocus
Else
Me.Refresh
stDocName = "ADAfrm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
What does stLinkCriteria do? ADAfrm is a pop-up form with a yes and no
button that prints different reports.