[Resolvido]Falha na conversão de tipo de dado

Olá pessoal,

Fiz uma funcionalidade no formulário para realizar update nos dados. E estes dados são: Tarefa (Texto), Descrição (Texto), Data Início (Data/Hora) e Data Fim (Data/Hora).
Os dados são atualizados perfeitamente.. O problema é que aparece um alerta quando são atualizadas a Data Início ou Data Fim.. Segue abaixo a mensagem do alerta:

O Microsoft Access não pode atualizar todos os registros na consulta atualização.

O Microsoft Access não atualizou 1 campo(s) devido a uma falha na conversão de tipo, 0 registro(s) devido a violações de chave, 0 registro(s) devido a violações de bloqueio e 0 registro(s) devido a violações de regra de validação.
Deseja continuar a execução desse tipo de consulta ação assim mesmo?
Clique em Sim para ignorar o(s) erro(s) e executar a consulta.
Clique em Ajuda para obter uma explicação das causas das violações.

Quando eu clico em Sim, os dados são atualizados perfeitamente. O problema é que fica aparecendo esse alerta toda vez que vou atualizar a Data Início ou Data Fim..
Fiz um teste.. Removi a ação de update na Data Inicio e Data Fim, realizando update apenas na Tarefa e Descrição.. E o alerta não apareceu. Ou seja, o alerta descrito acima só aparece quando atualiza as datas..

Ao meu ver, me parece falha de conversão das datas ..
Na tabela os atributos Data Início e Data Fim são do tipo Data/Hora. E os campos para atualização são caixa de texto, mascarado especificamente para datas.

Segue abaixo uma parte do código update:

Código:


strSql = "UPDATE Tarefas"
strSql = strSql & " SET Tarefas.[Tarefa] = '" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtTarefa] & "',"
strSql = strSql & " Tarefas.[Descricao] = '" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtDescricao] & "',"
strSql = strSql & " Tarefas.[Data Inicio] = '" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtDataInicio] & "',"
strSql = strSql & " Tarefas.[Data Fim] = '" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtDataFim] & "'"
strSql = strSql & " WHERE ... ;"

Alguém poderia me dar uma luz?!


Obrigado!!

Tente substituir as aspas simples por pipes(#) nas linhas de data ou hora:

strSql = strSql & " Tarefas.[Data Fim] = #" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtDataFim] & "#"

criquio,

Não funcionou.
Aparece uma mensagem de erro.

Erro em tempo de execução '3075':

Erro de sintaxe na data na expressão de consulta '#'.

Tente usar o CurrentDb.Execute

CurrentDb.Execute "UPDATE Tarefas SET Tarefa='" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtTarefa] & "', [Descricao] = '" & [Forms]![Formulário de Navegação]![SubformuláriodeNavegação]![TxtDescricao] & "'... WHERE...


ou então coloque antes do seu código:

On Error GoTo Erro

e depois do código:

Erro:
If Err.Number = número do erro que aparece na mensagem Then
Resume Next
End if

criquio,

Como sempre nos ajudando!!!
A sua sugestão para usar CurrentDb.Execute funcionou que nem uma beleza!!

Eu estava usando DoCmd.RunSQL strSql


Mais uma vez, obrigado! E continue assim!

Abraço

Fico feliz que tenha dado tudo certo. Sucesso!