CDE VB pour lien entre formulaire et table
Kazin
-
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche une fonction sous Access ou Visual Basic pour qu'une valeur saisie dans un formulaire crée un nouveau champ dans une table existante.
Concrêtement, j'ai une table avec des articles et je souhaite créer une colonne à chaque fois que j'entre un bon de commande pour mettre en relation des quantités.
Au début j'avais penser créer une table par bon de commande mais c'est beaucoup trop lourd à gérer.
Merci d'avance pour vos réactions.
Je cherche une fonction sous Access ou Visual Basic pour qu'une valeur saisie dans un formulaire crée un nouveau champ dans une table existante.
Concrêtement, j'ai une table avec des articles et je souhaite créer une colonne à chaque fois que j'entre un bon de commande pour mettre en relation des quantités.
Au début j'avais penser créer une table par bon de commande mais c'est beaucoup trop lourd à gérer.
Merci d'avance pour vos réactions.
A voir également:
- CDE VB pour lien entre formulaire et table
- Whatsapp formulaire opposition - Guide
- Créer un lien pour partager des photos - Guide
- Table ascii - Guide
- Lien url - Guide
- Table des matières word - Guide
1 réponse
Bonjour Kazin,
Je présume ici que vous souhaitez créer un enregistrement dans une table_2 et non un "champ" .
Voici la syntaxe usuelle.
NB : Ne pas copier utiliser la ligne REM
Dim DocName As String
Dim LinkCriteriA As String
DocName = "<Formulaire à ouvrir>"
LinkCriteriA = "[<Ref_Table_1>]=" & Me![<Ref_Table_2>]
DoCmd.OpenForm DocName, acFormDS, , , acFormAdd
REM DoCmd.OpenForm DocName, , , LinkCriteriA
Exit Sub
Cordialement
Je présume ici que vous souhaitez créer un enregistrement dans une table_2 et non un "champ" .
Voici la syntaxe usuelle.
NB : Ne pas copier utiliser la ligne REM
Dim DocName As String
Dim LinkCriteriA As String
DocName = "<Formulaire à ouvrir>"
LinkCriteriA = "[<Ref_Table_1>]=" & Me![<Ref_Table_2>]
DoCmd.OpenForm DocName, acFormDS, , , acFormAdd
REM DoCmd.OpenForm DocName, , , LinkCriteriA
Exit Sub
Cordialement
