Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Datatype Mismatch Error

Discussion in 'Information Technology' started by charles.kendricks@charter.net, Jul 28, 2006.

  1. charles.kendricks@charter.net

    Guest

    I am trying to tie a small piece of code to a command button on a form
    to open a particular report. The report is a client medical record
    which I want to open from the clients medical records form. I am using
    code almost identical to the code I use in another database to open
    another report from a form. The code is as follows:

    Private Sub Command148_Click()

    Dim Ans As Byte
    Dim strSSN As String

    strSSN = Forms!frmFindClientByName!SSN
    Ans = MsgBox("Is This Report For Next Week?", 36, "Current Or Next
    Week?")
    If Ans = 6 Then
    DoCmd.OpenReport "rptWeeklyMedsAllNextWeek", acViewPreview, ,
    "[tblClient_SSN]=" & strSSN

    Else
    DoCmd.OpenReport "rptWeeklyMedsAllThisWeek", acViewPreview, ,
    "[tblClient_SSN]=" & strSSN

    End If
    End Sub

    The error is:
    Runtime error 3464
    Data type mismatch in criteria expression

    The SSN field in the table which the underlying query depends is a Text
    field....Somebody please help me...
     
  2. Douglas J. Steele

    Douglas J. Steele
    Expand Collapse
    Guest

    When your fields are text, the values need to be enclosed in quotes.

    DoCmd.OpenReport "rptWeeklyMedsAllNextWeek", acViewPreview, , _
    "[tblClient_SSN]=" & Chr$(34) & strSSN & Chr$(34)

    or

    DoCmd.OpenReport "rptWeeklyMedsAllNextWeek", acViewPreview, , _
    "[tblClient_SSN]='" & strSSN & "'"

    where, exagerated for clarity, that second option is


    DoCmd.OpenReport "rptWeeklyMedsAllNextWeek", acViewPreview, , _
    "[tblClient_SSN]= ' " & strSSN & " ' "

    --
    Doug Steele, Microsoft Access MVP
    http://I.Am/DougSteele
    (no private e-mails, please)


    <charles.kendricks@charter.net> wrote in message
    news:1149173736.688911.245750@j55g2000cwa.googlegroups.com...
    >I am trying to tie a small piece of code to a command button on a form
    > to open a particular report. The report is a client medical record
    > which I want to open from the clients medical records form. I am using
    > code almost identical to the code I use in another database to open
    > another report from a form. The code is as follows:
    >
    > Private Sub Command148_Click()
    >
    > Dim Ans As Byte
    > Dim strSSN As String
    >
    > strSSN = Forms!frmFindClientByName!SSN
    > Ans = MsgBox("Is This Report For Next Week?", 36, "Current Or Next
    > Week?")
    > If Ans = 6 Then
    > DoCmd.OpenReport "rptWeeklyMedsAllNextWeek", acViewPreview, ,
    > "[tblClient_SSN]=" & strSSN
    >
    > Else
    > DoCmd.OpenReport "rptWeeklyMedsAllThisWeek", acViewPreview, ,
    > "[tblClient_SSN]=" & strSSN
    >
    > End If
    > End Sub
    >
    > The error is:
    > Runtime error 3464
    > Data type mismatch in criteria expression
    >
    > The SSN field in the table which the underlying query depends is a Text
    > field....Somebody please help me...
    >
     

Share This Page