BOF gibt den WERT False aus obwohl der Zeiger am ersten Datensatz steht...

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    BOF gibt den WERT False aus obwohl der Zeiger am ersten Datensatz steht...

    Hallo,

    ich möchte über den Befehl

    Visual Basic-Quellcode

    1. If RSFahrzeugdaten.BOF Then
    2. cmdZurueck.Visible = False
    3. cmdZurueckzumAnfang.Visible = False
    4. Else
    5. cmdZurueck.Visible = True
    6. cmdZurueckzumAnfang.Visible = True
    7. End If


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

    Das funktioniert aber nicht, da der Befehl

    Visual Basic-Quellcode

    1. 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

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private DB As DAO.Database 'Datenbank
    3. Private RSFahrzeugdaten As DAO.Recordset 'Tabelle
    4. Private RSModelldaten As DAO.Recordset 'Tabelle
    6. Dim intFahrzeugNr%, intModellNr%, intPreis%, intBaujahr%, intKennzeichen%, intLeistung%
    7. Dim intHubraum%, intGeschwindigkeit%, intGewicht%
    9. Dim sngBeschleunigung As Single
    10. Dim byteZylinder As Byte
    11. Dim dateAngeschafftAm As Date
    13. Dim strFarbe$, strModellname$, strHerkunftsland$
    15. Private Sub cmdSuchen_Click()
    17. intFahrzeugNr = CInt(txtFahzeugNr.Text)
    19. With RSFahrzeugdaten
    20. .Index = "FahrzeugNrIndex" 'Sucht nach dem Index
    21. .Seek Chr(61), intFahrzeugNr 'Sucht nach der FahrzeugNr
    22. If Not .NoMatch Then 'Gibt die restlichen Daten aus
    23. txtModellNr.Text = !ModellNr
    24. txtAngeschafft.Text = !AngeschafftAm
    25. txtFarbe.Text = !Farbe
    26. txtPreis.Text = !Preis
    27. txtBaujahr.Text = !Baujahr
    28. txtKennzeichen.Text = !Kennzeichen
    29. Else
    30. Call MsgBox("Leider nicht gefunden!", vbCritical, "Fehler")
    31. End If
    32. End With
    34. With RSModelldaten
    35. .Index = "ModellNrIndex"
    36. .Seek Chr(61), intModellNr
    37. If Not .NoMatch Then
    38. txtModellname.Text = !ModellName
    39. txtHerkunftsland.Text = !Herkunftslandkürzel
    40. txtLeistung.Text = !Leistung
    41. txtHubraum.Text = !Hubraum
    42. txtZylinder.Text = !Zylinder
    43. txtGeschwindigkeit.Text = !Geschwindigkeit
    44. txtBeschleunigung.Text = !Beschleunigung
    45. txtGewicht.Text = !Gewicht
    46. txtHersteller.Text = !Hersteller
    47. Else
    48. Call MsgBox("Leider nicht gefunden!", vbCritical, "Fehler")
    49. End If
    50. End With
    52. End Sub
    54. Private Sub cmdVor_Click()
    55. ' Nächster Datensatz wird angezeigt
    56. RSFahrzeugdaten.MoveNext
    57. RSModelldaten.MoveNext
    58. Call UpdateList
    60. End Sub
    62. Private Sub cmdVorZumEnde_Click()
    63. ' Letzter Datensatz wird angezeigt
    64. RSFahrzeugdaten.MoveLast
    65. RSModelldaten.MoveLast
    66. Call UpdateList
    68. End Sub
    70. Private Sub cmdZurueck_Click()
    71. ' Vorheriger Datensatz wird angezeigt
    72. RSModelldaten.MovePrevious
    73. RSFahrzeugdaten.MovePrevious
    74. Call UpdateList
    76. End Sub
    78. Private Sub cmdZurueckzumAnfang_Click()
    79. ' Erster Datensatz wird angezeigt
    80. RSFahrzeugdaten.MoveMoveFirst
    81. RSModelldaten.MoveFirst
    82. Call UpdateList
    84. End Sub
    86. Private Sub Form_Load()
    87. ' Öffnet die Verbindung zur Datenbank und setzt die Recordsets
    88. Set DB = OpenDatabase(App.Path & "\Fuhrpark2.mdb")
    89. Set RSFahrzeugdaten = DB.OpenRecordset("Fahrzeugdaten", dbOpenTable)
    90. Set RSModelldaten = DB.OpenRecordset("Modelldaten", dbOpenTable)
    92. If Not RSFahrzeugdaten.EOF Then
    93. txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
    94. txtModellNr.Text = RSFahrzeugdaten!ModellNr
    95. txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
    96. txtFarbe.Text = RSFahrzeugdaten!Farbe
    97. txtPreis.Text = RSFahrzeugdaten!Preis
    98. txtBaujahr.Text = RSFahrzeugdaten!Baujahr
    99. txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
    100. End If
    102. If Not RSModelldaten.EOF Then
    103. txtModellname.Text = RSModelldaten!ModellName
    104. txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
    105. txtLeistung.Text = RSModelldaten!Leistung
    106. txtHubraum.Text = RSModelldaten!Hubraum
    107. txtZylinder.Text = RSModelldaten!Zylinder
    108. txtGeschwindigkeit.Text = RSModelldaten!Geschwindigkeit
    109. txtBeschleunigung.Text = RSModelldaten!Beschleunigung
    110. txtGewicht.Text = RSModelldaten!Gewicht
    111. txtHersteller.Text = RSModelldaten!Hersteller
    112. End If
    114. If RSFahrzeugdaten.BOF Then
    115. cmdZurueck.Visible = False
    116. cmdZurueckzumAnfang.Visible = False
    117. Else
    118. cmdZurueck.Visible = True
    119. cmdZurueckzumAnfang.Visible = True
    120. End If
    121. End Sub
    123. Sub UpdateList()
    124. On Error GoTo Fehler ' Bei einem RUNTIME ERROR springt er zum Fehler
    125. If Not RSFahrzeugdaten.EOF Then
    126. txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
    127. txtModellNr.Text = RSFahrzeugdaten!ModellNr
    128. txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
    129. txtFarbe.Text = RSFahrzeugdaten!Farbe
    130. txtPreis.Text = RSFahrzeugdaten!Preis
    131. txtBaujahr.Text = RSFahrzeugdaten!Baujahr
    132. txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
    133. End If
    135. If Not RSModelldaten.EOF Then
    136. txtModellname.Text = RSModelldaten!ModellName
    137. txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
    138. txtLeistung.Text = RSModelldaten!Leistung
    139. txtHubraum.Text = RSModelldaten!Hubraum
    140. txtZylinder.Text = RSModelldaten!Zylinder
    141. txtGeschwindigkeit.Text = RSModelldaten!Geschwindigkeit
    142. txtBeschleunigung.Text = RSModelldaten!Beschleunigung
    143. txtGewicht.Text = RSModelldaten!Gewicht
    144. txtHersteller.Text = RSModelldaten!Hersteller
    145. End If
    146. Exit Sub
    148. Fehler:
    149. Call MsgBox("Es ist ein Fehler aufgetreten" & vbCrLf & "Fehlernummer: " & Err.Number & _
    150. vbCrLf & "Fehlerbeschreibung: " & Err.Description, vbCritical, "Fehler")
    152. End Sub

    Recordset.BOF: Returns a value that indicates whether the current record position is before the first record in a Recordset object.
    msdn.microsoft.com/en-us/library/office/ff823092.aspx
    Wird also erst gesetzt wenn du beim ersten Record ein MovePrevious machst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende