[VBA-A]supprimer un enregistrement en double cliquant dessus

**ant1ga** · 12/04/2006, 18h16

Besoin d'aide Important. Je veux tout simplement supprimer un enregistrement dans un formulaire zone de liste. si j'applique le code ci dessous, uniquement l'enregistrement en haut de la liste disparait. comment faire pour supprimer celui sur lequel je vais cliquer 2 fois.
INFINIMENT MERCI

Code :

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

1
2
3
4
5
6
7
Dim myRS1 As New ADODB.Recordset
       myRS1.Open "detail_eleve", CurrentProject.Connection,   adOpenDynamic, adLockOptimistic
 
            myRS1.delete
            myRS1.Close
 
            Set myRS1 = Nothing

**jacma** · 12/04/2006, 18h59

Bonjour

Envoyé par ant1ga

si j'applique le code ci dessous, uniquement l'enregistrement en haut de la liste disparait.

Normal puisque c'est l'enregistrement en cours. Utilise l'évènement DoubleClick de ta liste. Comme le supposes que ta liste a pour datasource le recordset, le fait de double cliquer sur un item de la liste t'amènes à l'enregistrement correspondant, et alors BANG (delete

)

**ant1ga** · 12/04/2006, 19h17

j'utilise double click, mais mon probleme c'est de referencer exactement d'element de ma liste pour le faire sauter:
le me.lstresult entraine un message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub lstresult_DblClick(Cancel As Integer)
    Dim myRS1 As New ADODB.Recordset
            myRS1.Open "detail_eleve", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
            Me.lstresult
            myRS1.delete
            myRS1.Close
 
            Set myRS1 = Nothing
    Me.lstresult.Requery
End Sub

**jacma** · 12/04/2006, 20h22

Et quelle est la source de ta liste?
De toute façon, tu as toujours la possibilité de faire une recherche sur la valeur de l'item sélectionné, du genre:

Code :

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

rs.Find "Nomdela colonne = '" & taliste.text & "'"

**ant1ga** · 12/04/2006, 22h33

Ca marche enfin, Merci beaucoup

**jacma** · 13/04/2006, 09h55

Penses à la balise [Résolu].

Et puis, penses aussi à regarder les cours, tutoriaux et autres praticiels. Tu aurait trouvé sans aucune difficulté cette solution dans le praticiel "Innitiation à l'accès aux données" accessible par l'adresse en signature.

**ant1ga** · 13/04/2006, 13h43

j'ai essayé d'etudier le praticiel initiation aux donnees. j'ai telecharge le code mais tout est en VB et je n'ai pas reussi a l'exploiter sur ma machine. je travaille avec access et la j'ai ete un peu demuni. je suis pret a exploiter toutes les tutoriaux possibles mais si ceux ci s'accompagne d'un exemple detaillé et accessible. Qu'entends tu par la balise resolu?