Fehlermeldung beim Speichern in Datenbank!

[neopayne]

Die Felder Textboxen Code und Titel sind forhanden und heißen auch so.
Es kommt immer die Fehlermeldung: Laufzeitfehler '424': Objekt erforderlich

hoffe es kann mir jemand helfen:

HIER DER PROGRAMMCODE:

Private Sub Form_Load()
'Datenbank öffnen
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String

dbFile = App.Path + "\Movie.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("Filme")
End Sub

Private Sub nd_Click()
'Neuen Datensatz hinzufügen
Tabelle.AddNew
Tabelle("Code") = "Code"
Tabelle("Titel") = "Titel"
Tabelle.Update
End Sub

 

[thekorn]

falscher syntax

hi,#
am besten mal in der hilfe nachschauen, dort gibt es unter "Recordset" eine genaue syntaxbeschreibung, so wird zum beispiel .addnew übergeben durch:

!code= "Code"
!titel="Filmtitel"

außerdem, ganz wichtig, muss mit .movefirst und .movelast zunächst anfang und ende der datenbank definiert werden. also am besten den beispielcode angucken, vollständig übernehmen und dann auf deine bedürfnisse anpassen.

gruß thekorn