Visual Basic 6 Data Access Object Datenbankprogrammierung, BOF gibt falschen Wert zurück

Hallo,

ich möchte über den Befehl

        If RSFahrzeugdaten.BOF Then
            cmdZurueck.Visible = False
            cmdZurueckzumAnfang.Visible = False
        Else
            cmdZurueck.Visible = True
            cmdZurueckzumAnfang.Visible = True
        End If

erreichen, dass die beiden Zurückbuttons unsichtbar werden, wenn er am Anfang des Datensatzes steht.

Das funktioniert aber nicht, da der Befehl

 RSFahrzeugdaten.BOF

den Wert False zurück gibt. Das kann aber nicht stimmen, da er den ersten Datensatz anzeigt und davor gibt es keine weiteren.

Kann mir einer sagen, wieso das so ist ?

Achso falls es nützlich ist hier der ganze code

Option Explicit
Private DB              As DAO.Database    'Datenbank
Private RSFahrzeugdaten As DAO.Recordset   'Tabelle
Private RSModelldaten   As DAO.Recordset   'Tabelle

Dim intFahrzeugNr%, intModellNr%

Private Sub cmdSuchen_Click()

    intFahrzeugNr = CInt(txtFahzeugNr.Text)

    With RSFahrzeugdaten
        .Index = "FahrzeugNrIndex"                      'Sucht nach dem Index
        .Seek Chr(61), intFahrzeugNr                    'Sucht nach der FahrzeugNr
        If Not .NoMatch Then                            'Gibt die restlichen Daten aus
            txtModellNr.Text = !ModellNr
            txtAngeschafft.Text = !AngeschafftAm
            txtFarbe.Text = !Farbe
            txtPreis.Text = Format(!Preis, "0.00 €")
            txtBaujahr.Text = !Baujahr
            txtKennzeichen.Text = !Kennzeichen
        Else
            Call MsgBox("Leider nicht gefunden!", vbCritical, "Fehler")
        End If
    End With

    With RSModelldaten
        .Index = "ModellNrIndex"
        .Seek Chr(61), intModellNr
        If Not .NoMatch Then
            txtModellname.Text = !ModellName
            txtHerkunftsland.Text = !Herkunftslandkürzel
            txtLeistung.Text = !Leistung
            txtHubraum.Text = !Hubraum
            txtZylinder.Text = !Zylinder
            txtGeschwindigkeit.Text = !Geschwindigkeit
            txtBeschleunigung.Text = !Beschleunigung
            txtGewicht.Text = !Gewicht
            txtHersteller.Text = !Hersteller
        Else
            Call MsgBox("Leider nicht gefunden!", vbCritical, "Fehler")
        End If
    End With

End Sub

Private Sub cmdVor_Click()
    ' Nächster Datensatz wird angezeigt
    RSFahrzeugdaten.MoveNext
    RSModelldaten.MoveNext
    Call UpdateList

End Sub

Private Sub cmdVorZumEnde_Click()
    ' Letzter Datensatz wird angezeigt
    RSFahrzeugdaten.MoveLast
    RSModelldaten.MoveLast
    Call UpdateList

End Sub

Private Sub cmdZurueck_Click()
    ' Vorheriger Datensatz wird angezeigt
    RSModelldaten.MovePrevious
    RSFahrzeugdaten.MovePrevious
    Call UpdateList

End Sub

Private Sub cmdZurueckzumAnfang_Click()
    ' Erster Datensatz wird angezeigt
    RSFahrzeugdaten.MoveFirst
    RSModelldaten.MoveFirst
    Call UpdateList

End Sub
...zum Beitrag

Oh sehe gerade hat die hälfte abgeschnitten...

Private Sub Form_Load()
    ' Öffnet die Verbindung zur Datenbank und setzt die Recordsets
    Set DB = OpenDatabase(App.Path & "\Fuhrpark2.mdb")
    Set RSFahrzeugdaten = DB.OpenRecordset("Fahrzeugdaten", dbOpenTable)
    Set RSModelldaten = DB.OpenRecordset("Modelldaten", dbOpenTable)

    If Not RSFahrzeugdaten.EOF Then
        txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
        txtModellNr.Text = RSFahrzeugdaten!ModellNr
        txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
        txtFarbe.Text = RSFahrzeugdaten!Farbe
        txtPreis.Text = Format(RSFahrzeugdaten!Preis, "0.00 €")
        txtBaujahr.Text = RSFahrzeugdaten!Baujahr
        txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
    End If

    If Not RSModelldaten.EOF Then
        txtModellname.Text = RSModelldaten!ModellName
        txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
        txtLeistung.Text = Format(RSModelldaten!Leistung, "0 PS")
        txtHubraum.Text = Format(RSModelldaten!Hubraum, "0 ccm")
        txtZylinder.Text = RSModelldaten!Zylinder
        txtGeschwindigkeit.Text = Format(RSModelldaten!Geschwindigkeit, "0.00 KM/H")
        txtBeschleunigung.Text = Format(RSModelldaten!Beschleunigung, "0.00 sec")
        txtGewicht.Text = Format(RSModelldaten!Gewicht, "0 Kg")
        txtHersteller.Text = RSModelldaten!Hersteller
    End If

    If RSFahrzeugdaten.BOF Then
        cmdZurueck.Visible = False
        cmdZurueckzumAnfang.Visible = False
    Else
        cmdZurueck.Visible = True
        cmdZurueckzumAnfang.Visible = True
    End If
