Discussion :

[picatchou]

Bonjour, je bloque sur un truc tout simple mais comme je ne maîtrise pas trop le code...
Voilà, j'aimerais que lorsque je saisis une donnée dans le champ1 d'un formulaire et que ce champ était vide avant et bien qu'un champ2 soit automatiquement rempli. Attention, je ne veux pas que le champ2 soit rempli si on fait un simple clic dans le champ1! Il faut vraiment que le champ1 soit saisi.
Pour le moment, j'ai écrit:

Code :

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

1
2
3
4
5
Private Sub Champ1_Enter()
If Me.Champ1 = "" Then
Me.Champ2 = "Saisi le " & Date
End If
End Sub

Mais rien ne se passe lorsque je rentre quelque chose dans le champ1! Ce qui est sans doute normal car je saisis quelque chose entre temps!
Merci de votre aide!

[Lou Pitchoun]

Salut,
Essaie plutôt sur l'évènement "Sur perte focus".

[Domi2]

Bonjour,

Essaie de placer ton code sur la propriété Après MAJ.

Et je ne suis pas sûr d'avoir très bien compris. Pourquoi fais-tu un test pour savoir si le champ1 n'était pas renseigné au préalable ?

Bonne journée.

Domi2

[picatchou]

Bonne question! A la base en fait, j'aimerais que ce champ2 se mette à jour si le champ1 est soit saisi une première fois, soit modifié. Or pour la modif, j'y arrive en faisant une procédure évenementielle "sur changement". Je voulais donc m'attaquer au problème de la première saisie dans le champ car malheureusement la procédure "sur changement" ne fait rien si on passe d'un champ vide à un champ rempli! C'est pour cela que je testai si le champ1 était vide ou pas!
Bref, je galère...
Sinon, j'ai essayé vos solutions mais ça ne marche pas non plus!
Du coup, je me suis rabattue sur quelque chose du type:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ReponseDevisClient_GotFocus()
a = Me.ReponseDevisClient
End Sub
 
Private Sub ReponseDevisClient_LostFocus()
b = Me.ReponseDevisClient
If a <> b Then
Me.DatesaisieReponseDevisClient = "Saisi le " & Date
End If
End Sub

Mais même lorsque a=b il met à jour le champ2! J'ai pourtant bien vérifié avec des msgbox les valeurs de a et b et elles sont identiques...
Help.........

[Domi2]

Re,

Je viens de tester cette simple ligne de code sur la propriété Après MAJ

Code :

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

1
2
3
4
5
Private Sub Texte1_AfterUpdate()
 
    Me.Texte2 = "Saisi le " & date
 
End Sub

Et ça fonctionne correctement si j'ai bien compris ce que tu cherches.

Si Texte1 est Null, Texte2 se met à jour.

Si Texte1 n'est pas Null, Texte2 se met à jour aussi.

Domi2

[picatchou]

Hello, je viens de tester: ça marche si je modifie le champ1 mais pas si j'entre quelque chose pour la première fois dans le champ1!!
C'est quand même bizarre non!

[Domi2]

Re,

Oui, bizarre...

Tu utilises bien la propriété Après MAJ ?

Pour le surplus, il serait bon de vérifier que le champ1 n'est pas Null

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Texte1_AfterUpdate()
 
    If Not IsNull(Champ1) Then
 
        Me.Texte2 = "Saisi le " & date
 
    End If
 
End Sub

Domi2