{Access} ajout de donnée dans une table

Fermé

nikos le grec Messages postés 102 Date d'inscription jeudi 4 juin 2009 Statut Membre Dernière intervention 25 juin 2009 - 17 juin 2009 à 10:43
nikos le grec Messages postés 102 Date d'inscription jeudi 4 juin 2009 Statut Membre Dernière intervention 25 juin 2009 - 17 juin 2009 à 10:45

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

A voir également:

1 réponse

Réponse 1 / 1

nikos le grec Messages postés 102 Date d'inscription jeudi 4 juin 2009 Statut Membre Dernière intervention 25 juin 2009 1
17 juin 2009 à 10:45

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Table des matières dont les titres n'apparaissent pas..

Comment savoir comment on nous a ajouté sur Snap

Exemple de base de données access