Prüfen ob ID vorhanden

[thomson]

Hallo, sorry bin aber noch neu in VB.
Deswegen auch folgende Frage.
Habe eine Form in der ich eine ID eingebe, durch Buttonklick öffnet sich eine neue Form und zeigt alle Daten zu dieser ID an. Wenn es diese ID aber nicht gibt bringt er natürlich ne Fehlermeldung. Wie Kann ich das verhindern?

 

[Retlaw]

In der Sub in welcher du die Daten ausliest:

Sub nameDerSubEben
    On Error Goto errHandler 'Wenn ein Fehler auftritt gehe zu dieser Sprungmarke
    ... 'Hier kommt das rein was jetzt schon drin steht
    Exit Sub 'Muss sein, was jetzt kommt darf nur im Fehlerfall ausgeführt werden
errHandler:
    If Err.Number = xyz Then 'für xyz hier die Fehlernummer einsetzen
        MsgBox "Kein Datensatz mit dieser ID gefunden!",vbOkOnly,"Gibts nicht"
    End If
End Sub

Lass noch einmal dein Programm laufen und schreib dir die Nummer des Laufzeitfehlers auf, die trägst du dann anstatt xyz ein.

 

[thomson]

?

Also ins Form Load

 

[thomson]

SUPER

Funktioniert DANKE

 

[thomson]

Noch eine einzige FRAGE

Private Sub cmdSaveProg_Click()

frmDelete.Show

End Sub

Übergebe die ID so. Springe dann in die frmDelete wo jetzt dann der Fehler angezeigt wird. Jetzt soll er aber die frmDelete nicht anzeigen, wenn der ID Fehler geschieht

 

[Shakie]

Dann machst du halt einfach in Form_Load den Befehl Unload frmDelete, wenn der Fehler auftritt. Ist zwar nicht die eleganteste Variante, aber die Form wird dann nicht angezeigt, da sie während dem Laden gleich wieder entladen wird.