Hallöchen Leute,
ich habe da ein kleineres Problem mit einer If-Anweisung.
Meine Anweisung sieht wie folgt aus:
If Rs.Fields("Gesamtbetrag") = "" Then
Textfeld1.Text = "Keine Eintragungen vorhanden"
Else
Textfeld1.Text = CStr(Rs.Fields("Gesamtbetrag")) & " Euro"
Textfeld2.Text = EingabeDatum
Textfeld3.Text = EingabeArbeistort
End If
Wobei Rs mein ADODB Recordset ist.
Gesamtbetrag ist ein, mit Hilfe von SQL, erzeugtes Feld (Also ein Abfrage Ergebnis).
Nun will ich dass es mir falls Gesamtbetrag leer ist, also keine Datebbankeinträge vorhanden sind, die Meldung "Keine Eintragungen vorhanden" bringt.
Doch immer wenn das der Fall ist, also das keine Eintragungen vorhanden sind, bringt er mir die Fehlermeldung "EOF oder BOF ist True oder der Datensatz wurde gelöscht" oder so ähnlich zumindest.
Danach stürzt mein Programm ab. Ich will aber dass er dann gar nicht erst weiterarbeitet, sondern die Meldung "Keine Eintragungen vorhanden" ausliefert.
Was habe ich denn da falsch gemacht?
Im voraus schonmal Dankeschön
Grüssle
itsection
ich habe da ein kleineres Problem mit einer If-Anweisung.
Meine Anweisung sieht wie folgt aus:
If Rs.Fields("Gesamtbetrag") = "" Then
Textfeld1.Text = "Keine Eintragungen vorhanden"
Else
Textfeld1.Text = CStr(Rs.Fields("Gesamtbetrag")) & " Euro"
Textfeld2.Text = EingabeDatum
Textfeld3.Text = EingabeArbeistort
End If
Wobei Rs mein ADODB Recordset ist.
Gesamtbetrag ist ein, mit Hilfe von SQL, erzeugtes Feld (Also ein Abfrage Ergebnis).
Nun will ich dass es mir falls Gesamtbetrag leer ist, also keine Datebbankeinträge vorhanden sind, die Meldung "Keine Eintragungen vorhanden" bringt.
Doch immer wenn das der Fall ist, also das keine Eintragungen vorhanden sind, bringt er mir die Fehlermeldung "EOF oder BOF ist True oder der Datensatz wurde gelöscht" oder so ähnlich zumindest.
Danach stürzt mein Programm ab. Ich will aber dass er dann gar nicht erst weiterarbeitet, sondern die Meldung "Keine Eintragungen vorhanden" ausliefert.
Was habe ich denn da falsch gemacht?
Im voraus schonmal Dankeschön
Grüssle
itsection