Ado Fehler erkenne

[mmdj]

Ado Fehler erkennen

Hallo.
Ich arbeite gerade an einem Programm, das mir aus einer Datenbank einen bestimmten Datensatz sucht. Es sucht dabei nach dem Text einer Textbox. Wenn dieser Text nicht vorhanden ist, soll mir das Programm eine MsgBox ausgeben, und nicht wie jetzt abstürzen. Ich arbeite mit ADO.
Danke schon mal für eure Antworten!

 

[Stephan Boettcher]

ich denke das ist was du suchst:

Private Sub Form_load()

on error goto fehler_ausgabe
'Hier der Code, wo der Fehler auftreten kann

Exit Sub
fehler_ausgabe:
msgbox "Es ist ein Fehler aufgetreten", vbinformation + vbokonly, "Fehler"
End Sub

 

[mmdj]

Fehler erkennen

Danke Stephan Boettcher für deine Antwort!
Ich bräuchte aber die Anweisung "Falls Datensatz nicht gefunden, dann MsgBox..."

Wie kann ich das mit Visual Basic ausdrücken

If..... then
msgbox.....

 

[JensG]

Wenn kein Datensatz gefunden wird ist
Recordset.EOF = True
und
Recordset.Recordcount =0
das lässt sich auswerten.

Zeig doch mal ein wenig Code.

 

[mmdj]

Danke Jens

Danke Jens! Es klappt!

Das Programm sucht in der Tabelle mit den Barcodes den Code, der Eingegeben wurde, wenn er nicht gefunden wird, wird eine Fehlermeldung ausgegeben, sonst wird die Nr. des Datensatzes in der Variablen s gespeichert, die Tabelle wird geschlossen, dan wird die Tabelle mit den Artikelbezeichnungen geöffnet, die Bezeichnung des Artikel auf Datenastz s wird ausgelesen,.... Das gleiche passiert auch mit der Tabelle mit den Preisen.

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)Private 

If KeyCode = 13 Then

    Dim s As Integer
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.LockType = adLockReadOnly
    rs.Open "SELECT * FROM ALT", conn, adOpenStatic, adLockPessimistic
    rs.Find "ALT_K_BAR = '" & Text4.Text & "'"
     If rs.EOF = False Then

        Text1.Text = rs.Fields("ALT_K_COD").Value
        s = rs.Fields("ALT_K_COD").Value
        rs.Close
        
        rs.Open "SELECT * FROM ART", conn, adOpenStatic, adLockPessimistic
        rs.Find "ART_K ='" & s & "'"
        Text2.Text = rs.Fields("ART_BEZ").Value
        rs.Close
        
        rs.Open "SELECT * FROM PLI", conn, adOpenStatic, adLockPessimistic
        rs.Find "PLI_K_COD ='" & s & "'"
        Text3.Text = rs.Fields("PLI_PREIS").Value
        rs.Close
        Text5.SetFocus
     
     Else
        MsgBox "Artikel nicht gefunden!", vbExclamation, "Achtung"
        Text4.Text = ""
     End If
     
End If
End Sub