PDA

Visualizza la versione completa : [VB] controllare una data


Daniele80
15-08-2002, 10:56
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

Daniele80
16-08-2002, 20:49
cmq ho risolto richiamando la collection sia dei forms che dei textbox.

Loading