N
Newf via AccessMonster.com
Good day! I am having a little trouble with my Print function. I am looking
to Print the Current Record that is selected on the form. I have this code
and it is showing all records to Print. Can anyone see the problem???
Dim strWHERE As String
If Me.Dirty Then 'Save any changes.
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "SELECT A RECORD TO PRINT"
Else
strWHERE = "[tblPersonal.Id_Personal] = " & Me.[frm_IdPersonal]
DoCmd.OpenReport "rptTEST", acViewPreview, strWHERE
End If
Thanks in advance
Newf
to Print the Current Record that is selected on the form. I have this code
and it is showing all records to Print. Can anyone see the problem???
Dim strWHERE As String
If Me.Dirty Then 'Save any changes.
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "SELECT A RECORD TO PRINT"
Else
strWHERE = "[tblPersonal.Id_Personal] = " & Me.[frm_IdPersonal]
DoCmd.OpenReport "rptTEST", acViewPreview, strWHERE
End If
Thanks in advance
Newf