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

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ze Titi
Le #6263711
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
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

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

"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
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





Publicité
Poster une réponse
Anonyme