Ouvrir un formulaire à partir d'un formulaire avec selection enregistrement
Nath
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaite modifier les données d'un enregistrement (formulaire de consultation) par l'ouverture d'un formulaire (formulaire de modification) en cliquand sur un bouton.
J'ai visiblement une erreur sur la ligne de définition du critère (même nom de critère pour les 2 formulaires). Merci pour votre aide
Private Sub Bascule209_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "a-Modification contact complet"
stLinkCriteria = "[NumDonnéeGénérale]=" & Me!"[NumDonnéeGénérale]"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Je souhaite modifier les données d'un enregistrement (formulaire de consultation) par l'ouverture d'un formulaire (formulaire de modification) en cliquand sur un bouton.
J'ai visiblement une erreur sur la ligne de définition du critère (même nom de critère pour les 2 formulaires). Merci pour votre aide
Private Sub Bascule209_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "a-Modification contact complet"
stLinkCriteria = "[NumDonnéeGénérale]=" & Me!"[NumDonnéeGénérale]"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
A voir également:
- Ouvrir un formulaire à partir d'un formulaire avec selection enregistrement
- Whatsapp formulaire opposition - Guide
- Comment ouvrir un fichier epub ? - Guide
- Formulaire de réclamation facebook - Guide
- Comment ouvrir un fichier bin ? - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
je pense que les deux derniers guillemets sont en trop.
je pense que les deux derniers guillemets sont en trop.
Bonjour et merci pour votre réponse.
C'est la dernière ligne qui se surligne en jaune qui -me pose problème maintenant...
Option Compare Database
Private Sub Bascule228_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "a-Modification contact complet"
stLinkCriteria = "[Numauto]=" & Me![NUMAUTO]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
En fait, dans les versions (très) antérieures, il y avait un assistant qui permettait faisait ce travail d'ouvrir un formulaire à partir d'un autre en sélectionnant comme filtre l'enregistrement à l'écran... cela n'existe apparemment plus ?...
Merci bcq pour votre aide, je suis très embêtée...
C'est la dernière ligne qui se surligne en jaune qui -me pose problème maintenant...
Option Compare Database
Private Sub Bascule228_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "a-Modification contact complet"
stLinkCriteria = "[Numauto]=" & Me![NUMAUTO]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
En fait, dans les versions (très) antérieures, il y avait un assistant qui permettait faisait ce travail d'ouvrir un formulaire à partir d'un autre en sélectionnant comme filtre l'enregistrement à l'écran... cela n'existe apparemment plus ?...
Merci bcq pour votre aide, je suis très embêtée...