Access-3stone - Forum - Questions générale

Forum - Questions générale - Sujet n°399

1 membre

Connectés : ( personne )

Sujet n° 399	liste déroulante
le 01/09/2010 : 15:06 par lemeruvien visiteur	Bonjour à tous, comment faire pour supprimer un nom dans une liste déroulante autrement qu'en ouvrant un formulaire basé sur cette liste??merciroger

Réponse n° 1
--------
le 01/09/2010 : 15:23
par lemeruvien

Anonyme

visiteur

ça y est j'ai trouvé, merci quant même!!

par contre je n'ai pas trouvé comment supprimer ce mesage!

roger

Réponse n° 2 -------- le 01/09/2010 : 16:28 par 3Stone Administrateur	Bonjour Roger, Citation : ça y est j'ai trouvé Peut-être que d'autres auraient été intéressés... Citation : par contre je n'ai pas trouvé comment supprimer ce mesage! Normal, tu ne peux pas Cordialement, Pierre(3stone)

Réponse n° 3 -------- le 02/09/2010 : 14:17 par lemeruvien visiteur	Bonjour pierre, ben non, heureusement que tu est là, car mon truc ne marche pas!!J'avais mis un bouton qui sur clic ouvre ma LD, je sélectionne le nom que je veut supprimer, et apres MAJ de ma LD, j'ai mis: DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70et ben il me dis bien "attention vous allez supprimer un enregistrement", mais il ne supprime rien du tout!!Il ne doit pas manquer grand chose ??merci de me dire quoi! roger

Réponse n° 4 -------- le 02/09/2010 : 15:37 par 3Stone Administrateur	Bonjour, D'abord, il y a des années qu'il ne faut plus utiliser les "DoMenuItem", c'est totalement beeerrg Ensuite, il faudrait dire sur quoi est basé cette liste ? les champs qu'elle contient et aussi quelle version d'Access tu utilises... Cordialement, Pierre(3stone)

Réponse n° 5 -------- le 03/09/2010 : 12:28 par lemeruvien visiteur	j'utilise Access 2003, et ma LD est basée sur une table qui ne contient que un champ (Thème)

Réponse n° 6
--------
le 03/09/2010 : 15:44
par 3Stone

Anonyme

Administrateur

Bonjour,

J'admets ici que

la table se nomme "T_Theme"
la liste se nomme "lst_Theme"
que le bouton se nomme "cmd_Supprimer"

le code ci-dessous devrait te convenir :

Code :

Private Sub cmd_Supprimer_Click()
    Dim sMsg As String
    sMsg = "Voulez-vous supprimer cet élément de la liste ?"
    'Afficher la demande de suppression
    If MsgBox(sMsg, vbOKCancel, "Suppression") = vbOK Then
        'si séléction dans la liste
        If Not IsNull(Me.lst_Theme) Then
            CurrentDb.Execute "Delete * From T_Theme Where [Theme]='" & Me.lst_Theme & "'"
            'mise à jour de la liste
            Me.lst_Theme.Requery
            Me.lst_Theme = ""
        End If
    End If
End Sub

Cordialement,
Pierre(3stone)

sujet actif clos

sujet clos

Important! Nouveau

Nouveau message -

Rectifier message

Clôturer sujet

Remonter