J'utilise la procédure ci-dessous pour passer d'un écran (List) vers un
autre formulaire (fiche).
je cherche à changer un peu la chose:
plutot que de n'afficher QUE le record sur lequel je suis positionné,
j'aimerais plutot qu'il passe sur le mode "fiche" en se positionnant sur
ledit record, tout en laissant la possibilité de parcourir la base.
suis-je clair?
D'avance merci
Frédéric
Private Sub FIRSTNAME_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Domi
Bonjour,
J'espère t'avoir bien compris.
Je me suis assez récemment posé la même question et il ne semble pas exister de méthode "miracle".
Ce que je fais. J'ouvre le nouveau formulaire, je récupère l'ID de l'enregistrement, je force l'affichage de tous les enregistrements (et me retrouve sur le premier), et je retourne à l'enregistrement dont j'ai préalablement sauvegardé l'ID.
Un bout de code pour illustrer la chose.
Dim rst As DAO.Recordset Dim IDEnreg As Long
DoCmd.Echo False
'Ouvre le formulaire DoCmd.OpenForm "TonFormulaire"....
'Récupération de l'ID de l'enregistrement (en l'occurence la valeur d'un champ IDEnreg = Forms!Tonformulaire!EnregId
DoCmd.ShowAllRecords
With Forms!TonFormulaire.RecordsetClone .FindFirst "[EnregId]=" & IDEnreg If .NoMatch = False Then Forms!TonFormulaire.Bookmark = .Bookmark .Close End With
Set rst = Nothing
DoCmd.Echo True
J'espère que cela pourra t'aider.
Bonne journée.
Domi
Bonjour,
J'utilise la procédure ci-dessous pour passer d'un écran (List) vers un autre formulaire (fiche). je cherche à changer un peu la chose:
plutot que de n'afficher QUE le record sur lequel je suis positionné, j'aimerais plutot qu'il passe sur le mode "fiche" en se positionnant sur ledit record, tout en laissant la possibilité de parcourir la base.
suis-je clair?
D'avance merci
Frédéric
Private Sub FIRSTNAME_DblClick(Cancel As Integer)
Dim stDocName As String Dim stLinkCriteria As String
Je me suis assez récemment posé la même question et il ne semble pas exister
de méthode "miracle".
Ce que je fais. J'ouvre le nouveau formulaire, je récupère l'ID de
l'enregistrement, je force l'affichage de tous les enregistrements (et me
retrouve sur le premier), et je retourne à l'enregistrement dont j'ai
préalablement sauvegardé l'ID.
Un bout de code pour illustrer la chose.
Dim rst As DAO.Recordset
Dim IDEnreg As Long
DoCmd.Echo False
'Ouvre le formulaire
DoCmd.OpenForm "TonFormulaire"....
'Récupération de l'ID de l'enregistrement (en l'occurence la valeur d'un
champ
IDEnreg = Forms!Tonformulaire!EnregId
DoCmd.ShowAllRecords
With Forms!TonFormulaire.RecordsetClone
.FindFirst "[EnregId]=" & IDEnreg
If .NoMatch = False Then Forms!TonFormulaire.Bookmark = .Bookmark
.Close
End With
Set rst = Nothing
DoCmd.Echo True
J'espère que cela pourra t'aider.
Bonne journée.
Domi
Bonjour,
J'utilise la procédure ci-dessous pour passer d'un écran (List) vers un
autre formulaire (fiche).
je cherche à changer un peu la chose:
plutot que de n'afficher QUE le record sur lequel je suis positionné,
j'aimerais plutot qu'il passe sur le mode "fiche" en se positionnant sur
ledit record, tout en laissant la possibilité de parcourir la base.
suis-je clair?
D'avance merci
Frédéric
Private Sub FIRSTNAME_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Je me suis assez récemment posé la même question et il ne semble pas exister de méthode "miracle".
Ce que je fais. J'ouvre le nouveau formulaire, je récupère l'ID de l'enregistrement, je force l'affichage de tous les enregistrements (et me retrouve sur le premier), et je retourne à l'enregistrement dont j'ai préalablement sauvegardé l'ID.
Un bout de code pour illustrer la chose.
Dim rst As DAO.Recordset Dim IDEnreg As Long
DoCmd.Echo False
'Ouvre le formulaire DoCmd.OpenForm "TonFormulaire"....
'Récupération de l'ID de l'enregistrement (en l'occurence la valeur d'un champ IDEnreg = Forms!Tonformulaire!EnregId
DoCmd.ShowAllRecords
With Forms!TonFormulaire.RecordsetClone .FindFirst "[EnregId]=" & IDEnreg If .NoMatch = False Then Forms!TonFormulaire.Bookmark = .Bookmark .Close End With
Set rst = Nothing
DoCmd.Echo True
J'espère que cela pourra t'aider.
Bonne journée.
Domi
Bonjour,
J'utilise la procédure ci-dessous pour passer d'un écran (List) vers un autre formulaire (fiche). je cherche à changer un peu la chose:
plutot que de n'afficher QUE le record sur lequel je suis positionné, j'aimerais plutot qu'il passe sur le mode "fiche" en se positionnant sur ledit record, tout en laissant la possibilité de parcourir la base.
suis-je clair?
D'avance merci
Frédéric
Private Sub FIRSTNAME_DblClick(Cancel As Integer)
Dim stDocName As String Dim stLinkCriteria As String
