Discussion :

[illight]

Bonjour,

en m'aidant de ce qu'il y a d'écrit dans la FAQ ici :

http://access.developpez.com/faq/?pa...ctModifChpForm


Je voudrais savoir comment faire pour identifier quel champ a été modifié.
En effet, j'ai un formulaire créé à partir d'une table (je suis allé sur la table et j'ai fait formulaire instantané).
Sur ce formulaire, je vais rajouter un bouton pour enregistrer les modifications, s'il y a en a.
De ce fait, je voudrais savoir comment faire pour savoir quel champ a été modifié. De cette façon, je pourrais faire un UPDATE derrière sur les champs qui ont été modifiés, ça m'évitera de reprendre tout

Quelqu'un sait comment faire ?

Merci par avance pour votre aide

[Lou Pitchoun]

Salut,

Un début de piste trouvé dans l'aide Access :

Code Aide 97 :

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

1
2
3
4
5
6
7
8
9
10
Sub btnAnnuler_Click()
	Dim ctlC As Control
	' Pour chacun des contrôles.
	For Each ctlC in Me.Controls
		If ctlC.TypeContrôle = acTextBox Then
			' Restaure l'ancienne valeur.
			ctlC.Valeur = ctlC.OldValue
		End If
	Next ctlC
End Sub

Il te suffirait donc de tester OldValue et Value.

[illight]

Cette ligne :

Code :

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

If ctlC.TypeContrôle = acTextBox Then

il ne l'a connait pas chez moi

Bon d'un autre coté j'en ai pas vraiment besoin, je n'ai que des zones de textes

Mais je comprend pas trop comment tester value et OldValue. Il faut que je garde l'ancienne valeur dans une variable ? et la nouvelle dans un autre ?

[Lou Pitchoun]

Foutue aide Access

Code :

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

1
2
 
ctl.ControlType = acTextBox

OldValue stocke l'ancienne valeur du textbox.
Il te reste donc à les comparer

Code :

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

1
2
 
If ctlC.Value <> ctlC.OldValue Then

[illight]

Ah non c'est bon ça marche

j'ai écrit ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CmdSave_Click()
Dim clt As Control
For Each clt In Me.Controls
    If clt.ControlType = acTextBox Then
        If clt.Value <> clt.OldValue Then
            MsgBox clt.Value '= clt.OldValue
            MsgBox clt.OldValue
        End If
    End If
Next clt
End Sub

et ça marche pas mal

Merci

J'ai juste encore un petit soucis. Ça marche pas si j'ai un champ que je passe à vide.
J'ai un champ en fait qui risque d'etre modifié, qui a une croix (un X quoi), et si l'utilisateur choisis de le modifier, il enlevera la croix et laissera le champ vide (l'inverse peut se produire aussi). A ce moment la, il ne voit pas que le champ a été modifié

Je viens de vérifier, il ne remarque pas si le champ passe de vide à "X", et il ne vois pas l'inverse, cad si le champ passe de "X" à vide.

Une idée de comment voir cette modification ?

Merci pour ton aide en tout cas. Tu m'a sorti une sacré épine du pied déja

[illight]

Foutue aide Access

Code :

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

1
2
 
ctl.ControlType = acTextBox

OldValue stocke l'ancienne valeur du textbox.
Il te reste donc à les comparer

Code :

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

1
2
 
If ctlC.Value <> ctlC.OldValue Then

Bah en fait c'est marrant, mais même le ControlType il ne connait pas enfin tu sais il est pas dans la liste, mais par contre il le reconnait..Très bizarre

[Lou Pitchoun]

J'ai juste encore un petit soucis. Ça marche pas si j'ai un champ que je passe à vide.
J'ai un champ en fait qui risque d'etre modifié, qui a une croix (un X quoi), et si l'utilisateur choisis de le modifier, il enlevera la croix et laissera le champ vide (l'inverse peut se produire aussi). A ce moment la, il ne voit pas que le champ a été modifié

Je viens de vérifier, il ne remarque pas si le champ passe de vide à "X", et il ne vois pas l'inverse, cad si le champ passe de "X" à vide.

Une idée de comment voir cette modification ?

Merci pour ton aide en tout cas. Tu m'a sorti une sacré épine du pied déja

Que vaut Value au moment de l'exécution du code lorsque ce champ est vide ?
C'est quand même bizarre qu'il ne voit pas le changement.

[illight]

Dans mon formulaire, je me suis fait un bouton de test, qui a le code au dessus. Qaund je change un champ de la zone de texte par une valeur, il me met les 2 MSgbox avec l'ancienne et la nouvelle valeur ça c'est OK

Quand je met un champ à vide, ou inversement que je met un champ vide à non vide, quand je clique sur le bouton...ben il se passe rien pas de msgbox rien du tout

Oui je confirme, c'est très bizarre. J'aurai préféré qu'il m'affiche une msgbox vide