Solved: How to print a report from Search results

[RonNCmale]

I have the following code behind a search button on my form. When it is clicked it list which field to search and search text. It works great on the form, I can advance the forms records and see each one. I need additional code to be able to print these results to a report. Or another way to get the same results.



Private Sub cmdSearch_Click()
If Len(cboSearchField) = 0 Or IsNull(cboSearchField) = True Then
MsgBox "You must select a field to search."

ElseIf Len(txtSearchString) = 0 Or IsNull(txtSearchString) = True Then
MsgBox "You must enter a search string."

Else

'Generate search criteria
GCriteria = cboSearchField.Value & " LIKE '*" & txtSearchString & "*'"

'Filter frmSTG based on search criteria
Form_frmSTG.RecordSource = "select * from STG where " & GCriteria
Form_frmSTG.Caption = "STG (" & cboSearchField.Value & " contains '*" & txtSearchString & "*')"

'Close frmSearch
DoCmd.Close acForm, "frmSTGSearch"

MsgBox "Results have been filtered."

End If

End Sub

[DarkSprout]

See below, this entry errored. :banghead:

[DarkSprout]

This is all done from memory, without any form of testing - but the idea is sound(ish!)

If you want to send the query to a report:
1. Write the basic (all records) query for the report.
2. load the report:
DoCmd.OpenReport "reportName", acViewPreview
3. Send you filterd SQL to the Report ensuring all fields match:
Reports("reportName").RecordSource = strSQL
4. ReQuery the report:
Reports("reportName").FilterOn = True

Hope this helps.

---

"Clarke's First Law: When a distinguished but elderly scientist says that something is possible, he is almost certainly right. When he says it is impossible, he is very probably wrong. Clarke's Second Law: The only way to find the limits of the possible is by going beyond them to the impossible. Clarke's Third Law: Any sufficiently advanced technology is indistinguishable from magic."
Died today: Arthur C. Clarke (1917-2008)

[RonNCmale]

Attached is a zip file with the search function. If you could please advise me on how to make it print a report from the search results.

[DarkSprout]

Attached is a zip file with the search function. If you could please advise me on how to make it print a report from the search results.

Can't open the ZIP file, 'Compression Method Not Supported'
This is with Windows pwn Zip handler and with 7Zip.

[RonNCmale]

compressed with WinZip, I'll compress with 7zip and repost.

[RonNCmale]

Here it is again, maybe, crossing my fingers you can open. Thanks in advance.

[RonNCmale]

anyone having trouble opening this database? Really need a solution to this problem.

[RonNCmale]

A Big Thanks goes out to Carl A. He used my recordset based on my filter to fill a report. Way to go Carl

[Carl A]

You should post the solution for the benefit of the forum. Thanks!

[RonNCmale]

Thanks again Carl A