probleme SELECT CASE

**lio62** · 20/10/2023, 15h35

Bonjour,

pourquoi ce code ne s'occupe pas du select case cela ne fonctionne pas, sachant que les données (utilisateur BUDGET etc ), se trouve dans une liste modifiable sur le formulaire MENU

Code :

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

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
Private Sub VALIDER_Click()
 
 
 
 
    'Si l'identifiant ou le mot de passe n'est pas renseigné alors
    If IsNull(Me!TXTID) Or IsNull(Me!MDP) Then
        'Message
        MsgBox ("Renseigner les champs!")
        Me.TXTID.SetFocus
 
        'Sinon
    Else
        'Appel d'une variable
        Dim valide As String
        'Rechercher le mot de passe correspondant à l'identifiant
        If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")) Then
            MsgBox ("Identifiant inconnu !")
            Me.TXTID.SetFocus
            Me.TXTID = ""
        Else
            valide = DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
            'Si le mot de passe inscrit n'est pas correct alors
            If (Me!MDP <> valide) Or IsNull(Me!TXTID) Or IsNull(Me!MDP) Then
                'Message
                MsgBox ("Mot de Passe incorrect !")
                Me.MDP.SetFocus
                Me.MDP = ""
 
            End If
 
            securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
 
            Select Case securite
 
                Case "ADMIN"
                    DoCmd.Close acForm, "F_IDENTIFICATION"
                    'DoCmd.OpenForm "F_MENU"
 
                    Forms![F_MENU]!Modifiable73.Enabled = True
 
                    Forms![F_MENU]!connexion.Enabled = False
                    Forms![F_MENU]!deconnexion.Enabled = True
 
                Case "GESTPRIN"
                    DoCmd.Close acForm, "F_IDENTIFICATION"
                    DoCmd.OpenForm "F_MENU"
                    Forms![F_MENU]!Modifiable73.Enabled = True
                    'Forms![F_MENU]!BUDGET.Enabled = False
                    Forms![F_MENU]!Utilisateur.Enabled = False
                    'Forms![F_MENU]!CHANGER_MDP.Enabled = False
 
                Case "GESTSEC"
 
                    DoCmd.Close acForm, "F_IDENTIFICATION"
                    DoCmd.OpenForm "F_MENU"
 
                    Forms![F_MENU]!BUDGET.Enabled = False
                    Forms![F_MENU]!Utilisateur.Enabled = False
                    Forms![F_MENU]!MISSION.Enabled = False
                    Forms![F_MENU]!REPORTINGS.Enabled = False
                    'Forms![F_MENU]!CHANGER_MDP.Enabled = False
                    Forms![F_MENU]!commande47.Enabled = False
 
 
                    DoCmd.OpenForm "F_MENU"
 
 
                    Forms![F_MENU]!EDITION.Enabled = False
                    Forms![F_MENU]!BUDGET.Enabled = False
                    Forms![F_MENU]!Utilisateur.Enabled = False
                    Forms![F_MENU]!MISSION.Enabled = False
                    Forms![F_MENU]!REPORTINGS.Enabled = False
                    'Forms![F_MENU]!STATS.Enabled = False
                    Forms![F_Planning]!doléances.Enabled = False
                    Forms![F_Planning]!SPDA.Enabled = False
                    'Forms![F_MENU]!CHANGER_MDP.Enabled = False
 
 
                Case "SECRETARIAT"
 
 
                    DoCmd.Close acForm, "F_IDENTIFICATION"
                    DoCmd.OpenForm "F_MENU"
 
                    Forms![F_MENU]!EDITION.Enabled = False
                    Forms![F_MENU]!BUDGET.Enabled = False
                    Forms![F_MENU]!Utilisateur.Enabled = False
                    Forms![F_MENU]!MISSION.Enabled = False
                    Forms![F_MENU]!REPORTINGS.Enabled = False
                    'Forms![F_MENU]!STATS.Enabled = False
                Case Else
            End Select
 
            DoCmd.SetWarnings False
 
            'DoCmd.RunSQL (Insert)
            'Réactive les warnings DoCmd.RunSQL (Insert)
            DoCmd.SetWarnings True
            'Fermer le formulaire
 
 
 
        End If
    End If
 
 
 
End Sub

merci pour votre aide

**ONTAYG** · 20/10/2023, 16h09

Bonjour,

Ici :

Code :

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

  securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")

Il faut que tu sortes le test, si c'est une donnée de type numérique

Code :

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

  securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = " &  Forms!F_IDENTIFICATION!TXTID & "")

Car il cherche un ID qui se nomme : Forms!F_IDENTIFICATION!TXTID et non la valeur.

ONTAYG

**lio62** · 20/10/2023, 16h23

Bonjour ONTAYG

et merci de ton aide, j'ai une erreur 3464 type de données incompatibles dans l'expression du critère,
[ID] c'est du numérique TXTID aussi et utilisateur du texte( ADMIN ,GESTSEC etc)
que veut tu dire par

il faut que tu sortes le test

**ONTAYG** · 20/10/2023, 16h33

Re

Ce que je voulais c'est que tu sortes l'accès à ton champ.

Tu dis que c'est un chiffre, mais est-ce que le champ de ta table est de type texte ou numérique ?

ONTAYG

**lio62** · 20/10/2023, 16h50

Bien vu ID était rentré dans la table en texte court je l'ai changé pour du numerique je n'ai plus d'erreur mais il ne se passe rien

en fait je voudrais griser certains éléments de la liste modifiable

merci encore de ton aide

**tee_grandbois** · 20/10/2023, 18h38

bonsoir,

je l'ai changé pour du numerique je n'ai plus d'erreur mais il ne se passe rien

peut être reporter la correction également en lignes 18 et 23

**lio62** · 20/10/2023, 18h59

Bonsoir TEE GRANDBOIS

merci de ton aide

j'ai une erreur sur la ligne 18 attendu séparateur de liste ou) erreur de compilation

sur mon formulaire MENU je n'ai qu'une zone de liste modifiable avec a l'intérieur de cette liste (BUDGET, UTILISATEUR, REPORTINGS etc je voudrais en fonction des droits qu'il me grise tel ou tel élément de ma liste

merci de ton aide

cordialement

**tee_grandbois** · 20/10/2023, 21h42

j'ai une erreur sur la ligne 18 attendu séparateur de liste ou) erreur de compilation

sans le code modifié, je ne peux pas deviner mais d'après le message, il semble manquer une parenthèse fermante:

Code :

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

 If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] =" & Forms!F_IDENTIFICATION!TXTID)) Then

**lio62** · 21/10/2023, 11h16

Bonjour et merci TEE GRANDBOIS,

j'ai modifié le contenu de ma zone de liste et j'ai ajouté deux boutons,

c'est parfait, j'obtiens ce dont je voulais

merci à tous pour votre aide

cordialement

**tee_grandbois** · 21/10/2023, 18h17

bonsoir,
si tu considères que le sujet est clos, pense à cliquer sur le bouton

merci

probleme SELECT CASE

IHM

Discussions similaires

Partager

Partager