Discussion :

[pit88]

Bonjour a tous j'ai un petit souci pour supprimer un enregistrement dans une table

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
Private Sub BoutonSuppressionValider_Click()
'Déclaration
Dim db As DAO.Database
Dim myForm As Form
Dim SQL As String
 
'Initialisation
Set db = CurrentDb
Set myForm = Me
Set ctrlZone = Me.ZoneListeSuppressionEnfant
 
If ctrlZone.Value <> -1 Then
    SQL = " Delete * From ENFANT Where [PrenomEnfant] = " & ctrlZone.Value & ";"
     db.Execute SQL
    MsgBox ("L'enfant" & ctrlZone.Value & " a été supprimer ")
Else
    MsgBox " Il faut sélectionner un enfant à supprimer "
End If
End Sub

A l'éxécution il apparait

Erreur d'execution '3061' Trop peu de parametre 1 attendu

Merci d'avance

[Mat.M]

[COLOR="Sienna"]SQL = " Delete * From ENFANT Where [PrenomEnfant] = " & str(ctrlZone.Value) & ";"

*Faire CTRL G>fenetre de debogage> et taper "? SQL" et return
*et faire un copier coller dans un moniteur SQL ( Access.
..)
Toujours tester les requetes dans un moniteur SQL

[pit88]

Qu'est ce que je dois ecrire reelement dans la fenetre d'execution

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? Sql