run a query in event in access

[vba317]

I am trying to execute a query in an event in Access. I am getting an error so I was hoping I could get some help with my current statement.

Private Sub lstModelName_BeforeUpdate(Cancel As Integer)

'CurrentDb.Execute "SELECT * From TblDefectDescription", TblDefectDescription.ModelName, TblDefectDescription.Situation,TblDefectDescription.PossibleCause, TblDefectDescription.Solution1, TblDefectDescription.Solution2 WHERE (((TblDefectDescription.ModelName)=[Model Name])), dbFailOnError

End Sub

 

[vba317]

To clarify I am getting an complie error at the where statement

 

[PHV]

Anyway, CurrentDb.Execute should be used only for action queries.
As for the compile error:

"SELECT * From TblDefectDescription WHERE ModelName='" & Me![Model Name] & "'"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886