Office: Werte aktualisieren in Passwortgeschützer Datenbank

burninghead13 · 1. Dezember 2020

Hallo zusammen!

bis jetzt konnte ich zu sämtlichen Problemen, die ich in VBA hatte irgendwo im Netz Hilfe finden, aber zu dieses mal verzweifle ich langsam.

Problem:
Ich greife aus Excel über VBA Code auf eine Passwortgeschützte Access Datenbank zu mit folgendem Code:

Code:

Sub checkStatusDAO(ByRef stat As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim wrkspc As DAO.Workspace
Dim databasePfad As String
Dim maName As String
Dim datum As String

databasePfad = Sheets("Einstellungen").Cells(1, 2).Value
maName = Sheets("Einstellungen").Cells(2, 1).Value
datum = Date

Set wrkspc = Access.DBEngine(0)
Set db = wrkspc.OpenDatabase(databasePfad, False, True, "MS Access;PWD=passwort1")

Set rs = db.OpenRecordset(maName)

Do While Not rs.EOF
If rs("Datum") = datum Then
stat = rs("Status")
Else
stat = 0
End If

rs.MoveNext
DoEvents
Loop

rs.Close
db.Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert Problemlos, aber wenn ich im nächsten Schritt einen Wert aktualisieren möchte, bekomme ich folgende Fehlermeldung:

Code:

Laufzeitfehler '3027'
Aktualisieren nicht möglich; Datenbank oder Objekt ist schreibgeschützt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier der Code mit dem ich den Wert aktualisieren will (Der Code stopp in der Zeile: rs.Edit) :
Code:

Sub logIn()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim wrkspc As DAO.Workspace
Dim databasePfad As String
Dim maName As String
Dim zeitJetzt As String
Dim status As Integer
Dim written As Boolean

status = 0
written = False

checkStatusDAO status
MsgBox status

databasePfad = Sheets("Einstellungen").Cells(1, 2).Value
maName = Sheets("Einstellungen").Cells(2, 1).Value
zeitJetzt = Time

Set wrkspc = Access.DBEngine(0)
Set db = wrkspc.OpenDatabase(databasePfad, False, True, "MS Access;PWD=passwort1")

Set rs = db.OpenRecordset(maName)

Select Case status
Case 0
Do Until rs.EOF
If rs("Datum") = Date Then
rs.Edit
rs("String") = rs("String") & "AB" & zeitJetzt
rs("Status") = 1
rs.Update
written = True
End If
rs.MoveNext
Loop
If written = False Then
rs.AddNew
rs("Datum") = Date
rs("String") = rs("String") & "AB" & zeitJetzt
rs("Status") = 1
rs.Update
End If
Case Else
' Keine Anmeldung möglich
End Select

rs.Close

db.Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Fehler erscheint aber nur wenn die Access Datenbank nicht geöffnet ist. Wenn sie offen ist, wird der Wert ganz normal editiert.

Hat jemand eine Idee woran es liegen könnte?

Danke euch im Voraus!

:)

Steffen0815 · 2. Dezember 2020

Hallo,
zunächst mal ist der 3. Parameter von OpenDatabase "ReadOnly".

Der steht bei dir auf True !

burninghead13 · 2. Dezember 2020

Manchmal sieht man den Wald vor lauter Bäumen nicht... xD

Ich werd verrückt *biggrin.gif*

Tausend dank Steffen0815! *Smilie

Office: Werte aktualisieren in Passwortgeschützer Datenbank

Werte aktualisieren in Passwortgeschützer Datenbank

Werte aktualisieren in Passwortgeschützer Datenbank

Werte aktualisieren in Passwortgeschützer Datenbank - Similar Threads - Werte aktualisieren Passwortgeschützer

Werte aktualisieren Bezug Verweis

Mehrere Werte aus andere Spalte vergleichen und abgleichen

Dropdown-Zelle: geänderte Werte aktualisieren

Excel unrichtige Werte in Zelle ausblenden

gefundenen Wert einer Tabelle aktualisieren

Zeilen aus makrobasierter Datei herauskopieren, um Daten so auszuwerten

Werte aktualisieren in mehrfach verknüpften Dateien