Discussion :

[ruman]

Bonjour,

Je ne parviens pas à me débarasser proprement d'un problème. Je code en vba dans Access et j'utilise les modules de classe.

Au sein de d'un module de classe d'un formulaire j'ai créé une fonction privée. Le problème c'est qu'à son premier appel el message suivant s'affiche :
Ce code n'est pas connu. Vérifiez que vous n'avez pas fait d'erreur de saisie, mettez la liste des codes à jour ou saisissez manuellement le code.

Code de la procédure sur clic appellant la fonction :

Code :

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

1
2
3
Private Sub Doc_Click()
    Call DocColor
End Sub

Code de la fonction DocColor dans le même module de classe :

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
Private Function DocColor()
    ' Fonction d'activation ou de désactivation de la zone de saisie des données de document
    If Me!Doc = True Then
        Me![LanceDoc Étiquette].ForeColor = 10092543
        Me!LanceDoc.Locked = False
        Me!LanceDoc.TabStop = True
        Me![ValidDoc Étiquette].ForeColor = 10092543
        Me!ValidDoc.Locked = False
        Me!ValidDoc.TabStop = True
    Else
        Me![LanceDoc Étiquette].ForeColor = 12632256
        Me!LanceDoc.Locked = True
        Me!LanceDoc.TabStop = False
        Me![ValidDoc Étiquette].ForeColor = 12632256
        Me!ValidDoc.Locked = True
        Me!ValidDoc.TabStop = False
    End If
End Function

Mais après validation, tout fonctionne correctement jusqu'à l'ouverture suivante du formulaire.

Que puis-je faire pour ne pas avoir ce message?

[boubignole]

Salut

Sans le code ça va etre dur de t'aider...

[ruman]

Message original édité.

[boubignole]

Tu as essayé de déclarer la fonction en public ?

[ruman]

OUi, qu'elle soit Public ou Private, le résultat est le même. Par contre si je met cette fonction dans un module hors du formulaire je n'ai plus de message d'erreur... mais c'est moins propre vu qu'elle ne sera utilisé que pour ce formulaire.

[argyronet]

Bonjour,

1/ Il est possible que tu aies une erreur de compilation ailleurs...
As-tu essayé de compiler ton projet ?

2/ Si tu veux rendre générique ton appel:
a) Nomme correctement tes contrôles (une case à cocher ne s'appelle pas Doc mais chkDoc ou cocherDoc)
b) Evite les espaces dans les noms, ça t'évite les crochets

Essaye aussi 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
15
16
17
18
19
20
21
Option Compare Database
Option Explicit
 
Const COULEURINACTIVE As Long = 12632256
Const COULEURACTIVE As Long = 10092543
 
Private Sub chkDoc_Click()
    If Me!chkDoc Then
      DocColor COULEURACTIVE, True, LanceDoc_Étiquette, LanceDoc
      DocColor COULEURACTIVE, True, ValidDoc_Étiquette, ValidDoc
    Else
      DocColor COULEURINACTIVE, False, LanceDoc_Étiquette, LanceDoc
      DocColor COULEURINACTIVE, False, ValidDoc_Étiquette, ValidDoc
    End If
End Sub
 
Private Sub DocColor(Couleur As Long, Verrouille As Boolean, Etiquette As Label, Texte As TextBox)
    Etiquette.ForeColor = Couleur
    Texte.Locked = Not Verrouille
    Texte.TabStop = Verrouille
End Sub

Argy

[ruman]

Merci pour tes propositions,

1/ J'ai compilé sans erreurs tous les modules.

2/Les espaces dans les noms sont attribués automatiquement et je ne les ai pas remplacé. D'ailleurs si j'essai des les remplacer par des _ ce dernier disparait pour redevenit un espace.
Du point de vue du nomage du contrôle, effectivement ce n'est pas forcément le plus adapté mais cela ne doit pas poser de problème, je pense.

[argyronet]

D'ailleurs si j'essai des les remplacer par des _ ce dernier disparait pour redevenit un espace.

Il est impossible que tu ne puisses pas reniommer un Label ni tout autre Contrôle d'ailleurs...

