Moin
Ich habe folgendes Problem.
Ich öffne aus Access heraus eine Excedatei. Ich berechne einige Daten und möchte diese in einer Access-Tabelle speichern. Das Problem ist, das diese Access-Tabelle passwortgeschütz ist.
Bei einer ungeschützten Tabelle klappt folgender Code:
Dim DB As Database
Dim TB As Recordset
Dim DocName As String
Dim DocKlient As Long
DocName = "H:\Metzler\" & Range("B1").Value & (".xls")
DocKlient = (Range("K50").Value)
ChDir "H:\Test"
Set DB = OpenDatabase("Dokumente.mdb")
Set TB = DB.OpenRecordset("Dokumente", dbOpenTable)
With TB
.AddNew
!DocPfad = DocName
!Klienten_ID = DocKlient
End With
TB.Update
Was muss ich tun, damit die Daten in einer passwortgeschützten Access-Tabelle gespeichert werden?
Schönen Gruß
maristein