Discussion :

[baila]

Bonjour à tous,

Merci pour ce forum au top sur lequel je trouve beaucoup d'infos très utiles

Dans le cadre d'un développement Access, je n'arrive pas à trouver la solution à mon problème, j'ai pourtant retourné le sujet dans tous les sens.

Je souhaite simplement atteindre un enregistrement particulier dans un formulaire. Le formulaire s'appelle F_avis, la table associe T_avis, le champ id_avis. Je veux atteindre l'enregistrement chargé dans la variable nb du champ id_avis.

J'ai essayé avec DoCmd.GoToRecord , , acGoTo, "id_avis = nb" mais cela ne fonctionne pas...

Si vous pouvez m'aider cela me rendrait un grand service. Merci beaucoup par avance pour vos réponses !

[tee_grandbois]

bonjour,
avec un identifiant, il faut préférer FindFirst car GotoRecord utilise la position relative (numéro d'enregistrement dans le RecordSet):

Code :

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

1
2
3
Call Me.Recordset.FindFirst(nb)
'si pas trouvé on se positionne sur l'enregistrement suivant 
If Me.Recordset.NoMatch Then DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, Me.Recordset.AbsolutePosition + 1

[baila]

Merci beaucoup pour ta réponse. Néanmoins ça ne fonctionne pas, ça me met une erreur dès la première ligne de code. Peux-tu m'aider ?

Merci !

[Zekraoui_Jakani]

La solution de tee_Grandbois aurait dû fonctionner.
Tu peux aussi faire ceci moyennant un filtre:

Code :

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

1
2
3
4
    With Me
        .Filter = "[id_avis] = nb"  'en supposant que nb est un nombre entier
        .FilterOn = True
    End With

Ne pas oublier de désactiver le filtre après utilisation ou lors du chargement du formulaire (Me.FilterOn= False)
NB: si nb est du texte, utiliser .Filter = "[id_avis] ='" & nb &"'"

[tee_grandbois]

bonsoir,

La solution de tee_Grandbois aurait dû fonctionner

en fait non, j'ai été un peu vite:

Code :

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

1
2
3
Call Me.Recordset.FindFirst "[id_avis] = " & nb 
'si pas trouvé on se positionne sur l'enregistrement suivant 
If Me.Recordset.NoMatch Then DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, Me.Recordset.AbsolutePosition + 1

[baila]

Bonjour,

Parfait, ça fonctionne avec ce dernier code, merci beaucoup!

J'ai simplement supprimé le Call qui me mettait un message d'erreur

Bonne journée à tous et encore merci