Wie geht's nach seek weiter. Der folgende Code findet
den ersten Eintrag mit seek, mit tb.MoveNext geht er aber
zu einem falschen Datensatz.(tb.FindNext funktioniert überhaupt
nicht!)
Schon mal Dankeschön!
Private Sub Befehl35_Click()
Dim db As Database
Dim tb As DAO.Recordset
Dim wohin As String
Set db = CurrentDb
Set tb = db.OpenRecordset("websites", dbOpenTable)
tb.Index = "Satz"
If Not plaziert Then
tb.Seek "=", Val(clipboard.GetText)
If Not tb.NoMatch Then
Me!wbbWebsite.Navigate URL:=tb!URL
Me.Inhalt = tb!Beschreibung
plaziert = True
End If
Else
tb.MoveNext
If Not tb.NoMatch Then
Me!wbbWebsite.Navigate URL:=tb!URL
Me.Inhalt = tb!Beschreibung
End If
End If
If tb.NoMatch Then
MsgBox "Kein Eintrag vorhanden"
End If
If tb.EOF Then
MsgBox "Ende der Liste"
End If
End Sub
