Bis zu bestimmter Stelle in Liste zählen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

Ich habe eine Abfrage mit ID, Datum1, Datum2, Tage (Datum2 - Datum1).
Diese wiederum habe ich in einem Fromular als Listenfeld Liste0 dargestellt - geordnet nach Tagen (aufsteigend). In einem Textfeld Text1 habe ich die Anzahl der DS errechnen lassen. In einem weiteren Textfeld Text2 habe ich (als Steuerelementinhalt) =([Text1]+1)/2 errechnen lassen. Nun wird mir eine Zahl ausgegeben, z.B. die 54.
Nun möchte ich in einem weiteren Textfeld Text 3, dass es mir aus der Liste den Wert der 4. Spalte (Tage) der Zeile 54 (Ergebnis Text2) anzeigt.
VBA-Code Ereingis Formular Beim Anzeigen:

Private Sub Form_Current()
Me.Text3 = Me.Liste0.Column(3, Text2)
End Sub

Leider funktioniert das nicht. Es zeigt mit den Wert der Spalte 4, Zeile 1 an.
Woran kann das liegen? Gebe ich Column(3, 54) ein, funktioniert es wunderbar. Darf ich das mit dem Text2 nicht machen?

Gebe ich im Text3 =Liste0.Column(3;[Text4]) ein, zeigt es mit Spalte 1, Zeile 4 an…

Bitte dringend um Hilfe, L.

#2

Hallo,

Ich habe eine Abfrage mit ID, Datum1, Datum2, Tage (Datum2 -
Datum1).
Diese wiederum habe ich in einem Fromular als Listenfeld
Liste0 dargestellt - geordnet nach Tagen (aufsteigend). In
einem Textfeld Text1 habe ich die Anzahl der DS errechnen
lassen.

Wie?

In einem weiteren Textfeld Text2 habe ich (als
Steuerelementinhalt) =([Text1]+1)/2 errechnen lassen. Nun wird
mir eine Zahl ausgegeben, z.B. die 54.
Nun möchte ich in einem weiteren Textfeld Text 3, dass es mir
aus der Liste den Wert der 4. Spalte (Tage) der Zeile 54
(Ergebnis Text2) anzeigt.
VBA-Code Ereingis Formular Beim Anzeigen:

wahrscheinlich ist das Ereignis ungeeignet…

versuch, anstatt Text2 zu benutzen (eigentlich ME!Text2), die gesante Berechnung hier zu wiederholen und einzusetzen.

Private Sub Form_Current()
Me.Text3 = Me.Liste0.Column(3, Text2)
End Sub

Leider funktioniert das nicht. Es zeigt mit den Wert der
Spalte 4, Zeile 1 an.
Woran kann das liegen? Gebe ich Column(3, 54) ein,
funktioniert es wunderbar. Darf ich das mit dem Text2 nicht
machen?

Gebe ich im Text3 =Liste0.Column(3;[Text4]) ein, zeigt es mit

ist „[Text4]“ ein Tippfehler?

Ansonsten auch hier Berechnung wiederholen, wie oben gesagt.

Spalte 1, Zeile 4 an…

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Vielen lieben Dank für deine schnelle Hilfe. Hat auch prompt geklappt! und zwar so:

Me.Text3 = Me.Liste0.Column(3, (((DCount("*", „AUSW_KOMPL“, [ID])) + 1) / 2))

Einfach alle Berechnungen für Text2 eingefügt. So einfach kanns gehen…

DANKE nochmal, L.