Discussion :

[CLASSIQUE]

Bonjour,

Toujours novice en Access.
Si je pourrais avoir une aide sur le sujet :

Comment Créer une procédure événementielle sur Bouton de commande Au Clic
Pour supprimer 1 enregistrement sélectionné de la zone liste déroulante : PRÉPARATEUR
Zone de liste déroulante
Après MAJ – procédure événementielle

Code :

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

1
2
3
4
Private Sub NOM1_AfterUpdate()
Me.rouge = Me.NOM1
Me.PRENOM1 = DLookup("prenom10", "preparateur2", "[nom10]='" & Forms![PREPARATION PVI]![rouge] & "'")
End Sub

Cordialement

[hyperion13]

Salut
Si c'est bien le preparateur ROUGE que vous voulez supprimer dans la combobox alors via un btn de commande

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btnDelete_Click()
Dim i As Integer
    For i = 0 To Me.cboNom.ListCount - 1
        If Me.cboNom.ItemData(i) = cboNom.Value Then
            Me.cboNom.RemoveItem i
            Exit For
        End If
    Next
    cboNom = Null
End Sub

[CLASSIQUE]

Bonjour Hyperion13,
Je vous remercie de votre aide.
ce que je souhaiterais supprimer c'est l'enregistrement complet de la zone de texte NOM1 et PRENOM1 provenant de la table PREPARATEUR2 Champ : NOM10 et Champ : PRENOM10
Voici un screenshot de la table


Cordialement

[hyperion13]

frmClients1 indépendant
les cbo indépendantes alimentées respectivement par tblClients

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnDelete_Click()
 
CurrentDb.Execute "DELETE FROM tblClients WHERE id_cli = " & Me.cboNom.Column(0) & "", dbFailOnError
 
cboNom = Null 'reset valeur Nom
cboPrenom = Null 'reset valeur Prenom
 
Me.cboNom.Requery 'reinitialiser/rafraichir la cboNom
Me.cboPrenom.Requery 'reinitialiser/rafraichir la cboPrenom
 
DoCmd.OpenTable "tblClients"
 
End Sub

[CLASSIQUE]

Bonjour Hyperion 13

J'ai bien effectué le copier /coller de votre code événementielle.
J'avoue que n'arrive plus à me retrouver entre les champs, et les zones de texte.
comme dans la table PREPARATEUR. il y a pas ID numéro automatique. je ne vois plus les Noms et prénom.
Voici ma Petite BASE ci joint
Si vous pouvez m'aider pour ordonner la procédure VBA

Cordialement

[hyperion13]

Quand nous donnons des solutions, il ne faut oublier de les adapter à votre environnement Acc.
fmrPREPARATEUR et tblPREPARATEUR

[CLASSIQUE]

Je vous remercie de votre aide.
Je tâtonne beaucoup sur ACCESS, et je ne pratique pas souvent.
j'ai réussi à mettre en place votre code événementielle.
Qui fonctionne.
Je n'utilise pas l'ouverture de la table après suppression.

Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande98_Click()
CurrentDb.Execute "DELETE FROM PREPARATEUR WHERE id_cli = " & Me.NOM1.Column(0) & "", dbFailOnError
 
NOM1 = Null 'reset valeur Nom
PRENOM1 = Null 'reset valeur Prenom
 
Me.NOM1.Requery 'reinitialiser/rafraichir la cboNom
Me.PRENOM1.Requery 'reinitialiser/rafraichir la cboPrenom
 
'DoCmd.OpenTable "PREPARATEUR"
End Sub