Hjælp til problem med SstFocus
Hej derude!Håber lige nogen kan hjælpe.
På en VBA formular har jeg en txtbox, hvori der indtastes en tid, f.eks. 12:25:45
Hvis der er fejl i indtastningen bruger jeg VBA-koden herunder til og tjekke indtastningen i txtboxen, når boxen forlades med TAB-tasten.
Spørgsmål:
Hvordan får jeg markøren tilbage i textboxen med Setfocus-koden, eller markeret textboxen således at det kan ses hvilken textbox det drejer sig om, efter at der er trykket på ok-knappen i MSG-boxen.
- Håber lige nogen har det rette svar.
Private Sub txtStartTid_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtStartTid = "" Then
Exit Sub
Else
If Len(txtStartTid.Text) = 8 Then
Exit Sub
Else
MsgBox " Fejlmulighed i Tid:" & vbNewLine & vbNewLine & "-forkert antal cifre." _
& vbNewLine & "-forkert indtastet format. ( Format: tt-mm-ss )", vbCritical, "Fejlmeddelelse ..."
txtStartTid.SetFocus
End If
End If
End Sub
