{Access} ajout de donnée dans une table
nikos le grec
Messages postés
102
Date d'inscription
Statut
Membre
Dernière intervention
-
nikos le grec Messages postés 102 Date d'inscription Statut Membre Dernière intervention -
nikos le grec Messages postés 102 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voilà j'ai une table qui s'appelle tCréationlancement et une autre qui s'appelle Devis (les deux sont reliés), et j'aimerais que quand je clique sur le bouton enregistrer de mon formulaire fCréationlancement cela ajoute dans la table devis le numéro de devis récupéré dans le formulaire et aussi le numéro de lancement qui lui se crée automatiquement.
Est-ce possible et comment ?
merci d'avance
Voilà j'ai une table qui s'appelle tCréationlancement et une autre qui s'appelle Devis (les deux sont reliés), et j'aimerais que quand je clique sur le bouton enregistrer de mon formulaire fCréationlancement cela ajoute dans la table devis le numéro de devis récupéré dans le formulaire et aussi le numéro de lancement qui lui se crée automatiquement.
Est-ce possible et comment ?
merci d'avance
A voir également:
- {Access} ajout de donnée dans une table
- Table ascii - Guide
- Table des matières word - Guide
- Ajout rapide snap - Forum Snapchat
- Ajout rapide snap - Forum Snapchat
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
1 réponse
Voici mon code :
Dim bdd, mbh As Database
Dim rs_lot, Rst As Recordset
Dim req As String
Set bdd = CurrentDb
Set rs_lot = bdd.OpenRecordset("Devis", dbOpenDynaset)
'Ouvre la table tCréationlancement'
rs_lot.AddNew
rs_lot![N° Devis] = [Form_fCréationlancement].NUMDEVIS
rs_lot![N° lancement] = [tCréationlancement]!N°lancement
'________________________________________________________________________________'
rs_lot.Update
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim bdd, mbh As Database
Dim rs_lot, Rst As Recordset
Dim req As String
Set bdd = CurrentDb
Set rs_lot = bdd.OpenRecordset("Devis", dbOpenDynaset)
'Ouvre la table tCréationlancement'
rs_lot.AddNew
rs_lot![N° Devis] = [Form_fCréationlancement].NUMDEVIS
rs_lot![N° lancement] = [tCréationlancement]!N°lancement
'________________________________________________________________________________'
rs_lot.Update
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70