Copy and paste my email address to your standard email package and email me from there.


mmcdonal

I can't see your e-mail address. it just shows your name.

dave

email me, and I will email you back. Then attach the file.

mmcdonal

Here is the resolution. The issues were proper field name reference and proper control values:

Private Sub btnPreviewReport_Click()
On Error GoTo Err_btnPreviewReport_Click

    Dim stDocName As String
    Dim str20 As String
    Dim str40 As String
    Dim sLink As String

    stDocName = "Floor Requests"

    If Me.chk20 <> -1 And Me.chk40 <> -1 Then
        MsgBox """Select a JITL""", vbOKOnly
    Else
        If Me.chk20 = -1 Then
            str20 = "Y"
            Else
            str20 = "N"
        End If
        If Me.chk40 = -1 Then
            str40 = "Y"
            Else
            str40 = "N"
        End If
    End If
    sLink = "[Twenty] = " & "'" & str20 & "' AND [Forty] = " & "'" & str40 & "'"
DoCmd.OpenReport stDocName, acPreview, , sLink
Exit_btnPreviewReport_Click:
    Exit Sub
Err_btnPreviewReport_Click:
    MsgBox Err.Description
    Resume Exit_btnPreviewReport_Click

End Sub

mmcdonal