{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
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
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
- Dans son restaurant, igor utilise une application pour gérer les réservations. dans le schéma (structure) de la base de données de l’application représenté ci-dessous : de quoi « telephone » est-il le nom ? de quoi « reservations » est-il le nom ? associez chaque terme avec un attribut, une donnée, un enregistrement, une table, une valeur ou une variable. - Forum Webmastering
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
1 réponse
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
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
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
