PDA

Vollständige Version anzeigen : Brauche dringend VBA-Code!


Helga
22.10.2001, 11:45
Habe z.B. für eine Rechnungsnummer zwei Kundennummern.
Wie lautet der Code, wenn ich die Tabelle mit SQL auslese und zwar jene Datensätze, die zur Rechnungsnummer gehören. Wenn die Anzahl der gefundenen Datensätze > 1 ist, soll der Wert in ein Textfeld geschrieben werden, dann den nächsten Wert in ein anderes Textfeld.
Wie formuliere ich das in VBA??

LIF
22.10.2001, 12:01
So oder ähnlich; die Deklaration lasse ich weg.
Dim DB as Database
Dim rs as recordset
Dim strTemp as string
Dim count as integer

strTemp = "Select Auftragsnummer Kundennummer von Auftrag where AuftragsNumer = " & Variable

set Db = currentDb()
Set rs = db.OpenRecordset(strTemp)
rs.movelast
If rs.recordcount > 1 then
count = 1
Do Until rs.eof
Feld & Count = rs!Kundennummer
count = count + 1
Loop

Danach alles wieder schliessen und auf nothing setzen

Gruss

LIF
22.10.2001, 12:15
Pardon nach dem LOOP
kommt noch ein endif, habe ich vergessen.
Darf leider nicht editieren, bin kein reg.-Benutzer.
Gruss