Bon, et tu as essayer cette procédure (celle que je t'ai envoyé) dans un nouveau formulaire doté d'une simple case à cocher, et deux Textbox labelisés comme il se doit ?
Parce que chez moi, même ton code fonctionne, donc ce n'est pas là le problème mais plutôt dans l'objet qui constitue le tout...

Argy

[Arkham46]

Slt,

Le problème c'est qu'à son premier appel el message suivant s'affiche :
Ce code n'est pas connu. Vérifiez que vous n'avez pas fait d'erreur de saisie, mettez la liste des codes à jour ou saisissez manuellement le code.

c'est un message standard ça??

j'ai pas souvenir de l'avoir vu quelque part.

t'as pas une procédure spécifique de validation des données?

Par contre si je met cette fonction dans un module hors du formulaire je n'ai plus de message d'erreur...

si tu sors le code du module de classe du formulaire ça ne peut plus marcher, tu n'as plus accès au ME

[keita]

salut
Ne s'agirait il pas ici des codes de couleur; à ne pas faire quiproquo avec le code VBA; sinon:
Arkham46 à ecrit:

c'est un message standard ça??

j'ai pas souvenir de l'avoir vu quelque part.

t'as pas une procédure spécifique de validation des données?

Citation:

Par contre si je met cette fonction dans un module hors du formulaire je n'ai plus de message d'erreur...

si tu sors le code du module de classe du formulaire ça ne peut plus marcher, tu n'as plus accès au ME

Tout à fait d'accord avec ça.
Pourquoi ne pas essayer avec les fonctions standards de couleur

Code :

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

Me![LanceDoc Étiquette].ForeColor = RVB(int, int, int)

ou

Code :

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

Me![LanceDoc Étiquette].ForeColor = QBColor(Byte entre 1 et 15)

ou ce que propose argyronet qui fait plus pro.
@+

[ruman]

Merci de votre aide.

Il est impossible que tu ne puisses pas reniommer un Label ni tout autre Contrôle d'ailleurs...

Je peux effectivement le renommer mais pas ajouter simplement un _. En remplaçant "Étiquette" par "Et" par contre cela fonctionne. Je pense donc que c'est lié au nommage automatique d'access.

si tu sors le code du module de classe du formulaire ça ne peut plus marcher, tu n'as plus accès au ME

Bien sûr que pour le faire fonctionner je remplace les Me! par Form!NomForm.

Bon, et tu as essayer cette procédure (celle que je t'ai envoyé) dans un nouveau formulaire doté d'une simple case à cocher, et deux Textbox labelisés comme il se doit ?

J'ai essayé ce matin d'une part d'utiliser ton code dans un nouveau formulaire => pas de message, d'autre part d'utiliser ton code dans mon formulaire => là j'ai le message.

J'ai beau comparer les deux formulaires (celui qréé pour le test et l'ancien) je ne vois pas de différence pouvant expliquer cet écart de fonctionnement.

[ruman]

c'est un message standard ça??

j'ai pas souvenir de l'avoir vu quelque part.

C'est bien mon problème, je ne trouve aucune référence sur le net pour ce type de message.

[argyronet]

Re,

Si tu veux résoudre ton problème, j'aimerais que tu me dises si dans une BDD Vide que tu créés, tu y mets un Formulaire vierge appelé Formulaire1 (puisque tu apprécies particulièrement les noms délivrés par défaut par Access ) doté de 2 Textboxes nommées LanceDoc et ValidDoc avec leurs étiquettes LanceDoc_Etiquette et ValidDoc_Etiquette et un case à cocher nommée chkDoc ça fonctionne.

Je soupçonne fortement que tu as un conflit de noms quelque part...
Chez moi, dans "Les Comptoirs", ton code fonctionne.
Bien entendu, je me suis permis de te proposer une version générique mieux maléable mais cela ne change rien en fait...

Argy

[ruman]

Argh, Je viens de faire exactement ce que tu me demandes ci-dessus Argy.
Et bien maintenant j'ai une "erreur 13 : Type incompatible" sur la ligne

Code :

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

DocColor COULEURACTIVE, True, LanceDoc_Etiquette, LanceDoc

En mode déboguage, LanceDoc a une valeur (Null, 0 ou -1) et pas LanceDoc_Etiquette (c'est normal puisque c'est une étiquette).

Je travailles sur Access 97. J'ai également essayé sur Access 2000 avec le même résultat.

Je ne comprends pas à quoi c'est dû.

[argyronet]

Mouais, ben c'est génial car une erreur 13 c'est une vraie erreur...
En fait le type incompatible vient du fait qu'on exploite un contrôle comme paramètre...

Bon j'ai retrouvé un VMWare avec 97 et j'ai testé:
Ca marche très bien:
Clique ici...

Je pense que tu as un schmilblick dans ton projet...

Argy

[ruman]

Merci,

Je vais voir cela lundi quand je serrais de retour au boulot. ;-)

Que veut dire VMWare?

[argyronet]

Que veut dire VMWare?

VMWare est un logiciel d'environnement virtuel de Windows.
Je les utilise pour tester les différentes configurations d'un système et d'une version à l'autre.
J'en ai plusieurs dont un avec Windows XP et Office 97 ce qui permet en quelques secondes de connaître un dysfonctionnement ou une compatibilité...

Argy

[ruman]

Merci Argy, je vais m'y intéresser. Ca a l'air pratique.

Depuis ce matin je bidouille dans tous les sens en reprenant ton code et les miens.

J'ai trouvé d'où venait l'erreur 13, c'est que je faisais le test avec des checkbox et toi avec des textbox. Donc incompatibilité de type.

J'ai finalement trouvé d'où vient mon code inconnu... et là j'ai honte
C'est en fait un autre contrôle sur lequel j'avais une action "sur sortie" et pour lequel j'avais pondu ce message d'erreur qui ne veut pas dire grand chose hors du contexte. Comme ce contrôle était sélectionné à l'activation du formulaire, dès que je voulais cocher une checkbox, le code se lancait et ne trouvait pas la valeur attendue : d'où le message.

Je m'excuse pour le temps que je vous ai fait perdre. Mais en tout cas moi je n'ai pas perdu le mien car j'ai profité de vos conseils pour remodeler mon code plus proprement.