Discussion :

[DJOUFOU]

Bonjour,
J'ai ce code pour mon Formulaire Accueil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Current()
If Me.Niveau = 3 Then
Me.Chèques_autres_fournisseurs.Enabled = False
ElseIf Me.Niveau = 4 Then
Me.Chèques_ACG.Enabled = False
End If
End Sub

Le formulaire s'ouvre lorsque je clic sur le bouton valider de ma boite de connexion dont voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande6_Click()
If [login] = "" Or [mdp] = "" Then
MsgBox "Veuillez renseigner tous les champs.", vbOKOnly, "FreeMan connexion"
ElseIf StrComp([Conca], [connexionconcatener], vbBinaryCompare) = 0 Then
Me.Visible = False
DoCmd.OpenForm "Accueil"
Forms("Accueil").user = Me.Utilisateur
Forms("Accueil").Niveau = Me.Niveau
Else
MsgBox "Identifiants incorrects. Veuillez réessayer.", vbInformation + vbOKOnly, "FreeMan Connexion"
End If
End Sub

le problème se trouve avec le formulaire ACCUEIL qui marche pas. Quand je clic sur le bouton valider de connexion, le formulaire Accueil s'ouvre mais le code ne fonctionne pas correctement.
Bizarrement quand je passe en mode creation avant de revenir en mode formulaire, ça marche.
Etant donné que l'utilisateur ne pourra pas passer en mode creation, il faut que je trouve une solution.
Merci de m'aider a comprendre pourquoi mon code ne marche pas.

Merci d'avance

[RobiPMS]

Bonjour.
Tu ne précises pas ce qui "ne marche pas"! J'imagine que ce sont les instructions en lignes 7 et 8... Essaie un Refresh du formulaire accueil après la ligne 8.
Cordialement.

[Zekraoui_Jakani]

Effectivement, qu'est-ce qui ne fonctionne pas ? le bug se situe à quelle ligne ? et dans quelle partie du module ?
PS: est-ce que "niveau" est défini comme texte ou comme nombre ?

[DJOUFOU]

Tu ne précises pas ce qui "ne marche pas"! J'imagine que ce sont les instructions en lignes 7 et 8... Essaie un Refresh du formulaire accueil après la ligne 8.
Cordialement.

Bien j'essayerais d'être pus explicite. les utilisateurs se connectent a partir du formulaire connexion. Chaque utilisateur a un niveau allant de 1 a 7 qui lui donne droit a certains contrôles. Dès que le login et le MDP sont bons, le formulaire Accueil s'ouvre et en fonction du niveau de l'utilisateur va rendre actif ou non actif certains onglets.
Mais le problème, le formulaire Accueil ne désactive pas certains onglets à l'ouverture comme le veut le code VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Current()
If Me.Niveau = 3 Then
Me.Chèques_autres_fournisseurs.Enabled = False
ElseIf Me.Niveau = 4 Then
Me.Chèques_ACG.Enabled = False
End If
End Sub

le code ne fonctionne que lorsque je passe du mode création au mode formulaire, là ça fonctionne correctement. les onglets qui doivent être désactivés le sont et ceux qui doivent restés actifs le sont aussi.

est-ce que "niveau" est défini comme texte ou comme nombre ?

Niveau dans le formulaire accueil est un textbox indépendant qui accueil des nombres. dans la Table utilisateurs c'est un champ calculé.

Merci.
je l'ai mis dans l'évènement sur ouverture du formulaire, rien, je l'ai mis dans l'évènement sur activation du formulaire, rien.

[Iron_dams]

As-tu essayer de désactiver tous les onglets de ton formulaire et les activer à la connexion. Quand je parle de les désactiver, je veux dire dans les propriétés, comme ça, par défaut ils sont désactivés.

I_D

[RobiPMS]

Après ton complément d'information, il me semble évident que le problème se situe au niveau de la chronologie des événements :
1. Tu ouvres le Formulaire d'accueil après par clic sur le bouton de ta boîte de connexion.
2. les événements liés à l'ouverture du formulaire d'accueil se déroulent : or, à ce moment, la valeur de niveau n'est pas encore attribuée!
3. Les valeurs du User et Niveau sont attribuées : pas d'effet, puisque les If .... ElseIf... ont déjà été évalués.
Donc un refresh après attribution des valeurs est nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DoCmd.OpenForm "Accueil"
Forms("Accueil").user = Me.Utilisateur
Forms("Accueil").Niveau = Me.Niveau
Forms("Accueil").Refresh

Au pire tu pourrais ouvrir en mode création et refermer aussitôt, ce qui réglerait sans doute ton souci, mais d'une manière qui s'apparente plus à de la "bidouille".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
DoCmd.OpenForm "Accueil"
Forms("Accueil").user = Me.Utilisateur
Forms("Accueil").Niveau = Me.Niveau
DoCmd.OpenForm "Accueil", acDesign
DoCmd.Close acForm, "Accueil", acSaveNo
DoCmd.OpenForm "Accueil", acNormal

Cordialement.