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
Partager