Discussion :

[pietra5]

Bonjour, ja'i 1 probleme que je ne sais faire en VBA, j'ai un formulaire basé sur 1 table qui contien des enregistrements avec 1 identifiant format txt de 1à 1000 et j'ai 1 autre formulaire qui contient des zones de texte nommées de 1 à 1000et avec des fonds de couleur differnt sauf blanc. Je veux que quand je suis sur un enregistrement du formulaire 1 la zone de texte du formulaire 2correspondante c'est à dire portant le meme nom que son identifiant, ait une couleur de fond blanche et quand je sors de l'enregistrement la zone de texte reprenne sa couleur initiale. J'espere que quelqu'un va pouvoir m'aider car c'est pour une association et c'est tres urgent MErci d'avance

[Domi2]

Bonjour,

Je ne crois pas que c'est en ouvrant une énième discussion sur le même sujet que tu vas avoir d'autres réponses que celles que tu as déjà eues.

1000 zones de texte sur un formulaire ?

Tu as essayé l'outil d'analyse (Menu Outil ==> Analyse)... Il dit quoi à ce sujet ?

Domi2

[galaad666]

alors la proprieté à changer est la propriete .BackColor et je pense si j ai tout compris que tu dois mettre le changement dans l evenement getfocus et lostfocus de ton formulaire

[helas]

Le formulaire 1 est en affichage continu et le formulaire 2 en affichage unique.

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
 
Dim couleur As Long, controle As String
 
Private Sub Form_Current()
 
 'couleur d'origine
 If controle <> "" Then Forms("NomFormulaire2")(controle).BackColor = couleur
 
 'mémorisation du controle et de sa couleur
 controle = Me!identifiant
 couleur = Forms("NomFormulaire2")(controle).BackColor
 
 'fond blanc
 Forms("NomFormulaire2")(controle).BackColor = 16777215
End Sub

[cafeine]

Pietra5> C'est la cinquième fois que tu poses cette question, c'est strictement interdit. Merci de ne pas faire de multi-post.

[pietra5]

alors la proprieté à changer est la propriete .BackColor et je pense si j ai tout compris que tu dois mettre le changement dans l evenement getfocus et lostfocus de ton formulaire

o

oui c'est cela

[helas]

Pour moi cela fonctionne parfaitement

Essaie les autres evenements du formulaire.
La définition des variables doit être fait à l'exterieur de la procedure sinon les données sont perdues