Bonjour,
Voilà je veux alimenter une base access créée à partir de Recordset
contenant des données de spreadsheet excel? Savez-vous comment je peux m'y
prendre?
Merci beaucoup pour toute aide.
Respectueusement
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
JB
Bonjour,
Ajouter des enregistrements dans une base Access
http://cjoint.com/?fmo34h8Gri
La table access Client contient: -Un champ nom_client -Un champ ville
La base Access.mdb doit exister et être dans le même répertoire
Sub ajout() 'Cocher DAO 3.6 dans Outils/Référence If Range("B3").Value <> "" Then Dim db As dao.Database Dim rs As dao.Recordset ChDir ActiveWorkbook.Path
Set db = OpenDatabase("access2000.mdb") Set rs = db.OpenRecordset("client") rs.AddNew ' Création enregistrement rs!nom_client = Range("B3").Value ' Transfert rs!ville = Range("B4").Value rs.Update ' Validation rs.Close Range("B3").Value = "" Range("B4").Value = "" Else MsgBox "Saisir un nom!" End If End Sub
Cordialement JB
Bonjour,
Ajouter des enregistrements dans une base Access
http://cjoint.com/?fmo34h8Gri
La table access Client contient:
-Un champ nom_client
-Un champ ville
La base Access.mdb doit exister et être dans le même répertoire
Sub ajout()
'Cocher DAO 3.6 dans Outils/Référence
If Range("B3").Value <> "" Then
Dim db As dao.Database
Dim rs As dao.Recordset
ChDir ActiveWorkbook.Path
Set db = OpenDatabase("access2000.mdb")
Set rs = db.OpenRecordset("client")
rs.AddNew ' Création enregistrement
rs!nom_client = Range("B3").Value ' Transfert
rs!ville = Range("B4").Value
rs.Update ' Validation
rs.Close
Range("B3").Value = ""
Range("B4").Value = ""
Else
MsgBox "Saisir un nom!"
End If
End Sub
La table access Client contient: -Un champ nom_client -Un champ ville
La base Access.mdb doit exister et être dans le même répertoire
Sub ajout() 'Cocher DAO 3.6 dans Outils/Référence If Range("B3").Value <> "" Then Dim db As dao.Database Dim rs As dao.Recordset ChDir ActiveWorkbook.Path
Set db = OpenDatabase("access2000.mdb") Set rs = db.OpenRecordset("client") rs.AddNew ' Création enregistrement rs!nom_client = Range("B3").Value ' Transfert rs!ville = Range("B4").Value rs.Update ' Validation rs.Close Range("B3").Value = "" Range("B4").Value = "" Else MsgBox "Saisir un nom!" End If End Sub
Cordialement JB
anonymousA
Bonjour,
As-tu vraiment nécéssité d'un recordset ? Pourquoi ne pas utiliser directement l'importation depuis Access ou les tables liées depuis Access ?
A+
Bonjour,
As-tu vraiment nécéssité d'un recordset ? Pourquoi ne pas utiliser
directement l'importation depuis Access ou les tables liées depuis
Access ?
