Discussion :

[yannick9]

Bonjour,

Je dispose de 2 zones de texte que l'on va nommer 'A' et 'B' pour l'illustration, dans un formulaire 'F'. La zone 'B' est inactive (champ grisé) et la zone 'A' est active.
Je voudrais, par une procédure évènementielle, que lorsque je commence à écrire dans la zone 'A', la zone 'B' soit automatiquement activée.

Je pensais que la procédure permettant de réaliser cela était 'sur changement' dans Access, mais ça ne fonctionne pas:

lorsque je saisis le caractère 'j' dans ma zone A, par exemple, je lis la valeur de 'A' dans la procédure sur changement à l'aide d'un debug.print et il m'affiche 'Null' !!

Me suis-je trompé de procédure? Si oui, sauriez-vous qu'elle est celle qu'il faut utiliser? Si non, ai-je commis une erreur de raisonnement? Merci d'avance

[Renardo]

essai sur touche activee

Code :

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

1
2
3
Private Sub A_KeyPress(KeyAscii As Integer)
Me.B.Enabled = True
End Sub

[yannick9]

Bonjour,

effectivement ça fonctionne. Merci.
J'ai un autre problème maintenant: je voudrais que lorsque l'on efface ce que l'on a écrit dans la zone 'A', la zone 'B' soit automatiquement désactivée.
Exemple: j'écris 'j' dans la zone 'A', 'B' s'active. J'efface ce caractère 'j' et B se désactive.

J'ai essayé le code suivant:

Code :

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

1
2
3
4
if  ((Me!A <> "") And Not (IsNull(A))) Then
    B.enabled = true
else
    B.enabled = false

mais ça ne fonctionne pas!
Voyez-vous une erreur dans le code?

[Renardo]

essai comme sa

Code :

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

1
2
3
4
5
Private Sub A_AfterUpdate()
If IsNull(Me.A) Then
Me.B.Enabled = False
End If
End Sub

[yannick9]

Merci mais j'ai testé et ça ne fonctionne que lorsque la zone perd le focus. Pour que la zone se désactive ou s'active grace à AfterUpdate, il faut que je sélectionne un autre controle.
Or je voudrais que dès que l'on saisit un caractère dans la zone 'A', la zone 'B' s'active immédiatement, et lorsque je supprime le contenu de la zone 'A', la zone 'B' soit immédiatement désactivée, sans que la sélection d'une autre zone ne soit nécessaire.
Peut ètre qu'Acces ne le permet pas. Est-ce réalisable selon vous?

[Renardo]

je ne voit pas trop comment faire mais quelqu'un d'autre aura peut etre une idee

[yannick9]

D'accord j'attends les autres suggestions car c'est plutot urgent! En tout cas, merci d'avoir essayer de m'aider

[Faw]

Essaye comme ça si ça te va

Code :

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

1
2
3
4
5
6
7
Private Sub A_Change()
If Not (IsNull(Me.A.Text)) And (Me.A.Text <> "") Then
Me.B.Enabled = True
Else
Me.B.Enabled = False
End If
End Sub

[yannick9]

En effet ça marche parfaitement!! Merci beaucoup