controllo sul formato data

[BOYROMA1]

formatto una casella di testo collegata ad un database con l'istruzione


Text1.Text = Format(Text1.Text, "##/##/####")


come faccio a impostare con un if un controllo prima dell' update
che se il formato non e' giusto non salva?

come' la sintassi?

grazie a tutti

[DeBe99]

if isdate(Text1.Text) then
   'è una data
end if

[erme2]

ricordati che il formato giusto per l'sql è 'dd-mm-yyyy'

dim ls_oggi as string

ls_oggi = Mid(Trim(Today().Date), 1, 2) & "-" & Mid(Trim(Today().Date), 4, 2) & "-" & Mid(Trim(Today().Date), 7, 4)

restituisce una stringa che contiene la data di oggi inseribile in una stringa sql (executenonquery)