Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Suppression d'un utilisateur, InputBox avec la liste déroulante

Suppression d'un utilisateur, InputBox avec la liste déroulante

2 réponses
Avatar
fujitsu
Bonjour à tous

J'intéressant sur la site http://access.fr.free.fr/

"Suppression d'un utilisateur"

Function DeleteUserX()
Dim wrkDefault As Workspace
Dim strNameUser As String
Set wrkDefault = DBEngine.Workspaces(0)
strNameUser = InputBox("Entrez le nom d'l'utilisateur à supprimer : ",
"Gestion des utilisateurs")
wrkDefault.Users.Delete (strNameUser)
MsgBox "L'utilisateur " & strNameUser & " à bien été supprimé.", ,
"Gestion des utilisateurs"
End Function

Ça marche bien

Question : Est ce que c'est possible la liste déroulante avec "DLookup" ou
autre dans "InputBox" ?

Merci de votre aide.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ze Titi
Bonjour fujitsu

Non, pas possible dans un InputBox (du moins d'après moi). Il faut
créer un formulaire avec ta liste déroulante (ou passer par la gestion
des utilisateurs...)

Dans ton message du mercredi
Bonjour à tous

J'intéressant sur la site http://access.fr.free.fr/

"Suppression d'un utilisateur"

Function DeleteUserX()
Dim wrkDefault As Workspace
Dim strNameUser As String
Set wrkDefault = DBEngine.Workspaces(0)
strNameUser = InputBox("Entrez le nom d'l'utilisateur à supprimer : ",
"Gestion des utilisateurs")
wrkDefault.Users.Delete (strNameUser)
MsgBox "L'utilisateur " & strNameUser & " à bien été supprimé.", ,
"Gestion des utilisateurs"
End Function

Ça marche bien

Question : Est ce que c'est possible la liste déroulante avec "DLookup" ou
autre dans "InputBox" ?

Merci de votre aide.


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
fujitsu
Bonjour Ze Titi
Ok, je vais créer un formulaire.....
Encore merci
Bonne journée
Marco

"ze Titi" a écrit dans le message de news:

Bonjour fujitsu

Non, pas possible dans un InputBox (du moins d'après moi). Il faut créer
un formulaire avec ta liste déroulante (ou passer par la gestion des
utilisateurs...)

Dans ton message du mercredi
Bonjour à tous

J'intéressant sur la site http://access.fr.free.fr/

"Suppression d'un utilisateur"

Function DeleteUserX()
Dim wrkDefault As Workspace
Dim strNameUser As String
Set wrkDefault = DBEngine.Workspaces(0)
strNameUser = InputBox("Entrez le nom d'l'utilisateur à supprimer :
", "Gestion des utilisateurs")
wrkDefault.Users.Delete (strNameUser)
MsgBox "L'utilisateur " & strNameUser & " à bien été supprimé.", ,
"Gestion des utilisateurs"
End Function

Ça marche bien

Question : Est ce que c'est possible la liste déroulante avec "DLookup"
ou autre dans "InputBox" ?

Merci de votre aide.


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info