Bouton dans un formulaire
missnour
-
Jean_Jacques Messages postés 1048 Statut Membre -
Jean_Jacques Messages postés 1048 Statut Membre -
Bonjour
Dans un formulaire j ai un bouton qui mouvre une etat(etat excuté apartire d'une requete) dans la requete j ai mis dans le champs Matricule comme critaire [emploiyé]![Matricule] pr kil m'affiche les donnée de personne celectionner dans le formulaire,
Le probleme il m'affiche dans l'etat les donnéer du premier enregistrement de la requate non pas le personne selectioné dans le formulaire
pouvez vous m'aidé pr resoudre c probleme
Dans un formulaire j ai un bouton qui mouvre une etat(etat excuté apartire d'une requete) dans la requete j ai mis dans le champs Matricule comme critaire [emploiyé]![Matricule] pr kil m'affiche les donnée de personne celectionner dans le formulaire,
Le probleme il m'affiche dans l'etat les donnéer du premier enregistrement de la requate non pas le personne selectioné dans le formulaire
pouvez vous m'aidé pr resoudre c probleme
A voir également:
- Bouton dans un formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Diagnostic bouton photo - Accueil - Outils
- Formulaire de reclamation instagram - Guide
- Formulaire de contact le bon coin introuvable ✓ - Forum Réseaux sociaux
1 réponse
Bonjour Missnour,
Cette question revient fréquemment. Voici la syntaxe dont vous avez besoin.
Il vous faudra, bien entendu, l'adapter à votre cas.
Private Sub Màj_Click()
Rem DoCmd.Minimize
On Error GoTo Err_Màj_Click
Dim DocName As String
Dim LinkCriteriA As String
DocName = "<Nom du formulaire à ouvrir>"
LinkCriteriA = "[<Champ_lié1>]=" & Me![<Champ_lié2>]
DoCmd.OpenForm DocName, , , LinkCriteriA
Exit Sub
Err_Màj_Click:
MsgBox Error$
Exit Sub
End Sub
Cordialement
Cette question revient fréquemment. Voici la syntaxe dont vous avez besoin.
Il vous faudra, bien entendu, l'adapter à votre cas.
Private Sub Màj_Click()
Rem DoCmd.Minimize
On Error GoTo Err_Màj_Click
Dim DocName As String
Dim LinkCriteriA As String
DocName = "<Nom du formulaire à ouvrir>"
LinkCriteriA = "[<Champ_lié1>]=" & Me![<Champ_lié2>]
DoCmd.OpenForm DocName, , , LinkCriteriA
Exit Sub
Err_Màj_Click:
MsgBox Error$
Exit Sub
End Sub
Cordialement
