Liebe Mituser!
Was bedeutet (und wann taucht auf)
"Laufzeitfehler 2105 - Sie können nicht zu dem angegebenen Datensatz springen" ?
Der Datensatz existiert. Hier die Prozedur:
Private Sub cmdVorherigeSchallplatte_Click()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "G:\GPZ\Martin Königs\Schallplattenverwaltung01.mdb"
Set rst = New ADODB.Recordset
With rst
.Open Source:="HAUPTTABELLE", ActiveConnection:=conn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
DoCmd.GoToRecord , , acGoTo, 2
'rst.MovePrevious
txtTitel = .Fields("TITEL")
txtInterpret = .Fields("INTERPRET")
txtMusiklabel = .Fields("MUSIKLABEL")
txtErscheinungsjahr = .Fields("ERSCHEINUNGSJAHR")
txtTitelanzahl = .Fields("TITELANZAHL")
txtGesamtlänge = .Fields("GESAMTLÄNGE")
End With
conn.Close
Set rst = Nothing
Set conn = Nothing
End Sub
Mein Ziel ist es, in einem Formular Befehlsschaltflächen zu haben, mit denen ich durch die Datensätze der Tabelle blättern kann. Die Feldinhalte sollen in den Textfesldern erscheinen. Beispiel:
Befehlsschaltfläche: vorige Schallplatte
Befehlsschaltfläche: nächste Schallplatte
Die Textfelder selbst sollen aber ungebunden bleiben.
Was bedeutet (und wann taucht auf)
"Laufzeitfehler 2105 - Sie können nicht zu dem angegebenen Datensatz springen" ?
Der Datensatz existiert. Hier die Prozedur:
Private Sub cmdVorherigeSchallplatte_Click()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "G:\GPZ\Martin Königs\Schallplattenverwaltung01.mdb"
Set rst = New ADODB.Recordset
With rst
.Open Source:="HAUPTTABELLE", ActiveConnection:=conn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
DoCmd.GoToRecord , , acGoTo, 2
'rst.MovePrevious
txtTitel = .Fields("TITEL")
txtInterpret = .Fields("INTERPRET")
txtMusiklabel = .Fields("MUSIKLABEL")
txtErscheinungsjahr = .Fields("ERSCHEINUNGSJAHR")
txtTitelanzahl = .Fields("TITELANZAHL")
txtGesamtlänge = .Fields("GESAMTLÄNGE")
End With
conn.Close
Set rst = Nothing
Set conn = Nothing
End Sub
Mein Ziel ist es, in einem Formular Befehlsschaltflächen zu haben, mit denen ich durch die Datensätze der Tabelle blättern kann. Die Feldinhalte sollen in den Textfesldern erscheinen. Beispiel:
Befehlsschaltfläche: vorige Schallplatte
Befehlsschaltfläche: nächste Schallplatte
Die Textfelder selbst sollen aber ungebunden bleiben.
