Supportnet / Forum / Datenbanken

hallo leute, kann mir wer sagen, was ich bei folgendem code falsch gemacht habe? dim dat(1 To 4) As Date dat(1) = txt_datum_termin_1 dat(2) = txt_datum_termin_2 dat(3) = txt_datum_termin_3 dat(4) = txt_datum_termin_4 For i = dat(1 to 4) danke!

Hi marcellino,

stellt sich für mich erst mal die Frage, wie Du darauf kommst etwas falsch gemacht zu haben.

Ich gehe mal davon aus, Access meldet Dir bei der Eingabe der letzten Zeile einen Fehler.

Dieser ist darauf zurückzuführen, daß der letzte Aufruf absolut keinen Sinn ergibt. Allerdings kann ich nicht erraten, was Du vorhast.

Egal, eine For-Schleife benötigt einen Anfangs- und Endwert, z.B.

For i = 1 To 4
    MsgBox dat(i)
Next i

würde Sinn ergeben.

Die Variable i muß natürlich vorher deklariert werden.

Gruß

Johnny

erst mal danke für die antwort.

wenn ich die berechnung ausführen möchte, erscheint folgende meldung: Fehler beim Kompilieren: Sub oder Function nicht definiert...

der code sieht wie folgt aus:

dat(0) = txt_datum_termin_1
dat(1) = txt_datum_termin_2
dat(2) = txt_datum_termin_3
dat(3) = txt_datum_termin_4


For i = 1 To 4

rs.AddNew
rs!priorität_id = cbx_priorität
rs!betrieb_id = cbx_bereich
rs!gruppe_id = cbx_gruppe
rs!periodizität_id = cbx_periodizität
rs!typ_id = cbx_typ
rs!datum_auftrag = txt_datum_auftrag
rs!datum_termin = dat()
rs!zeit_start = txt_zeit_start
rs!zeit_ende = txt_zeit_ende


rs.Update
Next i
rs.Close
db.Close

klar, irgendwas ist falsch; aber WAS?

Du solltest natürlich bei der Variable dat() auch den Index angeben, der in der Schleife durch die Variable i widergegeben wird: dat(i)

For i = 1 To 4
    rs.AddNew
    rs!priorität_id = cbx_priorität
    rs!betrieb_id = cbx_bereich
    rs!gruppe_id = cbx_gruppe
    rs!periodizität_id = cbx_periodizität
    rs!typ_id = cbx_typ
    rs!datum_auftrag = txt_datum_auftrag
    'Entweder...
    rs!datum_termin = dat(i)
    'oder, wenn es sich bei txt_datum_termin_n
    'um TextBoxen handelt...
    rs!datum_termin = Controls("txt_datum_termin_" & i)
    '
    rs!zeit_start = txt_zeit_start
    rs!zeit_ende = txt_zeit_ende
    rs.Update
Next i
rs.Close
db.Close

Gruß

Johnny

aha! jetzt hats geklappt! tausend dank mein retter...

gruss
marcellino

• Abfrage