D
David Brown
Is there any reason the following code would not work on an Access 2000
machine?
Thanks for the help,
David Brown
Private Sub cmdViewVisits_Click()
On Error Resume Next
stDocName = "rpt_PatientVisits"
stWhere = "visit_PatKey =" & Me.txtKey
If Me.txtKey = "" Then
MsgBox "Please select a Site and Patient Name", , "Patient Info"
Exit Sub
End If
DoCmd.OpenReport stDocName, acPreview, , stWhere
If Err = 2501 Then Err.Clear
End Sub
machine?
Thanks for the help,
David Brown
Private Sub cmdViewVisits_Click()
On Error Resume Next
stDocName = "rpt_PatientVisits"
stWhere = "visit_PatKey =" & Me.txtKey
If Me.txtKey = "" Then
MsgBox "Please select a Site and Patient Name", , "Patient Info"
Exit Sub
End If
DoCmd.OpenReport stDocName, acPreview, , stWhere
If Err = 2501 Then Err.Clear
End Sub