Discussion :

[aimejielle]

bonjour,
je viens de réalisé une base de donnée comportant 3 tables relié chacune entre elle et cela marche très bien. la première table est la table commande la deuxième est la table produit et la troisième est la table description du produit.
Mais pour saisir mes donnée j'ai crééer un formuliare avec deux sous formulaire logique.
le passage du formulaire lorsque le dernier champ de celui ci est rempli au premier champs du premier sous formulaire pas de problème ça marche. la ou ça ce gate c'est lorsque j'arrive au dernier champ du premier sous formulaire le passage au premier champ du deuxième sous formulaire ne ce fait pas le curseur tourne en rond dans le premier sous formulaire et je suis obligé de cliquer dans le premier champs de mon deuxième sous formulaire pour avancer.

comment peut on passer d'un premier sous formulaire à un deuxième sous formulaire

merci d'avance de votre lumière.

[marot_r]

J'ai eu un cas semblable et je l'ai gérer avec du code.

Sur mon dernier champ de saisie, je capture l'événement Key_down. Je teste si c'est vbTab et si je suis sur un nouvel enr ou sur le dernier enr de mon form et j'envoie le focus sur le prochain sous-form.

Je procède de façon similaire pour le shift-tab, voici le code pour Shit-tab

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Libelle_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim shiftEnfonce As Boolean: shiftEnfonce = (Shift And acShiftMask)
    Dim altEnfonce As Boolean: altEnfonce = (Shift And acAltMask)
    Dim ctrlEnfonce As Boolean: ctrlEnfonce = (Shift And acCtrlMask)
 
    If KeyCode = Asc(vbTab) And shiftEnfonce And Me.CurrentRecord = 1 Then
        KeyCode = 0:'Annule la frappe
        Me.Parent.ChoixClefRequerant.SetFocus
    End If
End Sub

A+