JJKey > 02-06-17, 02:22 PM
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "report_name", acViewPreview, , strWhere
End If
tranthanhan1962 > 02-06-17, 05:56 PM
JJKey > 04-06-17, 01:49 PM
tranthanhan1962 > 04-06-17, 02:41 PM
JJKey > 04-06-17, 05:38 PM
JJKey > 08-06-17, 02:16 PM
tranthanhan1962 > 08-06-17, 03:13 PM
JJKey > 09-06-17, 10:04 AM
tranthanhan1962 > 09-06-17, 11:15 AM
JJKey > 09-06-17, 12:08 PM