Tom's Guide > Forum > Programmation > VBA OpenArgs Problemes ouverture 2nd Formulaire

VBA OpenArgs Problemes ouverture 2nd Formulaire

Forum Programmation : VBA OpenArgs Problemes ouverture 2nd Formulaire

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
coldnight002   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 coldnight002 le 25-04-2008 à 09:28:52
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
gillou_gre   25-04-2008 à 12:18:22
- 0 +

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

Répondre à gillou_gre
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > VBA OpenArgs Problemes ouverture 2nd Formulaire
Aller à :

Il y a 2824 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,368 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens