Welcome to SPN

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

Sign Up Now!
  1. Monthly (Recurring) Target: $300 :: Achieved: $95
      Become a Supporter    ::   Make a Contribution   

Syntax error in FROM clause

Discussion in 'Information Technology' started by AppleJack, Nov 16, 2005.

  1. AppleJack

    AppleJack
    Expand Collapse
    Guest

    This is my first post, and my first attempt at this type of programming.
    This is from MS Access 2003. I get the following error:

    Run-time error '3131':
    Syntax error in FROM clause.

    Below is the code for the button that I am using. Can anyone see what I
    must've overlooked. Any help is appreciated!

    Applejack


    Private Sub Command19_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Set db = CurrentDb
    Set qdf = db.QueryDefs("qrySEEKER")
    strSQL = "SELECT tbl_MishapDatabase.*" & "FROM tbl_MishapDatabase" & "WHERE
    tbl_MishapDatabase.Rank='" & Me.cboRank.Value & "'" & "AND
    tbl_MishapDatabase.Duty='" & Me.cboDutyStatus.Value & "'" & "AND
    tbl_MishapDatabase.Class='" & Me.cboClass.Value & "'" & "AND
    tbl_MishapDatabase.Unit='" & Me.cboUnit.Value & "'" & "AND
    tbl_MishapDatabase.InjuryType='" & Me.cboInjuryType.Value & "'"
    qdf.SQL = strSQL
    DoCmd.OpenQuery "qrySEEKER"
    DoCmd.Close acForm, Me.Name
    Set qdf = Nothing
    Set db = Nothing
    End Sub
     
  2. Loading...


  3. Ofer

    Ofer
    Expand Collapse
    Guest

    There are no spaces before the Where , And you didn't add any space after the
    Join (&)

    Try this
    strSQL = "SELECT tbl_MishapDatabase.* FROM tbl_MishapDatabase WHERE " & _
    "tbl_MishapDatabase.Rank='" & Me.cboRank.Value & "' AND " & _
    "tbl_MishapDatabase.Duty='" & Me.cboDutyStatus.Value & "' AND " & _
    "tbl_MishapDatabase.Class='" & Me.cboClass.Value & "' AND " & _
    "tbl_MishapDatabase.Unit='" & Me.cboUnit.Value & "' AND " & _
    "tbl_MishapDatabase.InjuryType='" & Me.cboInjuryType.Value & "'"




    --
    I hope that helped
    Good Luck


    "AppleJack" wrote:

    > This is my first post, and my first attempt at this type of programming.
    > This is from MS Access 2003. I get the following error:
    >
    > Run-time error '3131':
    > Syntax error in FROM clause.
    >
    > Below is the code for the button that I am using. Can anyone see what I
    > must've overlooked. Any help is appreciated!
    >
    > Applejack
    >
    >
    > Private Sub Command19_Click()
    > Dim db As DAO.Database
    > Dim qdf As DAO.QueryDef
    > Dim strSQL As String
    > Set db = CurrentDb
    > Set qdf = db.QueryDefs("qrySEEKER")
    > strSQL = "SELECT tbl_MishapDatabase.*" & "FROM tbl_MishapDatabase" & "WHERE
    > tbl_MishapDatabase.Rank='" & Me.cboRank.Value & "'" & "AND
    > tbl_MishapDatabase.Duty='" & Me.cboDutyStatus.Value & "'" & "AND
    > tbl_MishapDatabase.Class='" & Me.cboClass.Value & "'" & "AND
    > tbl_MishapDatabase.Unit='" & Me.cboUnit.Value & "'" & "AND
    > tbl_MishapDatabase.InjuryType='" & Me.cboInjuryType.Value & "'"
    > qdf.SQL = strSQL
    > DoCmd.OpenQuery "qrySEEKER"
    > DoCmd.Close acForm, Me.Name
    > Set qdf = Nothing
    > Set db = Nothing
    > End Sub
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page