Clic sur un enregistrement qui ouvre un formulaire spécifique
Fermé
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
-
21 août 2013 à 15:42
ioanina Messages postés 7 Date d'inscription mercredi 21 août 2013 Statut Membre Dernière intervention 7 septembre 2013 - 7 sept. 2013 à 22:31
ioanina Messages postés 7 Date d'inscription mercredi 21 août 2013 Statut Membre Dernière intervention 7 septembre 2013 - 7 sept. 2013 à 22:31
A voir également:
- Clic sur un enregistrement qui ouvre un formulaire spécifique
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .bin - Guide
- Ouvrir un fichier rar - Guide
- Ouvrir un fichier .dat - Guide
7 réponses
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 15:26
7 sept. 2013 à 15:26
Bonjour,
Pour être plus claire:
J'ai fait une base de données avec 3 tables,
1 "clients", 1 "détails", 1 "pieces".
Un formulaire Clients avec un sous formulaire "détails". La table client et la table details sont OK , mais la table "pieces ne se remplit pas et j'en ai besoin pour faire ensuite un formulaire "pieces" accessible depuis un double-clic sur une ligne du sous-formulaire.
Table "clients" avec Numclient en numauto clé primaire et champ client.
Table "pieces" avec Numpiece en numauto et clé primaire et un champ NomPiece et d'autres champs.
Table "détails" avec Numpiece en clé primaire Numclient et piece
J'espère que quelqu'un pourra m'aider, je nage !!!
Merci d'avance
Pour être plus claire:
J'ai fait une base de données avec 3 tables,
1 "clients", 1 "détails", 1 "pieces".
Un formulaire Clients avec un sous formulaire "détails". La table client et la table details sont OK , mais la table "pieces ne se remplit pas et j'en ai besoin pour faire ensuite un formulaire "pieces" accessible depuis un double-clic sur une ligne du sous-formulaire.
Table "clients" avec Numclient en numauto clé primaire et champ client.
Table "pieces" avec Numpiece en numauto et clé primaire et un champ NomPiece et d'autres champs.
Table "détails" avec Numpiece en clé primaire Numclient et piece
J'espère que quelqu'un pourra m'aider, je nage !!!
Merci d'avance
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
Modifié par Jean_Jacques le 7/09/2013 à 16:40
Modifié par Jean_Jacques le 7/09/2013 à 16:40
Bonjour ionina,
Ce que vous demandez est particulièrement difficile à décrire pas à pas.
Tout au plus puis-je vous dire qu'il faut créer une procédure événementielle sur clic dans le formulaire principal. La procédure, une fois activée par un clic (ce n'est qu'un exemple) ouvre le 2ème formulaire (appelons le "de visualisation") que vous souhaitez obtenir.
Voici des liens qui traitent du sujet qui nous intéresse ici :
https://www.google.fr/#q=ouverture+formulaire+li%C3%A9+access+vba
Concrètement, le coeur du sujet se trouve dans les 7 lignes qui suivent :
Private Sub Commande30_Click()
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "<[Formulaire à ouvrir]>"
StLinkCriteriA = "<[champLié_1]>=" & Me!<[champlié_2] >
DoCmd.OpenForm StDocName, , , StLinkCriteriA, acReadOnly, acWindowNormal
End Sub
NB : les signes < > [] ne servent qu'à répérer les endroits où vous devez insérer vos propres données. Ils sont à supprimer avant activation du code opérationnel.
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
Ce que vous demandez est particulièrement difficile à décrire pas à pas.
Tout au plus puis-je vous dire qu'il faut créer une procédure événementielle sur clic dans le formulaire principal. La procédure, une fois activée par un clic (ce n'est qu'un exemple) ouvre le 2ème formulaire (appelons le "de visualisation") que vous souhaitez obtenir.
Voici des liens qui traitent du sujet qui nous intéresse ici :
https://www.google.fr/#q=ouverture+formulaire+li%C3%A9+access+vba
Concrètement, le coeur du sujet se trouve dans les 7 lignes qui suivent :
Private Sub Commande30_Click()
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "<[Formulaire à ouvrir]>"
StLinkCriteriA = "<[champLié_1]>=" & Me!<[champlié_2] >
DoCmd.OpenForm StDocName, , , StLinkCriteriA, acReadOnly, acWindowNormal
End Sub
NB : les signes < > [] ne servent qu'à répérer les endroits où vous devez insérer vos propres données. Ils sont à supprimer avant activation du code opérationnel.
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 16:44
7 sept. 2013 à 16:44
Merci, je vais essayer et te redirai.
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 20:26
7 sept. 2013 à 20:26
Ca fait une erreur et quand je fais le débogueur, ça me met en jaune cette ligne
DoCmd.OpenForm StDocName, , , StLinkCriteriA, acReadOnly, acWindowNormal
DoCmd.OpenForm StDocName, , , StLinkCriteriA, acReadOnly, acWindowNormal
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
7 sept. 2013 à 20:38
7 sept. 2013 à 20:38
Bonsoir,
La ligne peut être simplifiée comme suit :
DoCmd.OpenForm StDocName, , , StLinkCriteriA
Mais l'erreur peut provenir des lignes précédentes ....
En cas de nouvelle erreur, merci de me faire parvenir le tout.
AJJ
La ligne peut être simplifiée comme suit :
DoCmd.OpenForm StDocName, , , StLinkCriteriA
Mais l'erreur peut provenir des lignes précédentes ....
En cas de nouvelle erreur, merci de me faire parvenir le tout.
AJJ
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 21:27
7 sept. 2013 à 21:27
Effectivement, il me met une erreur 2102, le nom de formulaire F_detail_requete est mal orthographié ou fait référence à un formulaire inexistant, alors que l'un et l'autre sont faux !
Voici mon code
Private Sub piece_DblClick(Cancel As Integer)
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "[F_detail_requete]"
StLinkCriteriA = "[Numpiece]=" & Me![Numpiece]
DoCmd.OpenForm StDocName, , , StLinkCriteriA
End Sub
J'ai aussi essayé d'autres trucs et il semble bien qu'une macro avec la condition where
[numpiece]=[Formulaires]![F_clients]![T_detail sous-formulaire].[Formulaire]![numpiece]
fonctionne
Je fais encore des essais et te redis
Voici mon code
Private Sub piece_DblClick(Cancel As Integer)
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "[F_detail_requete]"
StLinkCriteriA = "[Numpiece]=" & Me![Numpiece]
DoCmd.OpenForm StDocName, , , StLinkCriteriA
End Sub
J'ai aussi essayé d'autres trucs et il semble bien qu'une macro avec la condition where
[numpiece]=[Formulaires]![F_clients]![T_detail sous-formulaire].[Formulaire]![numpiece]
fonctionne
Je fais encore des essais et te redis
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 21:36
7 sept. 2013 à 21:36
Ca a l'air de marcher, mais je crois que j'ai un peu bidouillé ma base et j'ai peur que ça bug quelque part plus tard. Aurais-tu la gentillesse d'y jeter un coup d'oeil si je te l'envoie ?
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
7 sept. 2013 à 22:03
7 sept. 2013 à 22:03
Suppression de certains crochets et rajout de acWindowNormal effectués par mes soins
Private Sub piece_DblClick(Cancel As Integer)
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "F_detail_requete"
StLinkCriteriA = "Numpiece=" & Me![Numpiece]
DoCmd.OpenForm StDocName, , , StLinkCriteriA ,acWindowNormal
End Sub
Mon adresse : joel_444@orange.fr
Private Sub piece_DblClick(Cancel As Integer)
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "F_detail_requete"
StLinkCriteriA = "Numpiece=" & Me![Numpiece]
DoCmd.OpenForm StDocName, , , StLinkCriteriA ,acWindowNormal
End Sub
Mon adresse : joel_444@orange.fr
ioanina
Messages postés
7
Date d'inscription
mercredi 21 août 2013
Statut
Membre
Dernière intervention
7 septembre 2013
1
7 sept. 2013 à 22:31
7 sept. 2013 à 22:31
j'ai envoyé par email.
Merci
Merci