execution error '3021'

[D-Zyl]

Hi everybody!

my code is :
************************************************** ***********
Private Sub Form_Open(Cancel As Integer)

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim myvehicule As String

myvehicule = Forms![Mapping]![Immatriculation]
Set db = CurrentDb
Set rs = db.OpenRecordset("Select repairnumber From vehicule Where
'Immatriculation'=' " & myvehicule & " ';")
rs.Edit
rs.Fields("repairnumber").Value = rs.Fields("nrepairnumber").Value
+ 1
rs.Update
Forms![new reparation]![repairnumber] =
rs.Fields("numeroreparation").Value
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
************************************************** **********

and I get the #3021 error.
Does anybody see where the trouble is ??????

thanks a lot

[Tom van Stiphout]

On 26 Apr 2004 06:33:31 -0700, d_*****@hotmail.com (D-Zyl) wrote:

The debugger knows. Use it. Set a breakpoint at the top of the code
and step through the procedure.

One problem I see with your code is that you spell RepairNumber 3
different ways: repairnumber, nrepairnumber, numeroreparation.

-Tom.

Hi everybody!

my code is :
************************************************* ************
Private Sub Form_Open(Cancel As Integer)

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim myvehicule As String

myvehicule = Forms![Mapping]![Immatriculation]
Set db = CurrentDb
Set rs = db.OpenRecordset("Select repairnumber From vehicule Where
'Immatriculation'=' " & myvehicule & " ';")
rs.Edit
rs.Fields("repairnumber").Value = rs.Fields("nrepairnumber").Value
+ 1
rs.Update
Forms![new reparation]![repairnumber] =
rs.Fields("numeroreparation").Value
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
************************************************* ***********

and I get the #3021 error.
Does anybody see where the trouble is ??????

thanks a lot

[Randy Harris]

"D-Zyl" <d_*****@hotmail.com> wrote in message
news:ef**************************@posting.google.c om...

Hi everybody!

my code is :
************************************************** ***********
Private Sub Form_Open(Cancel As Integer)

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim myvehicule As String

myvehicule = Forms![Mapping]![Immatriculation]
Set db = CurrentDb
Set rs = db.OpenRecordset("Select repairnumber From vehicule Where
'Immatriculation'=' " & myvehicule & " ';")
rs.Edit
rs.Fields("repairnumber").Value = rs.Fields("nrepairnumber").Value
+ 1
rs.Update
Forms![new reparation]![repairnumber] =
rs.Fields("numeroreparation").Value
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
************************************************** **********

If Immatriculation is a field in the vehicule table, you don't want quotes
around it in the SQL statement where you open the recordset.