Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler warum????
Autor: Christian20
Datum: 21.05.03 08:33
Servus, warum bringt er mir den Fehler? ->"Fehler beim..... - Sup oder Funktion nicht definiert!!" Option Compare Database Sub Datei() Dim Db As Database 'Datenbank öffnen Dim Tabelle As Recordset Dim dbFile As String dbFile = App.Path & "Datenbanktest.mdb" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) Set Tabelle = Db.OpenRecordset("okeydata") 'Datensatz suchen Tabelle.Index = okeydata GetBookmark Tabelle, CurRec, CurIdx Tabelle.Seek ">=", "400000" If Not Tabelle.NoMatch Then If Tabelle("okeydata") Like "400000*" Then DatensatzAnzeigen Else MsgBox "Kein entsprechender Eintrag!" SetBookmark Tabelle, CurRec, CurIdx End If Else MsgBox "Kein entsprechender Eintrag!" SetBookmark Tabelle, CurRec, CurIdx End If 'Datenbank schließen Tabelle.Close Db.Close Set Tabelle = Nothing Set Db = Nothing End Sub Danke im Vorraus!!! MFG Christian

Fehler warum????	116	Christian20	21.05.03 08:33
Re: Fehler warum????	62	Lars	21.05.03 08:36
Re: Fehler warum????	57	Christian20	21.05.03 08:39
Re: Fehler warum????	55	Lars	21.05.03 10:58
Re: Fehler warum????	50	Christian20	21.05.03 11:15
Re: Fehler warum????	57	Lars	21.05.03 12:23
Re: Fehler warum????	56	Lars	21.05.03 12:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen