Discussion :

[Jeanpierre71]

Bonjour,

J'ai un souci un peu curieux, mais il y a sans doute une explication rationnelle que je n'ai pas !
Dans une liste de choix je selectionne un numéro d'equipement, je récupere l'ID de la fiche correspondant à l'équipement.

Code :

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

1
2
3
4
5
' Selection d'un N° usine moteur
Private Sub ListMotNUsine_AfterUpdate()
    VNEnreg = ListMotNUsine.Value
    OuvreModifs
End Sub

En me mettant en pas à pas avec le débug je constate que je récupere bien la bonne valeur ID. La variable VNEnreg et public de type long.

Plus loin dans le programme j'execute le code suivant :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
Dim Monformulaire As Form
Dim rc As DAO.Recordset
    Set Monformulaire = Forms("FModifsMoteurs")       'Inialisation du formulaire
    DoCmd.OpenForm ("FModifsMoteurs")                  ' ouverture du formulaire
    DoCmd.GoToRecord acDataForm, "FModifsMoteurs", acGoTo, VNEnreg

Dans la derniere ligne au niveau de l'instruction GotoRecord, toujours en mode pas à pas j'ai toujours la bonne valeur d'ID dans VNEnreg mais si je tape dans les premiers enregistrements de la table cela marche mais ensuite comme il y a des trous dans la N° des ID (Fiches effacées) je me retrouve par exemple avec une demande de 40 dans la variable VNEnreg et j'affiche l'enregistrement 56 ? Le systeme compte les trous ou quoi ?
Un avis un peu eclairé serait le bienvenue, car là

[Thierry_PALLIER]

Bonjour Jeanpierre71.
Avec GoToRecord ,l'argument Reference ne represente pas la valeur à atteindre ,mais le numéro de l'enregistrement à atteindre (sa position, si tu préfère).
Pour connaitre cette position ,tu peux faire une fonction qui recherche une valeur (VNEnreg dans ton cas) ,et donne sa position dans le recordset:

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
22
23
24
Function TrouvePositionRecordset(ByVal NUMERO As Long) As Integer    '<255
    Dim rst As DAO.Recordset
    Dim StrSql As String
    Dim Nb As Integer
    StrSql = Forms!FModifsMoteurs.RecordSource
 
    Set rst = CurrentDb.OpenRecordset(StrSql, dbOpenSnapshot)
    rst.MoveFirst
    Nb = 1
    While Not rst.EOF
        If rst.Fields("VNEnreg") = NUMERO Then
            TrouvePositionRecordset = Nb
            GoTo fin:
        End If
        rst.MoveNext
        Nb = Nb + 1
    Wend
 
fin:
    rst.Close
    Set rst = Nothing
 
 
End Function

et ta sub form open:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
    Dim Monctrl As Integer
    Dim Monformulaire As Form
    Dim rc As DAO.Recordset
    Set Monformulaire = Forms("FModifsMoteurs")       'Inialisation du formulaire
    DoCmd.OpenForm ("FModifsMoteurs")                  ' ouverture du formulaire
 
    Monctrl = TrouvePositionRecordset(VNEnreg)
 
    DoCmd.GoToRecord acDataForm, "FModifsMoteurs", acGoTo, Monctrl

Cdlt

[Tofalu]

Autant utiliser directement la méthode FindFirst du recordset du formulaire

[Jeanpierre71]

Merci a vous, finalement j'ai trouvé beaucoup plus simple mais grace à vous quand même.

Code :

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

1
2
3
4
 
 Set Monformulaire = Forms("FModifsMoteurs")                     ' Inialisation du formulaire
     selection = " [Numero usine] like '*" & VNEnreg & "*'"          ' définition du code SQL parametre
     DoCmd.OpenForm "FModifsMoteurs", , , selection                  ' ouverture du formulaire

Et cela marche du tonnerre Mais encore merci pour m'avoir mis sur la voie