J'essaie de bloquer l'acc=E8s =E0 un bouton d'un autre=20
formulaire si l'utilisateur n'est pas autoris=E9.
Voil=E0 le code.
Probl=E8me au niveau "form_hoofdmenu.Rappmenu.Visible =3D=20
False" --> Object variable or with block variable not set.
Une explication?
Merci.
Option Compare Database
Private Sub Command0_Click()
Dim db As DAO.Database
Dim liste As DAO.Recordset
Dim form_hoofdmenu As form_hoofdmenu
Set db =3D CurrentDb
Set liste =3D db.OpenRecordset("Utilisateurs")
ret =3D Environ("UserName")
liste.MoveFirst
Do Until liste.EOF
If liste.Fields("ID").Value =3D ret Then
MsgBox "Utilisateur autoris=E9",=20
vbDefaultButton1, "Connexion"
form_hoofdmenu.Rappmenu.Visible =3D False
GoTo 10
Else
liste.MoveNext
End If
Loop
MsgBox "Utilisateur non autoris=E9", vbCritical, "Pas de=20
connexion possible"
10
liste.Close
End Sub
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
Raymond [mvp]
Bonjour.
tu n'es pas obligé de passer par un recordset. tu peux faire ainsi:
Private Sub Commande0_Click() If IsNull(DLookup("ID", "Utilisateurs", "[ID] ='" & Environ("username") & "'")) Then MsgBox "Utilisateur non autorisé", vbCritical, "Pas de connexion possible" Forms!form_hoofdmenu!Rappmenu.Visible = False Else MsgBox "Utilisateur autorisé", vbDefaultButton1, "Connexion" Forms!form_hoofdmenu!Rappmenu.Visible = True End If End Sub
à ajuster peut-être avec les noms réels de ton form. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Lionel" a écrit dans le message de news:b34201c4373d$d4652e30$ J'essaie de bloquer l'accès à un bouton d'un autre formulaire si l'utilisateur n'est pas autorisé.
Voilà le code.
Problème au niveau "form_hoofdmenu.Rappmenu.Visible False" --> Object variable or with block variable not set.
Une explication?
Merci.
Option Compare Database
Private Sub Command0_Click() Dim db As DAO.Database Dim liste As DAO.Recordset Dim form_hoofdmenu As form_hoofdmenu
Set db = CurrentDb Set liste = db.OpenRecordset("Utilisateurs")
ret = Environ("UserName")
liste.MoveFirst Do Until liste.EOF If liste.Fields("ID").Value = ret Then MsgBox "Utilisateur autorisé", vbDefaultButton1, "Connexion" form_hoofdmenu.Rappmenu.Visible = False GoTo 10 Else liste.MoveNext End If Loop MsgBox "Utilisateur non autorisé", vbCritical, "Pas de connexion possible" 10 liste.Close End Sub
Bonjour.
tu n'es pas obligé de passer par un recordset. tu peux faire ainsi:
Private Sub Commande0_Click()
If IsNull(DLookup("ID", "Utilisateurs", "[ID] ='" & Environ("username") &
"'")) Then
MsgBox "Utilisateur non autorisé", vbCritical, "Pas de connexion
possible"
Forms!form_hoofdmenu!Rappmenu.Visible = False
Else
MsgBox "Utilisateur autorisé", vbDefaultButton1, "Connexion"
Forms!form_hoofdmenu!Rappmenu.Visible = True
End If
End Sub
à ajuster peut-être avec les noms réels de ton form.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Lionel" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:b34201c4373d$d4652e30$a601280a@phx.gbl...
J'essaie de bloquer l'accès à un bouton d'un autre
formulaire si l'utilisateur n'est pas autorisé.
Voilà le code.
Problème au niveau "form_hoofdmenu.Rappmenu.Visible False" --> Object variable or with block variable not set.
Une explication?
Merci.
Option Compare Database
Private Sub Command0_Click()
Dim db As DAO.Database
Dim liste As DAO.Recordset
Dim form_hoofdmenu As form_hoofdmenu
Set db = CurrentDb
Set liste = db.OpenRecordset("Utilisateurs")
ret = Environ("UserName")
liste.MoveFirst
Do Until liste.EOF
If liste.Fields("ID").Value = ret Then
MsgBox "Utilisateur autorisé",
vbDefaultButton1, "Connexion"
form_hoofdmenu.Rappmenu.Visible = False
GoTo 10
Else
liste.MoveNext
End If
Loop
MsgBox "Utilisateur non autorisé", vbCritical, "Pas de
connexion possible"
10
liste.Close
End Sub
tu n'es pas obligé de passer par un recordset. tu peux faire ainsi:
Private Sub Commande0_Click() If IsNull(DLookup("ID", "Utilisateurs", "[ID] ='" & Environ("username") & "'")) Then MsgBox "Utilisateur non autorisé", vbCritical, "Pas de connexion possible" Forms!form_hoofdmenu!Rappmenu.Visible = False Else MsgBox "Utilisateur autorisé", vbDefaultButton1, "Connexion" Forms!form_hoofdmenu!Rappmenu.Visible = True End If End Sub
à ajuster peut-être avec les noms réels de ton form. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Lionel" a écrit dans le message de news:b34201c4373d$d4652e30$ J'essaie de bloquer l'accès à un bouton d'un autre formulaire si l'utilisateur n'est pas autorisé.
Voilà le code.
Problème au niveau "form_hoofdmenu.Rappmenu.Visible False" --> Object variable or with block variable not set.
Une explication?
Merci.
Option Compare Database
Private Sub Command0_Click() Dim db As DAO.Database Dim liste As DAO.Recordset Dim form_hoofdmenu As form_hoofdmenu
Set db = CurrentDb Set liste = db.OpenRecordset("Utilisateurs")
ret = Environ("UserName")
liste.MoveFirst Do Until liste.EOF If liste.Fields("ID").Value = ret Then MsgBox "Utilisateur autorisé", vbDefaultButton1, "Connexion" form_hoofdmenu.Rappmenu.Visible = False GoTo 10 Else liste.MoveNext End If Loop MsgBox "Utilisateur non autorisé", vbCritical, "Pas de connexion possible" 10 liste.Close End Sub
