Office: Ungültiges Argument

Hallo zusammen!

Ich habe bisher über einen eigene Access-Datenbank NUR für die Daten und eine weitere für die Oberfläche Mehr-User-Möglichkeit gesichert.

Ein Formular hatte ich dabei, dass NUR einer „gleichzeitig“ verwenden durfte und habe dazu beim Öffnen folgenden Code verwendet:

If DCount("ID", "03022018_PruefungenWerdenBerarbeit") > 0 Then

MsgBox "Prüfungsmaske wird gerade von anderem User verwendet", vbCritical

Else

If CurrentProject.AllForms("Wochenübersicht").IsLoaded = True Then

DoCmd.Close acForm, "Wochenübersicht"

End If

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("03022018_PruefungenWerdenBerarbeit", dbOpenDynaset, dbSeeChanges)

rs.AddNew

rs!Bearbeiter = Environ("Username")

rs.Update

rs.Close

DoCmd.OpenForm "19012018_PruefungsView_Gesamt", acNormal

End If


Beim Schließen folgenden, um sicherzustellen, dass das Formular nicht mehr verwendet wird und somit von einer anderen Person verwendet werden darf:

Dim db As DAO.Database

Dim rs As DAO.Recordset


Set db = CurrentDb

Set rst = CurrentDb.OpenRecordset("SELECT * FROM 03022018_PruefungenWerdenBerarbeit", dbSeeChanges)

CurrentDb.Execute "DELETE FROM 03022018_PruefungenWerdenBerarbeit", dbFailOnError



Jetzt habe ich die Daten auf einen SQL-Server gespielt und verknüpfe die Datentabellen, was auch funktioniert, ABER der Teil, der beim Schließen d. Formulars ausgeführt wird, verursacht folgenden Fehler: „Ungültiges Argument“, auf die Zeile „Set rs = CurrentDb.OpenRecordset("SELECT * FROM 03022018_PruefungenWerdenBerarbeit", dbSeeChanges)“ bezugen.

Was mache ich das falsch?

Danke und lG!
Jakob

 

Moin Jakob,

von AC habe ich zwar genau keine Ahnung, aber Deine Fehlermeldung deutet in VBA allgemein daraufhin, dass in der angemeckerten Zeile entweder ein Argument zu viel, zu wenig oder falsch ist. Ein bewährter Ansatz könnte sein:
Schau mal bei CurrentDb.OpenRecordset, welche Argumente dort in der Klammer erwartet werden. Ansonsten könnte noch IntelliSense bei der Eingabe des Aufrufs helfen. Dort werden die Argumente ja direkt angeboten.

Habe eben noch gelesen, dass AC-Tabellennamen mit Buchstaben beginnen müssen. Stell der 03011018 doch mal ein tbl_ als Prefix vor die Nase. Gleiches gilt wohl auch für Forms: frm_

Viel Erfolg! und schöne Grüße
p.s. lass wissen, ob's geholfen hat - bin neugierig

 

Hallo,
Das kann ja so nicht gehen:
Du dimensionierst "db" nicht, willst dann aber CurrentDB als Datenbankobjekt per "set" zuweisen. Dann dimensionierst Du "rs" als Recordset nutzt es dann aber garnicht. Stattdessen versuchst Du dann das Recordset-Objekt per select einem Object namens "rst" zuzuweisen, welches vorher nicht als Recordset dimensioniert wurde.

Wenn dann vielleicht so:

Code:

Dim rst As Recordset
Dim db as Database

Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM 03022018_PruefungenWerdenBerarbeit", dbSeeChanges)
db.Execute "DELETE FROM 03022018_PruefungenWerdenBerarbeit", dbFailOnError

Noch ein Hinweis: Wenn Du hier Code wiedergeben möchtest vereinfacht es die Sache, wenn Du die CodeTags dafür verwendest (siehe Button "Einfügen" im Kopf des Bearbeitungsfeldes.