qu'est ce que sa veut dire l'erreur: unknown column'a'in where clause
et comment je peut le correct
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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