Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fehler 94
Autor: B.Jones
Datum: 26.11.02 13:30
Hallo, ich habe versucht das Null , 0, "" NULL in einer Funktion generell zu lösen. Ich denke das könnte Dir helfen : Ab hier Code : 'checkNull returns TRUE in each of the following cases. 'The argument variable ' - has not been initialized (vbEmpty) ' - contains no valid data (vbNull) ' - is an empty string ("") or a string consisting of spaces ' - is a number equal to 0 ' - is an object variable that Is Nothing Public Function checkNull(ByRef aValue As Variant) As Boolean Select Case TypeName(aValue) Case "Empty", "Null", "Nothing" checkNull = True Case "String" checkNull = Trim(aValue) = "" Case "Boolean" checkNull = False Case "Byte", "Integer", "Long", "Single", "Double", "Currency" checkNull = aValue = 0 Case Else If IsNull(aValue) Then checkNull = True End If End Select End Function In Deinem Fall sieht die Übergabe in Variablen dann so aus : if not checknull(!Name) then lmListItem.SubItems(1) = !Name if not checknull(!VK) lmListItem.SubItems(2) = Format$(!VK, "##,###,##0.00") & " €" etc... Checknull prüft nun den Type 'Field' und erkennt den Wert Null

Fehler 94	364	Ian McDeath	26.11.02 13:12
Re: Fehler 94	190	B.Jones	26.11.02 13:30
Re: Fehler 94	169	Ian McDeath	26.11.02 13:58
Re: Fehler 94	183	dbayer	26.11.02 15:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen