Je veux créer des autorisations selon le modèle de Raymond. mais je ne sais
pas comment faire pour, qu' une fois que l'on a entré le mot de passe, on
accède a la page d'accueil de la base.
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
URIANE
Bonjour Matthieu, essaie le code suivant : Private Sub Mot_de_passe_Exit(Cancel As Integer) On Error Resume Next NiveauProtection = Me.Autorisation_NiveauProtection If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <> Me.Mot_de_passe) Then Me.Mot_de_passe.SetFocus Exit Sub Else DoCmd.OpenForm "tonmenu"
End If End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien recopié le code qui allait avec le formulaire d'exemple ?
Bonjour Matthieu,
essaie le code suivant :
Private Sub Mot_de_passe_Exit(Cancel As Integer)
On Error Resume Next
NiveauProtection = Me.Autorisation_NiveauProtection
If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <>
Me.Mot_de_passe) Then
Me.Mot_de_passe.SetFocus
Exit Sub
Else
DoCmd.OpenForm "tonmenu"
End If
End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien
recopié le code qui allait avec le formulaire d'exemple ?
Bonjour Matthieu, essaie le code suivant : Private Sub Mot_de_passe_Exit(Cancel As Integer) On Error Resume Next NiveauProtection = Me.Autorisation_NiveauProtection If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <> Me.Mot_de_passe) Then Me.Mot_de_passe.SetFocus Exit Sub Else DoCmd.OpenForm "tonmenu"
End If End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien recopié le code qui allait avec le formulaire d'exemple ?
matthieu
Merci beaucoup ca marche bien. A une prochaine fois pour de nouveaux problèmes. Matthieu
Bonjour Matthieu, essaie le code suivant : Private Sub Mot_de_passe_Exit(Cancel As Integer) On Error Resume Next NiveauProtection = Me.Autorisation_NiveauProtection If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <> Me.Mot_de_passe) Then Me.Mot_de_passe.SetFocus Exit Sub Else DoCmd.OpenForm "tonmenu"
End If End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien recopié le code qui allait avec le formulaire d'exemple ?
Merci beaucoup ca marche bien.
A une prochaine fois pour de nouveaux problèmes.
Matthieu
Bonjour Matthieu,
essaie le code suivant :
Private Sub Mot_de_passe_Exit(Cancel As Integer)
On Error Resume Next
NiveauProtection = Me.Autorisation_NiveauProtection
If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <>
Me.Mot_de_passe) Then
Me.Mot_de_passe.SetFocus
Exit Sub
Else
DoCmd.OpenForm "tonmenu"
End If
End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien
recopié le code qui allait avec le formulaire d'exemple ?
Merci beaucoup ca marche bien. A une prochaine fois pour de nouveaux problèmes. Matthieu
Bonjour Matthieu, essaie le code suivant : Private Sub Mot_de_passe_Exit(Cancel As Integer) On Error Resume Next NiveauProtection = Me.Autorisation_NiveauProtection If IsNull(Me.Mot_de_passe) Or (Me.Autorisation_mot_de_passe <> Me.Mot_de_passe) Then Me.Mot_de_passe.SetFocus Exit Sub Else DoCmd.OpenForm "tonmenu"
End If End Sub
en remplaçant "tonmenu" par le nom de ton menu d'accueil et as tu bien recopié le code qui allait avec le formulaire d'exemple ?