Ouverture formulaire au click
GSun
-
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai deux formulaire : Consumables_List et Consumable_Details.
Le premier contient la liste de mes produits et je souhaite pouvoir afficher le détails de chaque produit sur click sur le champ Reference_List (Champ avec référence du produit dans mon formulaire Consumables_List)
J'ai écris un code qui me permet d"ouvrir Consumable_Details mais celui-ci s'ouvre vide c'est à dire sans prendre en compte la référence de Consumables_List :
Je ne sais pas d'où vient le problème.
Merci de votre aide.
J'ai deux formulaire : Consumables_List et Consumable_Details.
Le premier contient la liste de mes produits et je souhaite pouvoir afficher le détails de chaque produit sur click sur le champ Reference_List (Champ avec référence du produit dans mon formulaire Consumables_List)
J'ai écris un code qui me permet d"ouvrir Consumable_Details mais celui-ci s'ouvre vide c'est à dire sans prendre en compte la référence de Consumables_List :
Private Sub Reference_List_Click()
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "Consumable_Details"
StLinkCriteriA = "[Reference] = " & "" & Me![Reference_List] & ""
DoCmd.OpenForm StDocName, , , StLinkCriteriA, acWindowNormal
End Sub
Je ne sais pas d'où vient le problème.
Merci de votre aide.
Configuration: Windows / Chrome 74.0.3729.108
A voir également:
- Ouverture formulaire au click
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire de reclamation instagram - Guide
- Page d'ouverture google - Guide
- Formulaire de contact le bon coin introuvable - Forum Réseaux sociaux
2 réponses
Bonjour,
Peut-etre cote parametre, a voir:
https://docs.microsoft.com/fr-fr/office/vba/api/access.docmd.openform
Peut-etre cote parametre, a voir:
https://docs.microsoft.com/fr-fr/office/vba/api/access.docmd.openform
Private Sub Btn_OpenRenouAdhé_Click()
On Error GoTo Err_Btn_OpenRenouAdhé_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_RenouvellementAdh"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Btn_OpenRenouAdhé_Click:
Exit Sub
Err_Btn_OpenRenouAdhé_Click:
MsgBox Err.Description
Resume Exit_Btn_OpenRenouAdhé_Click
End Sub
On Error GoTo Err_Btn_OpenRenouAdhé_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_RenouvellementAdh"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Btn_OpenRenouAdhé_Click:
Exit Sub
Err_Btn_OpenRenouAdhé_Click:
MsgBox Err.Description
Resume Exit_Btn_OpenRenouAdhé_Click
End Sub