Bom dia.

O que é que está errado neste código?

   Quando digite um código em uma caixa de texto vai conferir se existe, até aqui tudo bem.

    se não existir deveria gravar na tabela Codigos os dados nCodigo (da caixa de texto),mas não, regista em todas as entradas "-1"

Private Function ExisteCodigo(nCodigo As String) As Boolean
 con.cursorlocation = DTLOCAL

con.caminhoBaseDados = "C:ProgramasPessoalBaseDados.mdb"
con.conecta_bd (DTACCESS)

sql = "SELECT EntCodigo FROM Codigos WHERE EntCodigo = '" & nCodigo & "'"

Set rs = con.executaSQL(sql)

If rs.EOF Then
sql = "INSERT INTO Codigo (EntCodigo) values(" & nCodigo & ")"
Set rs = con.executaSQL(sql)
End If

con.desconecta_bd
End Function

Obrigado

Silva

"INSERT INTO Codigo (EntCodigo) values(" & RS!EntCodigo & ")"
Agora uma pergunta ser este select ira retornar só um Codigo pq o Select vc poderia gravar o nCodigo direto

"INSERT INTO Codigo (EntCodigo) values(" & nCodigo & ")" como estava fazendo e tirar o select

Agora se este select retorna mais de uma linha vc podera montar um laço

Do While not rs.Eof

    Realiza o Insert.....

loop
Outro problema para realizar o Insert vc deve executar o comando...