Member
Beiträge: 11
| Hallo miteinander,
ich habe das Problem, das in folgendem Code (Ausschnitt): in der angegebenen Zeile der Fehler 94 Unzulässige Verwendung von NULL erzeugt wird.
Aber genau das hätte ja in der Schleife abgefangen werden sollen.. Meines Wissens nach erzeugt doch Dlookup eine NULL wenn die Kriterien auf ein NICHT-Ergebnis führen, oder?
Vielen Dank für eure Antwort im Voraus.
Viele Grüße,
Bernd aus Ulm
'##########################################################################################################
For lk = 0 To AnzProd - 1
'Produkt aus der Arbeitstabelle des Datensatzes aus int_r ermitteln, wenn Zeile schon gelöscht Loops machen.
Do
int_r = Int((AnzProd * Rnd) + 1)
Debug.Print int_r
ProdRnd = DLookup("Produktnummer", "wtab_LieferplanungRandom", "Index =" & int_r) '<<<<<#### HIER TRITT DER FEHLER AUF!!!
Debug.Print ProdRnd
Loop While IsNull(ProdRnd)
'Definieren Zeilennummer aus der kleinsten Slotnummer aus dem Produktionsprogramms und der laufenden Zählers addiert
Insertrow = DMin("ID_SlotNr", "tab_ProdProgSlots", "int_ProdProg = " & ID_ProdProg) + lk
' Aktualisieren der Produktionsprogrammslots
sql_UpdateProduct = "UPDATE tab_ProdProgSlots SET tab_ProdProgSlots.int_Produkt = " & Str(CInt(ProdRnd)) & " WHERE (((tab_ProdProgSlots.ID_SlotNr)= " & Insertrow & ));"
CurrentDb.Execute sql_UpdateProduct
' Aktualisieren der Formularanzeige
[Forms]![frm_Produktionsprogramm].sfrm_ProdProgSlots.Requery
'Löschen genau dieses zufällig ermittelten Produkts aus der Arbeitstabelle
sql_DeleteProduct = "DELETE wtab_LieferplanungRandom.*, wtab_LieferplanungRandom.Index FROM wtab_LieferplanungRandom WHERE (((wtab_LieferplanungRandom.Index)=" & Str(CInt(int_r)) & "));"
CurrentDb.Execute sql_DeleteProduct
Next lk |
