Discussion :

[m_charmat]

Bonsoir,

Des fois j'ai besoin de mettre des champs utile [TexteXX] en les rendant invisible dans un formulaire pour pouvoir orienté mes codes.

Je me dit si un jour, un petit curieux réussi à supprimer un ou tous ces champs, ça affectera mon application et on peut être bloquer, alors je me disais s'il y a un moyen d'incorporer ces champ dans le VBA, pour les rendre inaccessible directement, car des fois on évite de toucher aux codes, au contraire pour les champs surtout ceux qui sont cacher.

L'idée d'interdire le clique droit dans les formulaires pour l'instant est exclu, car des fois je doit de modifier mes formulaires en cas de problème rapidement.

Exemple :
J'ai un champ [Texte61] que j'ai instalé dans un formulaire.

Code :

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

=RechDom("Priorite";"Rtbl_Employes";"[Login]=[txtLogin]")

Dans le VBA après mise à jour

Code :

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

1
2
3
4
5
If Me.Texte61=-1 Then
	Me.Texte63.Visible =True
Else
	Me.Texte63.Visible =False
End If

un code qui pourrais être comme ceci (par exemple), on demande un résultat et puis on oriente la procédure via à vie le résultat calculer.

Code :

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

1
2
3
4
5
6
7
Texte61 =RechDom("Priorite","Rtbl_Employes","[Login]=[txtLogin]")
 
	If Me.Texte61=-1 Then
	Me.Texte63.Visible =True
Else
	Me.Texte63.Visible =False
End If

Je vous remerci.

[jimbolion]

m_charmat,

Effectivement et à partir du moment on tu appelles une portion de code, l'utilisation de variables doit être inclue directement dans ta procédure. Cela te permettra en plus de mieux contrôler sa valeur (non nulle ou condition par exemple).

ainsi la transformation que tu proposes doit s'opérer ainsi :

Code :

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

1
2
3
4
5
6
7
8
 dim Priorite as boolean
Priorite =nz(RechDom("Priorite","Rtbl_Employes","[Login]=[txtLogin]",0)  
 
If Priorite =-1 Then
	Me.Texte63.Visible =True
Else
	Me.Texte63.Visible =False
End If

Tu peux si tu souhaites conserver certaines valeurs durant l'exécution de certains modules passer ces valeurs comme arguments voire utiliser des variables globales.

regarde la faq ici : http://access.developpez.com/faq/?page=Langage

et aussi

http://silkyroad.developpez.com/VBA/LesVariables/

Cordialement

Jimbolion