Pohl
2003-12-16 09:05:18 UTC
Hallo Zusammen,
in meiner Access Anwendung die als endloser Kalender zur
Arbeitszeiterfassung gestaltet ist, besteht das Problem im
Unterformular das aktive Steuerelement zu ermitteln.
Dort ist jeder Tag im Monat eine Tabellenspalte und somit ein
gebundenes Formular-Control (T1...T31).
Zu bestimmten Einträgen ist erforderlich noch zusätzlich eine
Anmerkung zu speichern, das soll mit einem Popup Formualar in einer
seperaten Tabelle erfolgen.
Man könnte 31x eine Ereignis bei Taste ab (F6) realisiern, das ist
aber
ein mächtige Schreibarbeit. Besteht aber die Möglichkeit zu bestimmen,
welches Control (T1...T31) aktiv ist, kann man mit einen Index und
einem
einmaligen Ereignis bei Taste ab (auf Formualar bezogen) den Bezug zum
Feld bestimmen. Hier noch mein Code Ansatz
Dim AktSteuerelement As Control
Dim TagesDatum As String
Dim TagesStunden As Double
Dim Auftragsnummer As Integer
Dim I As Integer
Set AktSteuerelement = ???
For I = 1 To 31
If AktSteuerelement.NAME = "T" & I Then
TagesDatum = I & " / " & Me.Abr_Monat & " / " & Me.Abr_Jahr
TagesStunden = AktSteuerelement.Value
Auftragsnummer = Me.Auftrag
End If
Next I
(Tagesdatum, Stunden und Auftragsnummer soll dann an das Popup
Formualar übergeben werden, die Anmerkungen werden dann im Popup
ergänzt)
Screen.ActiveControl aber funktioniert bekanntermassen nicht
im Unterformular.
Wer kann mir einen Tip geben? Vielen Dank im Voraus.
MfG Andreas Pohl
in meiner Access Anwendung die als endloser Kalender zur
Arbeitszeiterfassung gestaltet ist, besteht das Problem im
Unterformular das aktive Steuerelement zu ermitteln.
Dort ist jeder Tag im Monat eine Tabellenspalte und somit ein
gebundenes Formular-Control (T1...T31).
Zu bestimmten Einträgen ist erforderlich noch zusätzlich eine
Anmerkung zu speichern, das soll mit einem Popup Formualar in einer
seperaten Tabelle erfolgen.
Man könnte 31x eine Ereignis bei Taste ab (F6) realisiern, das ist
aber
ein mächtige Schreibarbeit. Besteht aber die Möglichkeit zu bestimmen,
welches Control (T1...T31) aktiv ist, kann man mit einen Index und
einem
einmaligen Ereignis bei Taste ab (auf Formualar bezogen) den Bezug zum
Feld bestimmen. Hier noch mein Code Ansatz
Dim AktSteuerelement As Control
Dim TagesDatum As String
Dim TagesStunden As Double
Dim Auftragsnummer As Integer
Dim I As Integer
Set AktSteuerelement = ???
For I = 1 To 31
If AktSteuerelement.NAME = "T" & I Then
TagesDatum = I & " / " & Me.Abr_Monat & " / " & Me.Abr_Jahr
TagesStunden = AktSteuerelement.Value
Auftragsnummer = Me.Auftrag
End If
Next I
(Tagesdatum, Stunden und Auftragsnummer soll dann an das Popup
Formualar übergeben werden, die Anmerkungen werden dann im Popup
ergänzt)
Screen.ActiveControl aber funktioniert bekanntermassen nicht
im Unterformular.
Wer kann mir einen Tip geben? Vielen Dank im Voraus.
MfG Andreas Pohl