{Access} ajout de donnée dans une table

Question

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

nikos le grec · Answer

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

{Access} ajout de donnée dans une table

1 réponse

Votre réponse

Discussions similaires