Fehlermeldung wenn suche erfolglos

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Squall_Titus.

    Fehlermeldung wenn suche erfolglos

    Ich habe eine Suchanfrage und ein RecordSet, in der die Ergebnisse abgespeichert werden.

    Wie kriege ich es hin, das ich eine Fehlermeldung ausgeben kann, wenn die Suche erfolglos war?

    VB.NET-Quellcode

    1. Sub Access_Kundensuche_schlag()
    2. Dim conn As New Connection, rec As New Recordset
    3. Dim sql As String, i As Integer
    4. ThisWorkbook.Sheets("Tabelle3").Rows("2:100").Delete
    5. conn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" _
    6. + ThisWorkbook.Path + "\Test_Kunden.MDB"
    8. 'Suchanfrage
    9. sql = "SELECT * FROM [Kunden] WHERE [Schlagwoerter] Like '%" & Me.txt_schlag_suche.Value & "%';"
    10. 'Mein Versuch einer Errormeldung --> kann nicht gehen, da sql keine ergebnisse enthält
    11. If sql = "" Then
    12. MsgBox "Kein Ergebnis gefunden!", vbOKOnly + vbCritical _
    13. , "Fehler: Suche erfolglos!"
    14. Else
    16. rec.Open sql, conn 'Hier bricht das Programm ab, da rec keine werte bekommt.
    17. rec.MoveFirst
    18. Do While Not rec.EOF
    19. .....
    20. rec.MoveNext
    21. Loop
    22. End If


    Wie kann ich verhindern, das das Programm bei rec.open abbricht?

    Da bei einem adOpenForwardOnly-CursorType die RecordCount-Eigenschaft nicht funktioniert muß man hier prüfen, ob EOF und BOF gleichzeitig True ist. Dann sind keine Daten da.

    VB.NET-Quellcode

    1. rec.Open sql, conn
    2. If rec.BOF And rec.EOF Then
    3. MsgBox "Kein Ergebnis gefunden!", vbOKOnly + vbCritical, "Fehler: Suche erfolglos!"
    4. Else
    5. rec.MoveFirst
    6. Do While Not rec.EOF
    7. '.....
    8. rec.MoveNext
    9. Loop
    10. End If

Facebook
Telefonspende