A family of Microsoft relational database management systems designed for ease of use.
The reason I have a button to open the report is just to view the print set up and from there we would print it.
The code to open the report is:
Private Sub Command21_Click()
DoCmd.OpenReport "CODE Q & J CREDITS Subreport", acViewPreview
End Sub
The code for my search button on the form is:
Private Sub Command27_Click()
If IsNull(Text25) = False Then
Me.Recordset.FindFirst "[CustNo]=" & Text25
Me!Text25 = Null
If Me.Recordset.NoMatch Then
MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"
Me!Text01 = Null
End If
End If
End Sub