Output Snp format in A2K with Filter?

[Guest]

i am a relative newbie to this so you'll have to excuse this if the answer is
totally obviouso, but how do you programatically restrict the output to just
those records meeting your 'where' specifications. i am not seeing a place
when i write the output command below to insert my where clause as i did when
i created another cmd button to print the identical report:

Private Sub OutputSnp_Click()

On Error GoTo Err_OutputSnp_Click

Dim stDocName As String
Dim strWhere As String

stDocName = "By Site: Patients on Follow-Up"
strWhere = "[FollowUp] Between #" & _
Forms![Tracking Print By Site]![StartDate] & _
"# And #" & Forms![Tracking Print By Site]![StopDate] & "#"

DoCmd.OutputTo acOutputReport, stDocName, "SnapshotFormat(*.snp)" ?????

Exit_OutputSnp_Click:
Exit Sub

Err_OutputSnp_Click:
MsgBox Err.description
Resume Exit_OutputSnp_Click
End Sub

 

[SA]

Ted:

Take a look at this knowledge base article which describes filtering a
report for faxing using Send Object. You can apply the same type of
construct to outputting a snapshot.

http://support.microsoft.com/kb/299016/en-us

 

[Guest]

not getting it i'm afraid :-(
did you also notice that the article's intended to be used w/ access 2002 vs
my a2k?

Ted:

Take a look at this knowledge base article which describes filtering a
report for faxing using Send Object. You can apply the same type of
construct to outputting a snapshot.

http://support.microsoft.com/kb/299016/en-us
--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg

i am a relative newbie to this so you'll have to excuse this if the answer
is
totally obviouso, but how do you programatically restrict the output to
just
those records meeting your 'where' specifications. i am not seeing a place
when i write the output command below to insert my where clause as i did
when
i created another cmd button to print the identical report:

Private Sub OutputSnp_Click()

On Error GoTo Err_OutputSnp_Click

Dim stDocName As String
Dim strWhere As String

stDocName = "By Site: Patients on Follow-Up"
strWhere = "[FollowUp] Between #" & _
Forms![Tracking Print By Site]![StartDate] & _
"# And #" & Forms![Tracking Print By Site]![StopDate] & "#"

DoCmd.OutputTo acOutputReport, stDocName, "SnapshotFormat(*.snp)" ?????

Exit_OutputSnp_Click:
Exit Sub

Err_OutputSnp_Click:
MsgBox Err.description
Resume Exit_OutputSnp_Click
End Sub

 

[Guest]

hi steve,

you know for whatever reason i was a little dis-heartened when i quickly ran
my gaze over the ms information. i returned to the printed document a while
later and read through it slowly and the cloud of doubt and unknowing seemed
to begin disappearing. after i tried creating a macro with the appropriate
where condition and assigning that (macro) to the 'OnOpen' conditon i found
that the new report i had minted that used this _could_ indeed be output with
just the requisite filtered records as a 'SNP' formatted file.

thanks for the tip.

i can use this and share it.

Ted:

Take a look at this knowledge base article which describes filtering a
report for faxing using Send Object. You can apply the same type of
construct to outputting a snapshot.

http://support.microsoft.com/kb/299016/en-us
--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg

i am a relative newbie to this so you'll have to excuse this if the answer
is
totally obviouso, but how do you programatically restrict the output to
just
those records meeting your 'where' specifications. i am not seeing a place
when i write the output command below to insert my where clause as i did
when
i created another cmd button to print the identical report:

Private Sub OutputSnp_Click()

On Error GoTo Err_OutputSnp_Click

Dim stDocName As String
Dim strWhere As String

stDocName = "By Site: Patients on Follow-Up"
strWhere = "[FollowUp] Between #" & _
Forms![Tracking Print By Site]![StartDate] & _
"# And #" & Forms![Tracking Print By Site]![StopDate] & "#"

DoCmd.OutputTo acOutputReport, stDocName, "SnapshotFormat(*.snp)" ?????

Exit_OutputSnp_Click:
Exit Sub

Err_OutputSnp_Click:
MsgBox Err.description
Resume Exit_OutputSnp_Click
End Sub