CAMPO NULLO

MANDRAKE 01/06/2010 13:05:45
#343532

Public Function CampoNulo(MyRecordSet As Recordset, MyNomeDoCampo As String, Optional MyValor = [Ô]Is Null[Ô]) As String
Dim MyValorRetorno As String

MyValorRetorno = [Ô][Ô]

MyValorRetorno = IIf(IsNull(MyRecordSet.Fields(MyNomeDoCampo)), MyValor, MyRecordSet.Fields(MyNomeDoCampo))

CampoNulo = MyValorRetorno

End Function

EDERMIR 01/06/2010 21:51:20
#343605 Resposta escolhida

Quando você faz a atualização do campo com o valor do TEXT, então faça assim:

conn.execute [Ô]insert into TABELA (ID,NOME,ENDERECO) values ([Ô] & text1.text & [Ô],[ô][Ô] & text2.text & [Ô][ô],[Ô] & iif(text3.text = [Ô][Ô],[Ô]NULL[Ô],[Ô][ô][Ô] & text3.text & [Ô][ô][Ô]) & [Ô])[Ô]

ou

conn.execute [Ô]update TABELA set ENDERECO = [Ô] & iif(text3.text = [Ô][Ô],[Ô]NULL[Ô],[Ô][ô][Ô] & text3.text & [Ô][ô][Ô]) & [Ô] where ID = [Ô] & text1.text