Bonjour, je veux importer une table dans une autre et inscrire des
informations dans des chamos de tables liées. La première partie du module
fonctionne, j'ai un import avec une génération normale de la clé primaire
qui est "ent_code" en l'espèce. JE veux récupérer cette clé dans deux autres
tables pour assurer la relation et je n'ai que des "1".
Voici le code. Merci de me dire pourquoi.
Public Sub ajoute_gest()
Dim db As Database
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst3 As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_ENTREPRISES_gest")
Set rst = db.OpenRecordset("Entreprise1")
Set rst2 = db.OpenRecordset("abonnement1")
Set rst3 = db.OpenRecordset("entreprise_rubrique_produit1")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CErnst
Update NE CHANGE PAS l'enregistrement qui était en cours avant l'utilisation de la méthode AddNew
après rst.Update
rajouter rst.bookmark=rst.lastmodified
"Eric FROGER" a écrit dans le message de news:
Bonjour, je veux importer une table dans une autre et inscrire des informations dans des chamos de tables liées. La première partie du module fonctionne, j'ai un import avec une génération normale de la clé primaire qui est "ent_code" en l'espèce. JE veux récupérer cette clé dans deux autres tables pour assurer la relation et je n'ai que des "1". Voici le code. Merci de me dire pourquoi.
Public Sub ajoute_gest()
Dim db As Database Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim rst3 As DAO.Recordset
Set db = CurrentDb() Set rs = db.OpenRecordset("T_ENTREPRISES_gest") Set rst = db.OpenRecordset("Entreprise1") Set rst2 = db.OpenRecordset("abonnement1") Set rst3 = db.OpenRecordset("entreprise_rubrique_produit1")
rs.Close rst.Close rst2.Close rst3.Close Set rs = Nothing Set rst = Nothing Set rst2 = Nothing Set rst3 = Nothing
End Sub
Cordialement
-- Eric
Update NE CHANGE PAS l'enregistrement qui était en cours avant l'utilisation
de la méthode AddNew
après
rst.Update
rajouter
rst.bookmark=rst.lastmodified
"Eric FROGER" <efroger@la-da.com> a écrit dans le message de news:
5C13CCA1-FF86-4D1C-B755-264D68D13DE6@microsoft.com...
Bonjour, je veux importer une table dans une autre et inscrire des
informations dans des chamos de tables liées. La première partie du module
fonctionne, j'ai un import avec une génération normale de la clé primaire
qui est "ent_code" en l'espèce. JE veux récupérer cette clé dans deux
autres tables pour assurer la relation et je n'ai que des "1".
Voici le code. Merci de me dire pourquoi.
Public Sub ajoute_gest()
Dim db As Database
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst3 As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_ENTREPRISES_gest")
Set rst = db.OpenRecordset("Entreprise1")
Set rst2 = db.OpenRecordset("abonnement1")
Set rst3 = db.OpenRecordset("entreprise_rubrique_produit1")
Update NE CHANGE PAS l'enregistrement qui était en cours avant l'utilisation de la méthode AddNew
après rst.Update
rajouter rst.bookmark=rst.lastmodified
"Eric FROGER" a écrit dans le message de news:
Bonjour, je veux importer une table dans une autre et inscrire des informations dans des chamos de tables liées. La première partie du module fonctionne, j'ai un import avec une génération normale de la clé primaire qui est "ent_code" en l'espèce. JE veux récupérer cette clé dans deux autres tables pour assurer la relation et je n'ai que des "1". Voici le code. Merci de me dire pourquoi.
Public Sub ajoute_gest()
Dim db As Database Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim rst3 As DAO.Recordset
Set db = CurrentDb() Set rs = db.OpenRecordset("T_ENTREPRISES_gest") Set rst = db.OpenRecordset("Entreprise1") Set rst2 = db.OpenRecordset("abonnement1") Set rst3 = db.OpenRecordset("entreprise_rubrique_produit1")