Tak for hjælpen gutter i får lige et par point hver, til gengæld skal jeg lige spørge: Er der en let måde at checke at man ikke får en dato der hedder 44.44.5555 ?
Private Sub Text1_LostFocus() If IsDate(Text1.Text) = true then Text1.Text = CDate(Text1.Text) else msgbox(Text1.Text& \" er ikke en gyldig dato!\") Text1.SetFocus end if 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.