unknown column'a'in where clause

qu'est ce que sa veut dire l'erreur: unknown column'a'in where clause
et comment je peut le correct

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command4_Click()
Dim a As String
Dim req1 As String
a = InputBox("tapper  le nom de service que vous voulez modifier")
If a <> "" Then
 
req1 = "update  service set numero='" & Text1.Text & "', nom ='" & Text2.Text & "' where nom = a "
 
 
                        With Record
                               .ActiveConnection = Conn
                               .Source = req1
                               .Open
 
              End With
 
            Text1.Text = ""
            Text2.Text = ""
Else
MsgBox " le nom n'existe pas"
End If
 
End Sub

Bonjour,

Il y a une erreur dans ta requête!
a étant reconnu comme lettre a et non comme nom de variable.
Code:

1 2 req1 = "update service set numero='" & Text1.Text & "', nom ='" & Text2.Text & "' where nom ='" & a
A+

merci beaucoup :)