End Sub

Sub UpdateList()
On Error GoTo Fehler                                        ' Bei einem RUNTIME ERROR springt er zum Fehler
    If Not RSFahrzeugdaten.EOF Then
        txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
        txtModellNr.Text = RSFahrzeugdaten!ModellNr
        txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
        txtFarbe.Text = RSFahrzeugdaten!Farbe
        txtPreis.Text = Format(RSFahrzeugdaten!Preis, "0.00 €")
        txtBaujahr.Text = RSFahrzeugdaten!Baujahr
        txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
    End If

    If Not RSModelldaten.EOF Then
        txtModellname.Text = RSModelldaten!ModellName
        txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
        txtLeistung.Text = Format(RSModelldaten!Leistung, "0 PS")
        txtHubraum.Text = Format(RSModelldaten!Hubraum, "0 ccm")
        txtZylinder.Text = RSModelldaten!Zylinder
        txtGeschwindigkeit.Text = Format(RSModelldaten!Geschwindigkeit, "0.00 KM/H")
        txtBeschleunigung.Text = Format(RSModelldaten!Beschleunigung, "0.00 sec")
        txtGewicht.Text = Format(RSModelldaten!Gewicht, "0 Kg")
        txtHersteller.Text = RSModelldaten!Hersteller
    End If
    Exit Sub

Fehler:
        Call MsgBox("Es ist ein Fehler aufgetreten" & vbCrLf & "Fehlernummer: " & Err.Number & _
    vbCrLf & "Fehlerbeschreibung: " & Err.Description, vbCritical, "Fehler")

End Sub
...zur Antwort

Wie viel Kilo wiegst du denn ? Ein Bikini kann man IMMER tragen. Solange du dir selber gefällst ist doch alles gut :)

...zur Antwort

Meine Freundin hatte das selbe Problem. Mach dir jetzt keine Gedanken um die Prüfung. Wenn du gut gelernt hast, dann wirst du das ding schon Schaukeln ;) Habe selber letzte Woche Prüfung geschrieben und es war gar nicht soooo schwer ;) Wenn du sagst, dass es an Faulheit liegt, dann überwinde den inneren Schweinehund ! Sag dir einfach.. : Noch einmal richtig lernen und dann nie wieder ! Hab ich auch gemacht ;) dann ging es. Dass schlimmste was du machen kannst ist, dass du dich verrückt machst. Bleib ruhig, mach pausen zwischen dem lernen und geh einem Hobby nach oder sonst was ;)

Wünsche dir viel Glück ;)

...zur Antwort

Tja da würde ich mal sagen... SELBER SCHULD !!!! Man raucht nicht aus tortz!! Man sollte normal gar nicht rauchen. Kenne mich da zwar nicht aus, aber ich denke 1 Zigarette ist für ein Menschen schon schädlich.. Dann sind 2 es wohl noch mehr ! Würde mich erst mal hinlegen und die beine anheben. Wenn es nicht besser wird zum arzt !

...zur Antwort

Hey,

habe selber das S3. Bin mit dem Handy voll und ganz zufrieden. Meine Freundin hat das s3 mini und ich muss ehrlich sagen, dass ist mir jetzt schon viel zu klein :D Finde die Auflösung bei dem großen auch viel besser. Vielleicht täuscht es nur, aber ich find es besser.

Also ich würde dir zum S3 raten ;)

LG

...zur Antwort

Geh am besten mal zu einer Berufsberatung. Die können dir am besten helfen. Außerdem müssten wir wissen, was du so für Fähigkeiten hast und was du magst.

Aber ein paar Beispiele :

Ingenieur Informatiker Architekt usw...

LG

...zur Antwort

Hast du gekündigt ? Dann ist alles möglich bei 1&1, aber das sie einfach so ein Angebot machen für das gleiche Geld, glaub ich nicht ;)

...zur Antwort

Liegt an der Durchblutung ;) ist ganz normal... also mach dir keine Gedanken

...zur Antwort

Hey, habe das Samsung Galaxy Xcover und nur Probleme damit... Schelchter bis gar kein Empfang. Ewig macht es ein Neustart. Hab es jetzt an Samsung geschickt. Also von dem Samsung rate ich dir ab ;)

...zur Antwort

Windows 7 ? -> Start -> Systemsteuerung ->Netzwerk und Internet -> Internetoption.. und da kannste die Internetadresse angeben, die du haben möchtest

...zur Antwort

Wenn du Gefühle für deinen Besten Freund hast, dann sollten dir die anderen in der Schule "sche*ßegal" sein... Entweder man steht zu seinen Gefühlen oder man lässt es ;)

Viel Glück

...zur Antwort