Olá amigos, alguém poderia me dizer o que está de errado nesse código ?

E como eu devo fazer !

Fica dando erro BOF EOF são verdadeiros, ou o registro atual foi excluido. A operação ...etc

O que estou querendo é basicamente o seguinte:

Procuro os dois códigos na base codcli e endereço ser for o mesmo então vou alterar, se não existir vou incluir.

 

Sql = "SELECT ENDERECO, COD_CLIENTE FROM TB_SINAL WHERE COD_CLIENTE = ' " & txtEndereco.text & "' and COD_CLIENTE = " & txtCodCli.Text & ""
rs.Open Sql

With rs
If .BOF And .EOF Then
 If .Fields("ENDEREÇO") = txtEndereco.text And .Fields("COD_CLIENTE") = txtCodCli.Text Then Then
  lAlt = True
  lNew = False
 Else
  lNew = True
  lAlt = False
 End If
End If
End With

 
 rs.Close
 db.Close

Obrigado

Moreti, talvez tenha que mudar o código SQL para: 

 

---------------------------------------------------------------------------------

Sql = "SELECT COD_CLIENTE, ENDERECO FROM TB_SINAL WHERE COD_CLIENTE = '" & txtCodCli.Text & "' AND ENDERECO = '" & txtEndereco.text & "'"

Atenção: verifique se há ou não o 'Ç' no nome do campo "ENDEREÇO"

 

 

Joseph
Técnico em Informática/Programador
São Paulo/SP

Moreti,

 

Pra começar você está comparando na cláusula where 2x o mesmo campo:

COD_CLIENTE = ' " & txtEndereco.text & "' and COD_CLIENTE = " & txtCodCli.Text & ""