Postada em 15/07/2008 11:32 hs
Ueh, vc colocou isso:
If txtdataretorno = "" Then
IsNull (TbAndamento("Devolução"))
Exit Function
Não entendi o que pretendia com isso, pois Isnull retorna se o campo tem nulo ou não, então vc testa o campo txtdataretorno, estando vazio vc testa o campo (devolucao) (não entendi pq testa, pq não faz nada com isso), e em seguida sai da rotina de gravação.....
Por isso não esta gravando o resto, vc da um exit function....
Tem diversos erros nessa rotina, primeiro use Sub no lugar de function (afinal vc não ta retornando nada para quem chamou a rotina).
Vc tem q testar assim, if trim(txtdataretorno.text)= "" then (se o usuario digitar um espaço seu codigo já vai dar pau).
E tambem na hora de gravar a data é bom formatar, pois quando for usar outros bancos ou em outros sistemas operacionais com formato americano vai dar pau, entao faça assim:
Bem, acho que isso resolve os maiores problemas ai do seu código.
T+
|
