{Access} ajout de donnée dans une table
nikos le grec
Messages postés
116
Statut
Membre
-
nikos le grec Messages postés 116 Statut Membre -
nikos le grec Messages postés 116 Statut Membre -
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
Configuration: Windows XP Internet Explorer 6.0
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
