Private Sub Text1_LostFocus() If Len(Text1.Text) < 10 Then Text1.SetFocus MsgBox "indtast det rigtig antal tegn" Exit Sub End If If IsDate(Text1.Text) = False Then Text1.SetFocus MsgBox "indtast en godkent dato" End If
Private Sub Text1_LostFocus() For I = 1 to len(Text1.Text) if mid(i,1) ="_" then Text1.SetFocus MsgBox "Ikke udfyldt korrekt" exit sub end if next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.