[AC-2007] gestion touche entrée [Résolu]

[sylv20]

Bonjour,

Au risque de répéter mais je n'est rien trouver sur le net, seulement une piste.

J'ai un formulaire avec une liste déroulante (via une requete) et un bouton OK.

En appuyant sur OK, j'ouvre un autre formulaire avec les data relative à la sélection de ma liste. Je voudrais qu'il se passe la même chose mais en appuyant sur la touche entrée.

Pour le moment voila ce que j'ai sur ma liste déroulante :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Modifiable121_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If IsNull(Modifiable121.Column(0)) Then
        MsgBox "Veuillez entrer un numéro proto valide"
        Else
        DoCmd.OpenForm "Fiche tracteur"
        End If
    End If
End Sub

Ce qui est bizarre, dès que j'appuie sur entrée j'ai un enregistrement vide. La deuxième fois que j'appuie ca marche. Une histoirede focus mais je ne comprend rien à cette histoire.

Question complémentaire : Qu'est ce que le focus dans access ?

Merci

[argyronet]

Bonjour,

L'histoire du focus, comme tu dis se traduit par le fait que le contrôle doit avoir le focus si tu veux appuyer sur Entrée et déclencher quelque chose depuis ce même contrôle.

Par ailleurs, il te faut une condition Where, sans quoi tu ne peux ouvrir le formulaire sur le proto sélectionné.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub cboProtoList_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If IsNull(Me!cboProtoList) Then
            MsgBox "Veuillez entrer un numéro proto dans la liste !"
            cboProtoList.SetFocus
            cboProtoList.Dropdown
        Else
            DoCmd.OpenForm "Fiche tracteur", , , "[IDProto]=" & Me!cboProtoList
        End If
    End If
End Sub

J'ai nommé le contrôle et il t'est recommandé de faire de même pour tous tes objets.

Le Focus définit le fait qu'un contrôle est prêt à être sollicité (est généralement en surbrillance) en y ajoutant des données ou en lui appliquant des propriétés en général avec le clavier.
Par exemple, une case à cocher qui possède le focus peut voir son état coché en appuyant sur le touche espace.

Argy

[sylv20]

Je ne comprend pas ca fait pareil.

J'ai mis le focus sur le modifiable121 dès le form load (comme cela le curseur est directement dans la case).

J'ai simplifié au maximum le code :

Code :

1
2
3
4
5
6
7
Private Sub Modifiable121_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyReturn Then
 
            DoCmd.OpenForm "Fiche tracteur", , , "[Numéro Proto]=" & Me!Modifiable121.Value
        End If
End Sub

"Numéro Proto" est le nom du champ (et clé primaire) de ma table fiche tracteur.

Voila l'erreru que j'ai en image jointe.

[argyronet]

Si tu poses le .Value, cela signifie que la valeur numérique correspondante (Column(0) ?) doit être numérique... S'il s'agit d'un String, il doit être entre quotes ;
mais du fait que je lise Numéro Proto, je suppose que c'est un numérique donc tu dois écrire :

Code :

DoCmd.OpenForm "Fiche tracteur", , , "[Numéro Proto]=" & Me!Modifiable121.Column(X)

où X représente le N° de colonne de la valeur numérique correspondante...
Et je réitère ma remarque, nomme tes contrôles, Modifiable121, ça ne signifie rien.

Argy

[samloba]

Salut sylv20
Je prends le train en marche et je ne suis pas sûr de bien comprendre
Mais je crois que ce que tu veux faire, c'est choisir une valeur dans ta liste déroulante et ensuite affiché un formulaire avec le bouton OK. Pourtant tu peux faire plus simple et plus rapide.
Mets simplement ton code dans l’évènement "Après Màj" de ton combo, dès qu'une valeur sera choisie, le formulaire s'ouvrira

[argyronet]

samloba, tu n'as pas lu sa requête initiale...

Envoyé par sylv20

Je voudrais qu'il se passe la même chose mais en appuyant sur la touche entrée.

Ceci dit, cela peut en quelque sorte contraindre à utiliser conjointement la souris et le clavier... ce qui est peu pratique.
Donc l'AfterUpdate reste idéal sauf si la demande initiale est justifiée par un temps nécessaire avant validation.

Argy

[sylv20]

C'esst beaucoup mieux comme ca. Je ne connaissais pas afterupdate.

MErci pour tout.