J'utilise un bouton de commande(cr=E9=E9 Access)pour basculer=20
d'un formulaire "Liste des sch=E9mas" vers un=20
formulaire "Sch=E9ma" qui contient les infos de=20
l'enregistrement.
Par d=E9faut, Access m'affiche mon formulaire en=20
mode "filtr=E9", ce qui me g=EAne car j'aimerais pouvoir=20
naviguer rapidement entre les enregistrements contigus.
Si je passe par la commande "Afficher tous les=20
enregisterments", je perds la bonne position.
Comment faire pour qu'il se positionne sur le bon=20
enregistrement sans le filtrer ?
Voici le code actuel :
Private Sub Commande6_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName =3D "Schemas"
stLinkCriteria =3D "[IDSchema]=3D" & Me![IDSchema]
DoCmd.OpenForm stDocName, , , stLinkCriteria
=20
End Sub
Ensuite, dans l'événement "Sur ouverture" du formulaire "Schemas" écrire quelque chose comme :
If Not IsNull(Me.OpenArgs) Then
Dim strFind As String
With Me.RecordsetClone strFind = "IDShema = " & Val(Me.OpenArgs) .FindFirst strFind Me.Bookmark = .Bookmark End With
End If
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Salut,
Modifications dans le texte...
gripoil <gripoil@alusssinan.org>
Comment faire pour qu'il se positionne sur le bon
enregistrement sans le filtrer ?
Ensuite, dans l'événement "Sur ouverture" du formulaire "Schemas"
écrire quelque chose comme :
If Not IsNull(Me.OpenArgs) Then
Dim strFind As String
With Me.RecordsetClone
strFind = "IDShema = " & Val(Me.OpenArgs)
.FindFirst strFind
Me.Bookmark = .Bookmark
End With
End If
Ok ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Ensuite, dans l'événement "Sur ouverture" du formulaire "Schemas" écrire quelque chose comme :
If Not IsNull(Me.OpenArgs) Then
Dim strFind As String
With Me.RecordsetClone strFind = "IDShema = " & Val(Me.OpenArgs) .FindFirst strFind Me.Bookmark = .Bookmark End With
End If
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
