Fehlermeldung abfangen

10/05/2010 - 12:36 von Steffen Strauss | Report spam
Hallo NG,

habe eine Kakteendatenbank. Im Formular wird im Listenfeld1 die Gattung
und im Listenfeld 2 die dazugehörigen Arten aus meiner Sammlung
angezeigt.Bei Klick in Liste 2 wird das Bild angezeigt.
Nach aktualisieren von Liste1( d.h. Anwahl einer anderen Gattung) wird
der Focus auf den ersten Eintrag von Liste 2 gesetzt und sofort dieses
Bild angezeigt. Funktioniert prima.
Jetzt kommt es vor, dass von einer Gattung z.Zt. keine Art in meiner
Sammlung befindet. Hier gibts das Problem.

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "SukkulentenID = " & Me!Liste2 .

Liste ist ja leer und Wert Me!Liste 2 =NULL. Systemmeldung ...fehlender
Operator ...Laufzeitfehler 3077

Wie kann ich hier eingreifen ?
Gedanklich habe ich 2 Ansàtze. Entweder ich zeige in Liste 1 nur
Gattungen mit mindestens 1 Art im Bestand an. Wàre aber nur ein
Kompromiss. Oder ich fange die Systemmeldung mit einer eigenen MsgBox ab.
Habe versucht
If rs.findfirst "SukkulentenID="& NULL Then
MsgBox.
aber entweder habe ich hier einen Syntaxfehler oder das funktioniert so
nicht.
Kann mir jemand mal nen Denkanstoß für eine andere Variante geben oder
meine Syntax korrigieren ?
Vielen Dank
Gruß Steffen
 

Lesen sie die antworten

#1 Peter Doering
10/05/2010 - 12:49 | Warnen spam
Hallo,

Steffen Strauss wrote:

habe eine Kakteendatenbank. Im Formular wird im Listenfeld1 die Gattung
und im Listenfeld 2 die dazugehörigen Arten aus meiner Sammlung
angezeigt.Bei Klick in Liste 2 wird das Bild angezeigt.
Nach aktualisieren von Liste1( d.h. Anwahl einer anderen Gattung) wird
der Focus auf den ersten Eintrag von Liste 2 gesetzt und sofort dieses
Bild angezeigt. Funktioniert prima.
Jetzt kommt es vor, dass von einer Gattung z.Zt. keine Art in meiner
Sammlung befindet. Hier gibts das Problem.

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "SukkulentenID = " & Me!Liste2 .

Liste ist ja leer und Wert Me!Liste 2 =NULL. Systemmeldung ...fehlender
Operator ...Laufzeitfehler 3077



Du kannst mit der Funktion Nz auf Null pruefen:

= " & Nz(Me!Liste2, "Ersatzwert")

wobei dir das nicht wirklich weiterhilft. Wenn Liste2 leer ist, solltest du
garnicht suchen gehen, oder? Wie soll sich der Ablauf fuer den Benutzer
denn darstellen, wenn Liste2 leer ist?

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen