ich stehe mal wieder vor einem Problem bei dem ich leider nicht weiter weiß.
Ich möchte eine Access-Datenbank auf bestimmte Werte überprüfen.
Hier vorab mein Versuch:
Do Until intPosition > MaxValPosition
On Error GoTo NichtVorhanden
strSelect = "SELECT Materials.[_EF40_] AS Position" & intPosition & " FROM Materials WHERE _
Materials.[_EF40_] = '99" & intPosition & "' "
RSCategories.Open strSelect, ADOConnection
ReDim Preserve ArrayPosition(intPosition)
ArrayPosition(intPosition) = RSCategories("Position" & intPosition)
RSCategories.Close
intPosition = intPosition + 1
Loop
Exit Sub
NichtVorhanden:
ReDim Preserve ArrayPosition(intPosition)
ArrayPosition(intPosition) = 0
RSCategories.Close
intPosition = intPosition + 1
GoTo Anfang
Ich versuche erstmal ein Array zu füllen und dieses später dann weiterverarbeiten.Ich scheitere jedoch schon beim Befüllen des Arrays. In der Spalte _EF40_ stehen Werte von 0 bis 99999. Wenn ich nun einen bestimmten Wert suche (Bsp. 993) und dieser nicht in der Spalte vorhanden ist, soll in das Array der Wert "0" geschrieben werden. Das habe ich mit Goto NichtVorhanden versucht.
Hat jemand eine Idee, wie man das besser lösen kann?
Wie kann man zum Beispiel eine "True, False" Abfrage einbauen, ob der Wert vorhanden ist, um die Goto....-Variante wegzulassen?
Freundliche Grüße
Muehli