'     Boa noite a todos !!

'Eis o código completo, tudo funciona, entra no rs_set.addnew e sai do rs_set.update

' Porém não esta salvando nada no bd e eu não consigo achar o erro!!

' São dois campos que nãop odem repetir

' Testo o codigo e se não repete deixo seguir

' testo o setor e a mesma coisa ...

' porém como ja falei não esta salvando ???? O que há de errado??

 

            rs_set.Close
            rs_set.Open "select * from tb_setor where cod_setor =" & CInt(txt_visualiza(0).Text), conn, adOpenKeyset, adLockBatchOptimistic
            If rs_set.BOF Then
' ********  se poder salvar entao confere o setor ue tb não pode repetir
                busca = txt_visualiza(1).Text
                rs_set.Close
                rs_set.Open "select * from tb_setor where nome_setor = '" & busca & "'", conn, adOpenKeyset, adLockBatchOptimistic
' ********************  se não encontrou o setor então salva
                If rs_set.BOF Then
                   ' rec = salvareg
                   
                    rs_set.AddNew
                    rs_set("cod_setor") = txt_visualiza(0).Text
                    rs_set("nome_setor") = txt_visualiza(1).Text
                    rs_set("obs") = txt_visualiza(2).Text
                    rs_set.Update
                    rs_set.Close
                    rs_set.Open "select * from tb_setor ", conn, adOpenKeyset, adLockBatchOptimistic
                   

                Else
                    MsgBox "O setor já esta registrado! ", vbCritical, "Atenção"
                    txt_visualiza(1).SetFocus
                    Exit Sub
                End If
            Else
                MsgBox "O número de registro já existe!", vbCritical, "Atenção!"
                txt_visualiza(0).SetFocus
                Exit Sub
            End If
'Conto com a ajuda de vcs!!!

Tenta mudar isso aqui (  If rs_set.BOF Then ) por isso aqui ( If Not rs_set.EOF Then ).

 

Quem sabe.....

Não funcionou!!!!

            Valeu a tentativa. postei logo acima, acho que é erro lógico porém não consigo achar to intupido de códigos aqui!!!!! Desde as 12:00 maas num saio de cima enquanto não resolver!!!

Leonardo voce ja tentou colocar um ponto de parada (F9) no inicio e usar o TRACE (F8) para ver cada linha executada. Assim voce vai ficar sabendo onde o fluxo de execucao esta entrando. Veja se existe algum ON ERROR RESUME NEXT pois isso poderia não dar aviso de erros.

Caro Rocha já fiz o que me tu colocaste, ele faz tudo corretamente

abre uma nova linha no bd, coloca os valores da txt_visualiza(i)corretamente

passa sem erro pela linha rs_set.update e segue o baile.

Porém não esta salvando

     Se eu coloco o bloco de código que salva antes de testar tudo ele salva mas depois não!!!!

    Só que eu não posso salvar sem testar pois o codigo e campo chave do meu bd e o nome do setor não pode duplicar!!!!!

 

                  Valeu a ajuda!!!

Que tal mudar a forma de gravacao

 

conn.execute "Insert into TABELA (campo1, campo2) values ( 1,2 )"