Discussion :

[electrosat03]

Bonsoir,

Sur clic d'un bouton, j'ouvre un formulaire qui affiche des datas suivant une condition (donc plusieurs lignes)
J'aimerais, afin de m'y retrouver plus facilement, que le curseur se positionne sur l'enregistrement correspondant à celui où je me trouvait dans le premier formulaire.
Le nom du champ identique dans les deux form est RéfArticle

Merci pour votre aide

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait fonctionner:

Code :

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

1
2
3
4
Sub test()
    DoCmd.OpenForm "MonFormulaire"
    Forms("MonFormulaire").Form.Recordset.FindFirst "[RéfArticle]='" & me.RéfArticle & "'"
End Sub

(en enlevant les ' si RéfArticle est numérique)

Bonne continuation.

[electrosat03]

Salut,

Merci pour ta réponse, mais ça ne fonctionne pas car :
Dans le code je fais les actions suivantes,

Code :

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

1
2
3
4
5
    'Ouvre le deuxième formulaire
    DoCmd.OpenForm ("deuxième formulaire"), acNormal
 
    'Donne au formulaire deuxième formulaire une nouvelle source de donnée
    Forms!deuxième formulaire.Form.RecordSource = ChangeSQL

si je place

Code :

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

Forms("MonFormulaire").Form.Recordset.FindFirst "[RéfArticle]='" & me.RéfArticle & "'"

avant l'ouverture du 2° Formulaire, il n'y a qu'une seule ligne qui apparaît, celle qui correspond à la RéfArticle
Moi, je veux que cela m'affiche toutes les lignes mais que ça se positionne sur la ligne qui correspond à la RéfArticle du 1° Formulaire

Merci

[EricDgn]

Bonjour,

Difficile de répondre sans disposer de l'application, mais une tentative quand même:

Code :

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

1
2
3
    DoCmd.OpenForm "deuxième formulaire", acNormal
    Forms("deuxième formulaire").Form.RecordSource = ChangeSQL
    Forms("deuxième formulaire").Form.Recordset.FindFirst "[RéfArticle]='" & me.RéfArticle & "'"

Cordialement.

[electrosat03]

OK, c'est bon

J'avais oublié de modifier

Code :

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

Forms("deuxième formulaire").Form.Recordset.FindFirst "[RéfArticle]=" & me.RéfArticle

Merci et bonne soirée