je voudrai réserver l'accès à certains formulaires de ma base
à des personnes que j'aurai sélectionnées.
Dans un form en mode création j'ai crée deux champs (user et pass)
1ère question : comment mettre un format mot de passe sachant qu'il n'ya pas
de table users (je voudrai simplement mettre des ****** ds le champ pass)
2ème suestion : j'essai de faire une procédure mais comme je débute
je n'y arrive pas
Private Sub Commande5_Click()
Dim user_value As String
user_value = Forms![f_admin]![user]
Dim user_pass As String
user_pass = Forms![f_admin]![pass]
If user_value = "admin" And user_pass = "toto" Then
MsgBox ("cool c'est bon pour toi")
Else
MsgBox ("même pas en rêve")
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
Eric
Bonjour BV,
Sur le champ pass tu mets un masque de saisie. Propriété du champs, onglet Données|Masque de saisie, tu cliques sur le 3 . (...) et choisis Mot de Passe.
Sur le bouton de commande : Commande5
Private Sub Commande5_Click() If UCase(Me!User) = "ADMIN" And UCase(Me!Pass) = "TOTO" Then MsgBox "cool c'est bon pour toi" Else MsgBox "Revenez plus tard" End If End Sub
A+ Eric
"BV" écrivait news:cdgnat$uho$:
Bonjour à tous
je voudrai réserver l'accès à certains formulaires de ma base à des personnes que j'aurai sélectionnées. Dans un form en mode création j'ai crée deux champs (user et pass)
1ère question : comment mettre un format mot de passe sachant qu'il n'ya pas de table users (je voudrai simplement mettre des ****** ds le champ pass)
2ème suestion : j'essai de faire une procédure mais comme je débute je n'y arrive pas
Private Sub Commande5_Click()
Dim user_value As String user_value = Forms![f_admin]![user] Dim user_pass As String user_pass = Forms![f_admin]![pass]
If user_value = "admin" And user_pass = "toto" Then MsgBox ("cool c'est bon pour toi") Else MsgBox ("même pas en rêve")
End If End Sub
pourriez-vous m'aider merci d'avance
BV
Bonjour BV,
Sur le champ pass tu mets un masque de saisie. Propriété du champs,
onglet Données|Masque de saisie, tu cliques sur le 3 . (...) et choisis
Mot de Passe.
Sur le bouton de commande : Commande5
Private Sub Commande5_Click()
If UCase(Me!User) = "ADMIN" And UCase(Me!Pass) = "TOTO" Then
MsgBox "cool c'est bon pour toi"
Else
MsgBox "Revenez plus tard"
End If
End Sub
je voudrai réserver l'accès à certains formulaires de ma base
à des personnes que j'aurai sélectionnées.
Dans un form en mode création j'ai crée deux champs (user et pass)
1ère question : comment mettre un format mot de passe sachant qu'il
n'ya pas de table users (je voudrai simplement mettre des ****** ds
le champ pass)
2ème suestion : j'essai de faire une procédure mais comme je débute
je n'y arrive pas
Private Sub Commande5_Click()
Dim user_value As String
user_value = Forms![f_admin]![user]
Dim user_pass As String
user_pass = Forms![f_admin]![pass]
If user_value = "admin" And user_pass = "toto" Then
MsgBox ("cool c'est bon pour toi")
Else
MsgBox ("même pas en rêve")
Sur le champ pass tu mets un masque de saisie. Propriété du champs, onglet Données|Masque de saisie, tu cliques sur le 3 . (...) et choisis Mot de Passe.
Sur le bouton de commande : Commande5
Private Sub Commande5_Click() If UCase(Me!User) = "ADMIN" And UCase(Me!Pass) = "TOTO" Then MsgBox "cool c'est bon pour toi" Else MsgBox "Revenez plus tard" End If End Sub
A+ Eric
"BV" écrivait news:cdgnat$uho$:
Bonjour à tous
je voudrai réserver l'accès à certains formulaires de ma base à des personnes que j'aurai sélectionnées. Dans un form en mode création j'ai crée deux champs (user et pass)
1ère question : comment mettre un format mot de passe sachant qu'il n'ya pas de table users (je voudrai simplement mettre des ****** ds le champ pass)
2ème suestion : j'essai de faire une procédure mais comme je débute je n'y arrive pas
Private Sub Commande5_Click()
Dim user_value As String user_value = Forms![f_admin]![user] Dim user_pass As String user_pass = Forms![f_admin]![pass]
If user_value = "admin" And user_pass = "toto" Then MsgBox ("cool c'est bon pour toi") Else MsgBox ("même pas en rêve")
