non mi passa il nome del form come mai? io richiamo la funzione in questo modo x = ControlloData(frmInsert, Text30)
Function ControlloData(nomeForm As Form, campo As TextBox)
If (Len(nomeForm.campo.Text) <> 10) Then
MsgBox "Inserire data in modo corretto GG/MM/AAAA"
ControlloData = False
ElseIf Left(nomeForm.campo.Text, 2) = "00" Or Left(nomeForm.campo.Text, 2) > "31" Or IsNumeric(nomeForm.campo.Text) = False Then
MsgBox "Inserire un giorno valido"
ControlloData = False
ElseIf Right(nomeForm.campo.Text, 4) = "0000" Or IsNumeric(nomeForm.campo.Text) = False Then
MsgBox "Inserire un giorno valido"
ControlloData = False
ElseIf Mid(nomeForm.campo.Text, 4, 2) = "00" Or Mid(nomeForm.campo.Text, 4, 2) > "12" Or IsNumeric(nomeForm.campo.Text) = False Then
MsgBox "Inserire un mese valido"
ControlloData = False
ElseIf Mid(nomeForm.campo.Text, 3, 1) <> "/" Or Mid(nomeForm.campo.Text, 6, 1) <> "/" Then
MsgBox "Inserire / come separatore"
ControlloData = False
End If
ControlloData = tru
End Function