OVH Cloud OVH Cloud

Ouverture Formulaire

1 réponse
Avatar
Ghislain
Bonjour a tous,

Une question que je me pose depuis longtemps mais que je
n'ai jamais pose sur ce forum:
J'utilise le code suivant pour ouvrir un formulaire a
partir d'un autre, sur une enregistrement demande.
Comme chacun sait le formulaire va ouvrir uniquement cet
enregistrement. Je voulais savoir s'il etait possible
d'ouvrir mon formualaire sur l enregistrement demande
mais d'avoir aussi la possibilite de naviguer sur les
autres enregistrements. si oui comment ?
Merci a tous

Mon code:

Private Sub EditVehicle_Click()
On Error GoTo Err_EditVehicle_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmVehicleEdit"
stLinkCriteria = "[VehicleID]=" & Me![VehicleID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_EditVehicle_Click:
Exit Sub

Err_EditVehicle_Click:
MsgBox Err.Description
Resume Exit_EditVehicle_Click

End Sub

1 réponse

Avatar
Raymond [mvp]
Bonjour.

Lorsque tu es sur ton formulaire.
click du bouton droit de la souris, menu afficher tous les enregistrements.
ou par vba:
Me.Filter = ""
Me.FilterOn = False
tu peux aussi placer un bouton de navigation entre filtre et pas de filtre.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Ghislain" a écrit dans le message de
news: 01c401c4ba74$1e475320$
Bonjour a tous,

Une question que je me pose depuis longtemps mais que je
n'ai jamais pose sur ce forum:
J'utilise le code suivant pour ouvrir un formulaire a
partir d'un autre, sur une enregistrement demande.
Comme chacun sait le formulaire va ouvrir uniquement cet
enregistrement. Je voulais savoir s'il etait possible
d'ouvrir mon formualaire sur l enregistrement demande
mais d'avoir aussi la possibilite de naviguer sur les
autres enregistrements. si oui comment ?
Merci a tous

Mon code:

Private Sub EditVehicle_Click()
On Error GoTo Err_EditVehicle_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmVehicleEdit"
stLinkCriteria = "[VehicleID]=" & Me![VehicleID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_EditVehicle_Click:
Exit Sub

Err_EditVehicle_Click:
MsgBox Err.Description
Resume Exit_EditVehicle_Click

End Sub