Excel an Access übergeben?!
13.02.2004 09:06:12
Andre
ich übergebe meine Excel-Daten an eine Access-Datenbank. Leider gelingt es mir nicht eine Schleife zu programmieren, da ich nicht weiß wie ich die Variabel mit meiner Access-Adresse verknüpfen kann. Die üblichen Excelmethoden scheinen hier nicht zu funktionieren.
Verantwortlich für den Fehler ist diese Adresse, die in meiner Access-Tabelle natürlich nicht gefunden wird: TB!Datum & i
i wird nicht als Variabel erkannt und somit als TB!Datum1, TB!Datum2, TB!Datum3, usw. interpretiert, sondern als Bestandteil des Adressnamens!
Hier mein Code:
Public
Sub PostenZusatz()
Dim db As Database 'definiert DB als Datenbank
Dim TB As Recordset 'definiert TB als Tabelle
Dim i As Long
Set db = OpenDatabase("\\Srv-Nav\Access\Seehof.mdb") ' öffnen die Datenbank
Set TB = db.OpenRecordset("Posten", dbOpenTable) 'öffnet die Datenmenge KUNDEN als Tabelle
TB.Index = "Auftragsnummer" 'z.B. "PrimaryKey"
TB.Seek "=", [Kontrolle!A2]
If Not TB.NoMatch Then
TB.Edit
TB!Belegnummer = [Kontrolle!B2]
For i = 1 To 38 'Zeilenanzahl
With Rechnungsmaske.Spreadsheet1.ActiveSheet
TB!Datum & i = .Cells(i, 1)
End With
Next i
TB.Update
End If
TB.Close 'schließt die Tabelle
db.Close 'schließt die Datenbank
End Sub
Hat jemand Erfahrung mit Excel-Access-Kombinationen und kann mir hier weiterhelfen?
Gruß Andre