ERRO AO RECUPERAR DADOS

USUARIO.EXCLUIDOS 24/09/2010 07:51:15
#353729
Bom dia, pessoa, porque na recuperação de dados o form não esta aceitando nulos, como faço para aceita valores null, na recuperação de dados do form?

segue o codigo abaixo:

Dim tbEmpresa As New ADODB.Recordset
tbEmpresa.Open [Ô]Select * from TB_EMPRESA where IDEMPRESA like[ô][Ô] & txtIdEmpresa & [Ô][ô][Ô], con, adOpenDynamic, adLockOptimistic


Me.txtCnpj = tbEmpresa.Fields(1)
Me.txtEmpresa = tbEmpresa.Fields(2)
Me.txtFantasia = tbEmpresa.Fields(3)
Me.txtContador = tbEmpresa.Fields(4)
Me.txtTelefone = tbEmpresa.Fields(5)
Me.txtEndereco = tbEmpresa.Fields(6)
Me.txtBairro = tbEmpresa.Fields(7)
Me.txtCidade = tbEmpresa.Fields(8)
Me.txtUf = tbEmpresa.Fields(9)
Me.txtCep = tbEmpresa.Fields(10)
Me.comSituacao = tbEmpresa.Fields(11)
Me.txtUrna = tbEmpresa.Fields(12)
MARCELO.TREZE 24/09/2010 08:10:21
#353730 Resposta escolhida
a forma mais simples é esta


Dim tbEmpresa As New ADODB.Recordset
tbEmpresa.Open [Ô]Select * from TB_EMPRESA where IDEMPRESA like[ô][Ô] & txtIdEmpresa & [Ô][ô][Ô], con, adOpenDynamic, adLockOptimistic


Me.txtCnpj = tbEmpresa.Fields(1) & [Ô][Ô]
Me.txtEmpresa = tbEmpresa.Fields(2) & [Ô][Ô]
Me.txtFantasia = tbEmpresa.Fields(3) & [Ô][Ô]
Me.txtContador = tbEmpresa.Fields(4) & [Ô][Ô]
Me.txtTelefone = tbEmpresa.Fields(5) & [Ô][Ô]
Me.txtEndereco = tbEmpresa.Fields(6) & [Ô][Ô]
Me.txtBairro = tbEmpresa.Fields(7) & [Ô][Ô]
Me.txtCidade = tbEmpresa.Fields(8) & [Ô][Ô]
Me.txtUf = tbEmpresa.Fields(9) & [Ô][Ô]
Me.txtCep = tbEmpresa.Fields(10) & [Ô][Ô]
Me.comSituacao = tbEmpresa.Fields(11) & [Ô][Ô]
Me.txtUrna = tbEmpresa.Fields(12) & [Ô][Ô]


reparou que apenas coloqueio & [Ô][Ô] apos os fields.

ps: só serve para recuperar os dados, para salvar e alterar seria outra forma
USUARIO.EXCLUIDOS 24/09/2010 08:18:53
#353731
muito obrigado amigo, era o que precisava.
Tópico encerrado , respostas não são mais permitidas
Voltar