Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Zugriff auf Access ( schreibend )
Hier ein Codebeispiel um auf eine DAO-Accessdatenbank zuzugreifen und gezielt bestimmte Datensätze in eine Tabelle zu übertragen. Die Daten werden jeweils angefügt, bestehende Datensätze bleiben erhalten.
Die Beispiel-DB heißt ImportDB und liegt direkt unter C:\
Die Excel-Tabelle, aus welcher die Daten kommen, heißt "Tabelle1". Zieltabelle in Access ist tblDaten.
 
 
Die Accesstabelle
 
 
 
 
Die Exceltabelle
 
 
 
 
Nach Codeausführung.
 
 
 
 
Die Zieltabelle mit den angefügten Datensätzen.
 
 
 
 
Der Code für ein allgemeines Modul:
 
 
Public Sub Daten_nach_Access()
'###########################################
'Unter Extras - Verweise - Häkchen bei "Microsoft DAO 3.6 Object Library" setzen
'##########################################
Dim DB As Database
Dim RS As Recordset
Dim strPfad As String
Dim wks As Worksheet
Dim lngZ As Long
Dim lngLast As Long
 
strPfad = "C:\ImportDB.mdb"
Set DB = Workspaces(0).OpenDatabase(strPfad)
Set RS = DB.OpenRecordset("tblDaten", dbOpenTable)
Set wks = Worksheets("Tabelle1")
lngLast = wks.Cells(Rows.Count, 1).End(xlUp).Row
 
For lngZ = 2 To lngLast
  RS.AddNew
    RS!Name = wks.Cells(lngZ, 1).Value
    RS!Vorname = wks.Cells(lngZ, 2).Value
    RS!Betrag = wks.Cells(lngZ, 3).Value
  RS.Update
Next
 
Set wks = Nothing
Set RS = Nothing
Set DB = Nothing
 
MsgBox "Es wurden " & lngLast - 1 & " Datensätze übertragen.", 64
 
End Sub