Grant Geddes
Sutton Group S.W.
http://www.ggeddes.com
ged...@ggeddes.com
Dim stDocName As String
Dim stCriteria As String
stDocName = "rptPeople"
stCriteria = "ID=" & Me!ID
DoCmd.OpenReport stDocName, acPreview
Reports(stDocName).Filter = stCriteria
Reports(stDocName).FilterOn = True
As does this:
DoCmd.OpenReport stDocName, acPreview, , stCriteria
--
Dirk Goldgar
(remove NOSPAM from reply address)
"GG" <ged...@ggeddes.com> wrote in message
news:iQ745.18734$ef6.2...@news1.rdc1.ab.home.com...