ich arbeite z. Z. an einer kleinen Kostenabrechnung. In einem Formular kann man sich das Datum selbst zusammenstellen:
Tag und Monat über Kombinationsfelder auszuwählen, das Jahr ist ein Textfeld.
Wie kann ich nun die Kombinationsfelder für Tag und Monat speeren?
Was ich suche ist in etwa Folgendes:
Die Elemente sind aktiv (also enabled und visible oder locked macht hier keinen Sinn). Ich gehe nun davon aus, dass mal die Maus irgendwie herumspinnt und deshalb so zur Not die Zahlen auch per Tastatur eingegeben werden können.
Also, wenn man nun sich quasi als Monat die 07 für Juli ausgesucht hat und dann danach noch etwas eintippt, so soll die Eingabe vermieden werden, d. h. erst gelöscht und dann wieder die 07 erscheinen.
Ist klar, was ich meine? Man soll also so wie man lustig ist Änderungen vornehmen können, doch nach jeder Änderung sprint das Kombifeld wieder auf den ursprünglichen Wert des ListIndexes zurück.
Hier ist mein bisheriger Code dazu, doch der funktioniert nicht:
Private Sub Cbo_Monat_AfterUpdate()
Dim wert As Variant 'Wert des Kombi'feldes anhand des ListIndexes VOR der
'Änderung
wert = Cbo_Monat.ListIndex
If Not IsNumeric(Cbo_Monat) Or Len(Cbo_Tag)>2 Then
'Änderungen wurden vorgenommen
'im K'feld gibt's nur 2-stellige Werte
Cbo_Monat = ""
Cbo_Monat = wert
End If
End Sub
Woran kann's liegen?
Vielen Dank im Voraus für EURE Hilfe!
Alexander