
July 30th, 2004, 04:44 AM
|
|
Contributing User
|
|
Join Date: Jul 2004
Posts: 65
Time spent in forums: 37 m 32 sec
Reputation Power: 5
|
|
Any ideas what this is?
Hi,
I run the following code to produce a report, but the report appears blank. I just can't see why, there should be 3 records on it.
Any ideas? I'd be very grateful......
DoCmd.OpenForm "Clinical Audit Report Form"
Forms![Clinical Audit Report Form].Visible = False
Dim stdoc3, stlc4, stdatenew2, stld4 As String
stdoc3 = "OverdueRecommendations"
stdatenew2 = "Forms![Clinical Audit Report Form].[Subform Recommendations]![Timescale] < date()"
stlc4 = "[Forms]![Clinical Audit Report Form].[subform Recommendations]![Date Completed] is null" & " And " & "[Forms]![Clinical Audit Report Form].[subform Recommendations]![Timescale] is not null"
stld4 = stlc4 & " And " & stdatenew2
If [report to print] = 14 And IsNull(Me![date1]) Then DoCmd.OpenReport stdoc3, acPreview, , stld4
DoCmd.Close acForm, "Clinical Audit Report Form"
|