Hallo,

Ich habe folgendes Problem,

Mein Programm legt die tabelle nicht an, Ich bekomme immer die Fehlermeldung das die Eingangstabelle nicht gefunden wird..

Kann mir nicht erklären woran das liegen kann.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Public rst As DAO.Recordset   Private Sub Command1_Click()   If Text1.Text = "" Then     MsgBox ("Bitte einen Titel angeben!")   Else     Set db = OpenDatabase(App.Path & "\vids.mdb")     Set rst = db.OpenRecordset("Videos", dbOpenDynaset)     rst.AddNew     With rst       !Titel = Text1.Text       !Pfad = videopath       .Update       db.Close       Set rst = Nothing     End With   End If End Sub     Private Sub Form_Load()   Text2.Text = Form1.videopath   Dim fileexists As Boolean   Dim strfile As String   strfile = "vids.mdb"   On Error Resume Next   fileexists = (Len(Dir(strfile)) > 0)   If fileexists = False Then     Dim db As DAO.Database     Dim dbfile As String     Dim feld As New DAO.Field                 dbfile = App.Path + "\vids.mdb"     Set db = Workspaces(0).CreateDatabase(dbfile, dbLangGeneral, dbEncrypt + _       dbVersion30)     Dim tabelle As New DAO.TableDef     Set tabelle = db.CreateTableDef("Videos")     feld.Name = "Titel"     feld.Type = Text     tabelle.Fields.Append feld     Set feld = Nothing     feld.Name = "Pfad"     feld.Type = dbLong     tabelle.Fields.Append feld     Set feld = Nothing     db.TableDefs.Append tabelle     db.Close     Set tabelle = Nothing     Set db = Nothing   Else     Set db = OpenDatabase("vids.mdb")   End If End Sub

Wäre echt super wenn ihr mir helfen könntet.

Existiert überhaupt eine Tabelle namens "Videos" in deiner Datenbank?

Wenn ich meine erstelle DB mit access öffne ist sie nicht da, aber eigentlich erstelle ich docg die Tabelle mit folgenden code oder nicht?

Code :

1 2 3

Dim tabelle As New DAO.TableDef     Set tabelle = db.CreateTableDef("Videos")    db.TableDefs.Append tabelle

Entweder ich hab ein riesen denkfehler oder irgendwas anderes stimmt nicht,
wäre super wenn ihr mir helfen könntet!

Denkfehler! Ja, du erstellst eine Tabelle mit dem Code, aber es ist eine leere Tabelle, ohne Felder.

Tip: Erstelle die Tabelle in Access komplett mit Feldern usw., und greife dann aus VB heraus drauf zu.