Syntax error in FROM clause

G

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
 
G

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 & "'"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top