Discussion :

[BaRonm3]

Bonjour,

J'ai actuellement une base de donnée sous access 2000, elle est composée de plusieurs formulaires, et je souhaiterai que dés qu'une modification est effectuée sur une liste modifiable ou une case a cocher, qu'une zone de texte se masque. Comment pourrait-on détecter ces modifications a l'aide du code?

[guigui5931]

Moi j'ai déja fait un truc du genre

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
 
Global change As Boolean
 
Public Sub mettreOnChange(formulaire)
    Dim i As Integer
    For i = 0 To Forms(formulaire).Count - 1
        With Forms(formulaire).Controls(i)
           .OnChange = "=changement(true)"
        End With
    Next i
End Sub
 
Public Function changement(d As Boolean)
    change = d
End Function

et après dans ton code test la valeur du falg change

[BaRonm3]

Tu souhaite que je mette cette partie de code dans un module ?

[guigui5931]

Oui il faut que tu la mette dans un module et que dans le Load de ton formualire tu mette

Code :

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

1
2
 
mettreOnChange ("nom du formulaire"

J'ai oublié de te dire que si ton formulaire contient des CheckBox tu doit remplacer cette ligne

Code :

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

1
2
 
.OnChange = "=changement(true)"

par celle la

Code :

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

1
2
 
.AfterUpdate= "=changement(true)"

[BaRonm3]

Quand je Load le formulaire, avec la ligne :

.AfterUpdate= "=changement(true)"

Y me dit probléme d'exécution 438, "propriéte ou méthode non gérée par cet objet". Et comment je fais pour qu'une zone de texte ce masque lorsqu'il a détecter une modification ?

[guigui5931]

En fet jtexplique ce que j'avais fait. J'avais renommé tous mes composants de façon à pouvoir en ayant leur nom déterminer leurs natures (les noms des zones de texte commençait par TXB, les listes par LST) et ça me permettait de faire le .AfterUpdate= "=changement(true)" pour tous les champs sauf les Labels (Etiquette). C'est ça qui doit te faire planter.
Il y a peut etre une propriété de l'objet Control qui permet de savoir quel est le type du composent mais je ne la connais pas.
J'espère que je suis compréhensible

Si tu arrive a le faire marcher tu n'auras plus qu'a faire ça pour déactiver la zone texte

Code :

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

1
2
3
4
 
if (change=true)then
    montexte.Enabled=false
end if

[BaRonm3]

Je joint ci dessous un aperçu de ce que je souhaite faire

[guigui5931]

Pour masquer ta zone de texte tu peut faire

Code :

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

1
2
 
montexte.visible=false

et pour détecter le changement vu que tu n'a pas beacoup de composant tu peut mettre dans l'AfterUpdate de chacun la ligne que je viens de te donner

[BaRonm3]

C'est une idée de mettre AfterUpdate pour chaque composants, mais le probléme c'est que ma base de donée est composé d'une trentaine de formulaires donc sa fait un peu long a faire, en plus y a pas les mêmes composants dans chaque formulaires.

Je pensais que l'on pouvais détecter un changement sur le formulaire facilement, car pour l'instant j'ai une grande zone de texte que je place devant tous ces composants, et quand je passe avec la souris cela masque la zone de texte. Mais bon c'est pas une méthode trop propre

[FRED.G]

Regarde du côte de la propriété et de l'événément Dirty du formulaire. Par contre je ne sais plus si c'est utile pour les form indépendants.

[BaRonm3]

J'ai essayer de trouver quelque chose sur l'événement Dirty, mais j'ai pas trouvé comment m'en servir pour mon probléme. Donc si quelqu'un a une idée comment détecter un changement sur un formulaire a l'aide l'événement dirty, merci de me la faire parvenir.