Code VBA qui ne fonctionne pas

Version imprimable

Bonjour,
J'ai ce code pour mon Formulaire Accueil
Code:

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:

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

06/11/2016, 09h32
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.
06/11/2016, 14h04
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 ?
06/11/2016, 21h30
DJOUFOU
Citation:

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:

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.

Citation:

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.
07/11/2016, 10h31
Iron_dams

Enable dans propriété?

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

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:

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:

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.

Pffff! j'ai tout essayé y compris les 2 solutions proposées par ROBIPMS, mais rien ne fonctionne. c'est bizarre quand meme.
je pense que l'utilisateur sera obligé de cliquer chaque fois sur actualiser tout chaque fois que Accueil s'ouvre. et voila ce que j'ai mis dans accueil

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Form_Current()
 
If Me.Niveau = 1 Then
Me.Chèques_autres_fournisseurs.Enabled = True
Me.Chèques_ACG.Enabled = True
Me.Confirmation_chèques.Enabled = True
Me.Paramètres.Enabled = True
Me.GDU.Enabled = True
Me.GB.Enabled = True
ElseIf Me.Niveau = 2 Then
Me.Chèques_autres_fournisseurs.Enabled = True
Me.Chèques_ACG.Enabled = True
Me.Confirmation_chèques.Enabled = True
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = True
ElseIf Me.Niveau = 3 Then
Me.Chèques_autres_fournisseurs.Enabled = False
Me.Chèques_ACG.Enabled = True
Me.Confirmation_chèques.Enabled = True
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = False
ElseIf Me.Niveau = 4 Then
Me.Chèques_autres_fournisseurs.Enabled = True
Me.Chèques_ACG.Enabled = False
Me.Confirmation_chèques.Enabled = True
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = False
ElseIf Me.Niveau = 5 Then
Me.Chèques_autres_fournisseurs.Enabled = True
Me.Chèques_ACG.Enabled = True
Me.Confirmation_chèques.Enabled = False
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = False
ElseIf Me.Niveau = 6 Then
Me.Chèques_autres_fournisseurs.Enabled = False
Me.Chèques_ACG.Enabled = True
Me.Confirmation_chèques.Enabled = False
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = False
ElseIf Me.Niveau = 7 Then
Me.Chèques_autres_fournisseurs.Enabled = True
Me.Chèques_ACG.Enabled = False
Me.Confirmation_chèques.Enabled = False
Me.Paramètres.Enabled = True
Me.GDU.Enabled = False
Me.GB.Enabled = False
End If
End Sub

j'espère que le code soit dans l'évènement sur ouverture ou sur activation du formulaire cela ne cause pas de problème?

merci encore

07/11/2016, 22h09
RobiPMS

Ne pourrais-tu pas zipper ta base et la poster, cela permettrait sans doute d'y voir plus clair et de trouver la solution...
08/11/2016, 17h50
DJOUFOU

il me semble que le fichier est trop lourd. il faisait 21.400ko et après compression il fait 17.021ko. Est ce que je ne pourrais pas te l'envoyer pa mail oubien c'est interdit par le forum?
10/11/2016, 10h56
RobiPMS

Tu peux la mettre sur dropbox ou onedrive, ou un autre cloud, et tu partage le lien. (par mp ou sur le forum)