Discussion :

[Miss Ti]

Bonjour,
A quelques heures du départ pour l'avion (je viens de voir le problème), je vous pose un petit problème.
Lorsque j'ajoute un enregistrement à un sous formulaire, ce dernier perd le focus sur ce dernier enregistrement.
J'essaie donc de le remettre dessus pour que l'utilisateur puisse continuer sa saisie:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_AfterInsert()
    Dim rst_visites As DAO.Recordset
    Dim num_obs As Long
    Dim i As Integer
    Dim Trouve As Boolean
 
    num_obs = Me.ID_Obs
    MsgBox num_obs
    Forms!F_site.Controls!LstVisites.Requery
    For i = 0 To Forms!F_site.Controls!LstVisites.ListCount - 1
        If Forms!F_site.Controls!LstVisites.Column(0, i) = Str$(num_obs) Then
            Forms!F_site.Controls!LstVisites.Selected(i) = True
            MsgBox "J'ai trouvé! " & Forms!F_site.Controls!LstVisites
            Exit For
        End If
    Next i
 
    Me.Requery
    Set rst_visites = Me.Recordset
    rst_visites.FindFirst "ID_Obs = " & num_obs
End Sub

Ce code sélectionne la bonne ligne dans la zone de liste mais ne met pas le focus sur le bon enregistrement dans le sous-formulaire...
Arrrghh!

[totojordi]

bon voyage !

[moilou2]

Tien met sa sur ton sous formulaire au pire tu le met sur le formLoad

Private Sub Form_Load()

Form_LeNomDeTonFormulaire.LeNomDeTonSousFormulaire.SetFocus

end sub

Voili voilou

Bonnes vacances

[moilou2]

Code :

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

1
2
3
4
5
Private Sub Form_Load()
 
Form_LeNomDeTonFormulaire.LeNomDeTonSousFormulaire.SetFocus
 
end sub

Pardon

[Miss Ti]

Ca ne fonctionne pas.

Code :

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

Form_LeNomDeTonFormulaire.LeNomDeTonSousFormulaire.SetFocus

Set focus sur les visites (mets à jour le sous-formulaire des visites), c'est bien ça?


En fait, j'ai le bon recordset dans mon sous-formulaire (j'ai bien toutes les visites du site) mais le sous-formulaire ne se positionne pas sur le dernier enregistrement créé dont l'id est num_obs.

[moilou2]

Ba la fonction SetFocus permet de rendre un contrôle actif, c'est bien sa que tu veux faire???

Au pire enleve le

Code :

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

NomDuFormulaire.

Met direct

Code :

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

NomDuSousFormulaire.SetFocus

Essaye peut être autre chose que sur chargement, je ne sais pas sur activation ou autre...

[Miss Ti]

En fait, dans la panique, je me suis mal expliquée.
Sur un _afterInsert du sous-formulaire, je cherche à garder le focus sur l'enregistrement qui vient d'être créé après avoir mis à jour le liste du formulaire sus-jacent, et ce pour une bonne raison c'est que les personnes doivent saisir des données supplémentaires (notamment dans un sous-sous-formulaire).
J'espère m'être mieux exprimée...

[Miss Ti]

Tant pis, je pars.
Un avion, ça n'attend pas.
Merci à ceux qui ont essayé de m'aider.