Typen unverträglich sobald Wert leer
07.11.2021 14:31:48
Tobi
Ich lasse im Schritt vorher die ListBox2 füllen ( 5 stellige Zahl ) an der ersten Stelle der ListBox
Dann will ich über die Datenbank diesen Wert duch durch Inhalt austauschen lassen.
Aber an der Stelle ( GeraeteNr = ListBox2.List(i, 0) ) kommt die Fehlermeldung (Laufzeitfehler 13 Typen unverträglich) , sobald ListBox2.List(i, 0) leer ist.
Dim GeraeteNr As Long muss auf jeden Fall Long sein da sonst einer Fehlermeldung bei der Suche in der Datenbank kommt.
' Anzahl der Zeilen bestimmen bestimmen
ListBox2.AddItem
max = ListBox2.ListCount
max = max - 2
'Kundennummer durch Namen ersetzen
For i = 0 To max
Dim GeraeteNr As Long
ListBox2.AddItem
GeraeteNr = ListBox2.List(i, 0)
If GeraeteNr 0 Then
Dim uData As ADODB.Recordset
Datenbank = "geraete"
ConnectDB
Set uData = GetRecordset(GeraeteNr)
ListBox2.List(i, 0) = uData.Fields.Item("Hersteller").Value
ListBox2.List(i, 1) = uData.Fields.Item("Model").Value
ListBox2.List(i, 2) = uData.Fields.Item("Seriennummer").Value
End If
Next i
CloseRS
Tobi