If IsNull funktioniert nicht
11.06.2006 19:44:51
Maik
Ich drehe hier langsam, aber sicher, am Rad.
Ich frage die Werte eines Access Datenbank ab, funktioniert soweit auch ohne Probleme. Mit nachfolgendem Code lasse ich alle Datensätze Zeile für Zeile in ein Excel Tabellenblatt schreiben:
Do While rs.EOF = False
i = i + 1
s = 1
For j = 0 To rs.Fields.Count - 1
s = s + 1
If IsNull(rs.Fields.Item(j).Value) = False Then
If Not rs.Fields.Item(j).Name = "Zusatz" Then
Tabelle1.Cells(i, s + 1) = rs.Fields.Item(j).Value
Else
If IsNull(rs.Fields.Item(j).Value) = False Then
'MsgBox "x" & rs.Fields.Item(j).Name & "x"
'MsgBox "x" & rs.Fields.Item(j).Value & "x"
i = i + 1
Tabelle1.Cells(i, 4) = "Zusatz: "
Tabelle1.Cells(i, 5) = rs.Fields.Item(j).Value
End If
End If
End If
Next
rs.MoveNext
Loop
Die Spalte "Zusatz" möchte ich nur einfügen, und das jeweils ein Zeile unter dem dazugehörigen Datensatz, wenn diese überhaupt einen Wert enthält. Mit dem obigen Schnipsel funktioniert das leider nicht, warum auch immer. Beim Daten einlesen popen die MsgBoxen bei jeden Datensatz auf. Zwischen den zwei "x" steht aber gar kein Wert, noch nicht einmal ein Leerzeichen...
Woran liegt es?
Gruß
Maik