Enter-Event bei Textbox in Multipage
06.08.2013 13:49:43
Andreas
ich sehe mir gerade den Code eines Arbeitskollegen an, bei dem es ein Problem gibt. Wir haben in einer Userform eine Textbox in einer Multipage, das bei Entern der Box den Usernamen und Zeitstempel einträgt.
Private Sub Allgemeine_Bemerkungen_1_Enter()
With Maske
If sh_ds.[C85].Value = "" Then
.Allgemeine_Bemerkungen_1.Value = sh_ds.[C85].Value & Date & "_" & Format(Time, "hh:mm") & _
_
" " & user & ": "
Else
.Allgemeine_Bemerkungen_1.Value = sh_ds.[C85].Value & Chr$(13) & Date & "_" & Format(Time, _
_
"hh:mm") & " " & user & ": "
End If
End With
End Sub
Wenn ich nun die Box verlasse, indem ich z.B. ein anderes Feld bearbeite oder in der Multipage auf einen anderen Reiter klicke, sodass die Textbox gar nciht mehr sichtbar ist, und danach wieder in die Textbox klicke, wird das offenbar nicht als Enter-Event erkannt und kein weiterer Zeitstempel eingefügt. Wenn die Textbox nicht in einer Multipage liegt, gibt es keine Probleme. Weiß jemand Rat?
Vielen Dank
Andreas
Anzeige