Discussion :

[craesys]

Salut tous le monde

Voila mon probleme

j'ai une base de données où il y a une table de paramètres avec deux colonnes
1 - NameMenu 2 - Droit
Menu_Fiche True
Menu_Etat TRue
Menu_Vente False
...

et sur le projet il y a les menu Menu_Fiche menu_Etat ......

dans le code je veux recupérer les données de la base et les traiter

Code :

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

1
2
3
4
5
 
While Not Rsi.EOF
Rsi.fields("Name_Menu").visible=Rsi.fields("Droit")
Rsi.MoveNext
Wend

et c'est normal qu'il y ait une erreur dans le code comme "Rsi.fields("Name_Menu")" c'est une chaine moi ce que cherche c'est à la convertir en objet par exemple : Menu_Fiche.visible= true



Merci d'avance de votre aide..............

[OhMonBato]

Voilà une possiblité :

Code :

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

1
2
3
4
5
6
7
8
 
Dim Mnu as Control
 
For Each Mnu in Me.Controls
  If Mnu.Caption = Rsi.fields("Name_Menu") and Rsi.fields("Droit") = False Then
    Mnu.Visible = False
  End If
Next

[ucfoutu]

Bonjour,

ou utilise la collection Contrrols

Code :

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

Controls(Rsi.fields("Name_Menu") ).visible = False

( controls("toto") se réfère au contrôle auant pour nom toto)

[craesys]

Bonjour tout le monde

Merci bcp ucfoutu
pour ton aide j'ai essayer avec "visible" sa marche

mais quand j'essai l'option "Caption" il me donne une erreur comme quoi l'objet ne gere pas cette fonction

Merci encore une fois

[ucfoutu]

A toi de gérer ...

La propriété Caption pour tel type, la propriété Text, pour tel autre, etc...
Sers-toi donc de TypeName pour connaître le type de Contrôle et choisis la proproété en conséquence (avec un select Case, par exemple)

essaye cette petite démo et tu vas vite comprendre :

Sur ta form, un label Label1 et une TextBox Text1
un bouton de commande Command1

ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
  agis Controls("label1")
  agis Controls("text1")
  agis Controls("Command1")
End Sub
 
Private Sub agis(ctrl As Control)
  Select Case TypeName(ctrl)
    Case "Label", "CommandButton"
      ctrl.Caption = "bonjour"
    Case "TextBox"
      ctrl.Text = "coucou"
    End Select
End Sub

Lance, clique sur Command1 et vois, analyse, comprends et utilise comme tu l'entends.
Il va de soi que tu peux compléter par les Case que tu veux...

[craesys]

Merci Bcp

vous avez raison j'avai une erreur de type de control :s

desolé

ca marche tres bien merci beaucoup Vous m'avez vraiment sauvez la vie