VBA OpenArgs Problemes ouverture 2nd Formulaire - Programmation
Ceci répond-il à votre question ? Oui | Non
Se connecter | Inscription
 

Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : VBA OpenArgs Problemes ouverture 2nd Formulaire
 
coldnight0 02
Profil : IDNaute
Plus d'informations
n°126265
25-04-2008 à 09:27:47

bonjour

J'ai un formulaire "identification" et un "menu"

Le but est de "sécuriser" mon programme pour que dès le démarrage puisse faire apparaitre le formulaire identification.

Apres identification, faut faire apparaitre le fichier menu mais avec des restrictions.

Voilà les codes VBA :

identification :

Code :
  1. Option Compare Database
  4. Private Sub btn_ok_click()
  6. Dim rslogin As DAO.Recordset
  7. Set rslogin = CurrentDb.OpenRecordset("SELECT * FROM DIRECTION WHERE NOM_DIRECTION=' " & Me.LDR_LOGIN & " ' AND MDP_DIRECTION=' " & Me.LDR_MDP & " ';" )
  9. If Not rslogin.EOF Then
  10. DoCmd.OpenForm "Menu", , , , , , rs!role
  11. DoCmd.Close acForm, "identification"
  12. Else
  13. MsgBox "ERREUR LOGIN OU MOT DE PASSE"
  14. End If
  16. rslogin.Close
  17. End Sub



menu :

Code :
  1. Option Compare Database
  3. '*********************************************************************************************
  4. ' MODULES EVENEMENTIELS
  5. '*********************************************************************************************
  7. '---------------------------------------------------------------------------------------------
  8. ' sur le clic du bouton "Etat de frais" : ouvre le formulaire de la gestion des états de frais
  9. '---------------------------------------------------------------------------------------------
  10. Private Sub btn_formEtatFrais_Click()
  11.     DoCmd.OpenForm "etatDeFrais"
  12. End Sub
  14. '---------------------------------------------------------------------------------------------
  15. ' sur le clic du bouton "Session" : ouvre le formulaire de la gestion des sessions
  16. '---------------------------------------------------------------------------------------------
  17. Private Sub btn_Session_Click()
  18.     DoCmd.OpenForm "gestionSessions"
  19. End Sub
  21. '---------------------------------------------------------------------------------------------
  22. ' sur le clic du bouton "Inscription" : ouvre le formulaire de la saisie des inscriptions
  23. '---------------------------------------------------------------------------------------------
  24. Private Sub btn_Inscription_Click()
  25.     DoCmd.OpenForm "saisieInscriptions"
  26. End Sub
  28. '---------------------------------------------------------------------------------------------
  29. ' sur le clic du bouton "Présence" : ouvre le formulaire de la saisie des présences
  30. '---------------------------------------------------------------------------------------------
  31. Private Sub btn_Presence_Click()
  32.     DoCmd.OpenForm "saisiePresence"
  33. End Sub
  35. Private Sub Form_Open(Cancel As Integer)
  37. Dim role As String
  38. role = OpenArgs
  39. Me.btn_Session.Enabled = (role = "DRH" ) Or (role = "FORMATION" )
  40. Me.btn_Inscription.Enabled = (role = "DRH" ) Or (role = "INSCRIPTION" )
  41. Me.btn_Presence.Enabled = (role = "DRH" ) Or (role = "GESTION" )
  42. Me.btn_formEtatFrais.Enabled = (role = "DRH" ) Or (role = "GESTION" )
  44. End Sub



Le débug dit qu'il y a une erreur au niveau de role = OpenArgs...

Une solution? merci


Message édité par coldnight0 02 le 25-04-2008 à 09:28:52
Liens

gillou_gre
Les gens qui généralisent sont tous des cons.
Profil : IDNaute
Plus d'informations
n°126274
25-04-2008 à 12:18:22

Salut, Coldnight002

OpenArgs n'est pas une variable globale, c'est une propriété attachée à chaque formulaire ouvert. Il convient donc de préciser le formulaire dont tu souhaites connaître l' "OpenArgs".

Code :
  1. role=Me.OpenArgs



Bonne continuation


Aller à :
Ajouter une réponse
  FORUM Infos-du-Net » Programmation » VBA OpenArgs Problemes ouverture 2nd Formulaire
 

Plan du forum
Forum MesDiscussions.Net, Version 2007.1.2
© 2000-2007 No1Dev
Page générée en 1.387 secondes
Liens