>Hi Igor,
>Sure Here-It-Is
>This "Main Tally" Query Works-
>SELECT [Bar Code Manager].Printed
>FROM [Bar Code Manager]
>WHERE ((([Bar Code Manager].Printed)=No));
>
>Private Sub Preview_Click()
>On Error GoTo Err_Preview_Click
> Dim DBS As Database, RST As Recordset
> Dim stDocName As String, nokeep As Integer
> Set DBS = CurrentDb
> Set RST = DBS.OpenRecordset("Main Tally")
> Form.txtCountPrint = "0"
> Form.txtCountPrint = RST.RecordCount
> If CInt(Form.txtCountPrint) > 0 Then
> stDocName = "Manager Blue Card"
> DoCmd.OpenReport stDocName, acPreview
>. . .
> Else
> nokeep = MsgBox("No Records to Preview!", 0, "All Records already processed.")
> End If
>. . .
>End Sub
>
>"Main Tally" queries correctly manually not automatically when:
>SELECT [Bar Code Manager].Printed, [Bar Code Manager].who
>FROM [Bar Code Manager]
>WHERE ((([Bar Code Manager].Printed)=No) AND (([Bar Code Manager].who)=Mid(Trim([CurrentUser]),1,4) & ".dat"));
>Error: (at Set RST) Expected Parameter 1
>
>Why?
>The Report is based on Query with exact Where, no problem!
>
>>Hi Edgar,
>>
>>May you post the code, so we could locate the problem?
>>
>>Igor
[CurrentUser] doesn't seem to be fully qualified. Is this a field in the [Bar Code Manager] table?
Also, you can put the msgbox up in the Report_Nodata if the query does not return records. That way you don't have to check for the recordcount.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only