CÓDIGO AUTOM?TICO

OMAR2011 29/05/2014 17:29:05
#438603

Testei seu código aqui e deu resultado positivo.
Não uso Addnew nem Update.
Uso Inser Into,Update Tabela Set.
Quanto a verificar caixa de texto vazias usa o Trim.
If [txt-color=#e80000]Trim[/txt-color](txtCNPJ.Text) = [Ô][Ô] Then
MsgBox [Ô]Insira o CNPJ![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
Pode acreditar,faz uma diferença enorme.
Valeu