Inserir valor de data

[Rafael Portal 0]

Bom gente estou tentando inserir valor de data da seguinte forma:

#" & MskData.text & "# '

Está certo???? Bom e antes eu verifiquei para ver se é em branco, por que não é obrigatório este campo:

if MskData.text = "" then           MskData.text = Empty end if

Tá dai quando eu insiro os dados acontece o seguinte erro:

Quote:Run-time error -2147217913 (80040e07): Erro de sintaxe na data na expressão de consulta '#__/__/____#'

O que está errado??? Muito agradecido mesmo,Rafael Portal

[Veber 0]

é que o valor "__/__/_____" não é uma DATA válida

 

e o valor em branco vai dar o mesmo erro

 

para resolver faça assim:

 

IF maskEdBox.ClipText <> "" AND isDate( maskEdBox.text) THEN   strData = "#" & FORMAT ( maskEdBox.text , "mm/dd/yyyy" ) & "#"ELSE    strData = "null"END IFe a string SQL ficara assim" INSERT INTO TABELA ( data ) VALUES (" & strData & ")"

[Rafael Portal 0]

Valeu Veber funcionou perfeitamente!!Rafael Portal