Discussion :

[kubito]

Bonjour à tous.

Ca fait des années que je n'ai plus fait du sql et cela se sent, Je fais des tests basiques, histoire de me remettre en selle.

Mon problème va vous paraitre peut être simple mais je bute dessus. Je souhaite supprimer une ligne de ma table en fonction d'une sélection dans une combox box
Voici ce que j'ai :
une table unique nommée Etatcivil avec 4 champs, Numéro, Nom, Prenom et DateNai.
Dans mon formulaire, j'ai une combobox qui reprend les noms et prénoms de la table, quand je clique dessus, cela m'affiche les informations dans 3 textbox

Code :

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

1
2
3
4
5
Private Sub cmbListe_Click()   
    Me.txt_nom = Me.cmbListe.Column(1)
    Me.txt_prenom = Me.cmbListe.Column(2)
    Me.txt_date = Me.cmbListe.Column(3)
End Sub

Et pour supprimer,j'ai mis ceci :

Code :

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

1
2
3
Private Sub btn_supprimer_Click()
     DoCmd.RunSQL "DELETE * FROM Etatcivil WHERE Nom = Me.cmbListe.Column(1) "     
End Sub

Quand je clique sur le bouton, j'ai :

Erreur d'éxécution '3085':
Fonction "Me.cmbListe.Column" nom définie dans l'expression

Je sèche. J'ai essayer des trucs improbables qui n'ont rien changé...normal puisqu'improbables.

Quelqu'un aurait une petite idée ?
Merci d'avance.

[madefemere]

Bonjour,

1- Tu n'as pas besoin de faire du code pour assigner le résultat de la fonction Column vers une zone de texte.
Il suffit de définir

Code :

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

=cmb.Column(x)

comme source de ta zone de texte.

Pour la suppression d'une valeur selon un critère, il faut sortir ton paramètre de ton code SQL de la façon et le mettre entre "'" parce qu'un nom, c'est du texte normalement :

Code :

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

1
2
3
Private Sub btn_supprimer_Click()
     DoCmd.RunSQL "DELETE * FROM Etatcivil WHERE Nom ='" &  Me.cmbListe.Column(1) &"'"
End Sub

Cordialement,

[kubito]

L'avantage quand on vient sur ce site, c'est qu'on a affaire à des gens compétents et qui ne se moquent pas des débutants...ce n'est pas le cas partout.
Réponse tout à fait fonctionnel, un grand merci à toi.

Avant de mettre "résolu", je te demanderais une dernier faveur : je sais que je devrais egalement avoir à faire à des données numériques, est ce que la ligne SQL reste la même où il y a-t-il une différence ou la ligne reste inchangé.
J'ai essayé et il m'indique une erreur de type incompatible...

Merci encore pour l'aide apportée

[kubito]

En convertissant le champs numérique en type string avec Cstr, cela fonctionne parfaitement mais j'aimerais quand même la syntaxe sans conversion ,au cas où .
Merci

[madefemere]

Bonsoir,

Numérique, donc il fat enlever les ' qui encadrent la variable

Code :

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

1
2
3
Private Sub btn_supprimer_Click()
     DoCmd.RunSQL "DELETE * FROM Etatcivil WHERE Nom =" &  Me.cmbListe.Column(1)
End Sub

Cordialement,

[kubito]

Une grand merci à vous.

Cordialement