VBA para Botão Salvar e Atualizar

Boa noite!

Galera, em emu formulário criei dois botões um para salvar os dados na tb e o outro para atualizar algum lançamento, quando necessário.

Utilizo os código a seguir. A imagem é do botão salvar.

Porém apresenta erro de compilação:

O tipo definido pelo usuário não foi definido.

O que posso está fazendo de errado?

Obrigado

Ola;

Assim é dificil de verificar onde se encontra o erro.
Para podermos depurar o código, pode anexar parte do seu banco aqui ?

Bom dia JPaulo,

Sim, claro. O banco completo deve facilitar.

https://www.dropbox.com/s/bl3dvqzqlwcbxyk/Banco%20Novo.mdb?dl=0



Private Sub btsalvar_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("TAB_LANCAMENTO_ERRO")

rst.AddNew
rst!CODIGO_DE_BARRAS = txt_codBarras.Value
rst!PRACA = txt_praca.Value
rst!AD_CAIXA = txt_AdCaixa.Value
rst!VOL_CAIXA = txt_VolCx.Value
rst!DJ = txt_Dj.Value
rst!DATA_FAT = txt_DataFat.Value
rst!DIA_CP = txt_DiaCp.Value
rst!CAMP = txt_ListaCamp.Value
rst!Chapa = txt_ListaChapa.Value
rst!Nome = txt_nome.Value
rst!Data = txt_Data.Value
rst!COD_ERRO = txt_ListaCodErro.Value
rst!TIPO_ERRO = txt_TipoErro.Value
rst!DESCRICAO_ERRO = txt_DescErro.Value
rst!COD_DESVIO = txt_ListaCodDesvio.Value
rst!MOTIVO_DESVIO = txt_MotivoDesv.Value
rst!LINHA = txt_Linha.Value
rst!ESTACAO = txt_Estacao.Value
rst!OBS = txt_Obs.Value
rst!LANCADO_POR = txt_lancador.Value
rst!LIDER_RESPONSAVEL = txt_Lider.Value


rst.Update

txt_codBarras.Value = nill
txt_praca.Value = nill
txt_AdCaixa.Value = nill
txt_VolCx.Value = nill
txt_Dj.Value = nill
txt_DataFat.Value = nill
txt_DiaCp.Value = nill
txt_ListaCamp.Value = nill
txt_ListaChapa.Value = nill
txt_nome.Value = nill
txt_Data.Value = nill
txt_ListaCodErro.Value = nill
txt_TipoErro.Value = nill
txt_DescErro.Value = nill
txt_ListaCodDesvio.Value = nill
txt_MotivoDesv.Value = nill
txt_Linha.Value = nill
txt_Estacao.Value = nill
txt_Obs.Value = nill
txt_lancador.Value = nill
txt_Lider.Value = nill

End Sub

Ele também está com uma tela de login e senha no qual criei mais não consegui fazer funcionar kkk

O que lhe falta pelo que vi é apenas você setar a referência VBA "Microsoft DAO 3.6 Object Library"

Dentro do VBA, vá a Ferramentas, Referencias.

Também você deve-se referenciar aos objectos do seu form com o Me.

E também deve fechar os Recordsets para o banco não se danificar.

Código:

Private Sub bt_atualizar_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("TAB_LANCAMENTO_ERRO")

Me.txt_dtatualiza.Visible = False
Me.txt_agora.Visible = True
Me.txt_agora.Requery

    rst.Edit
        rst!CODIGO_DE_BARRAS = Me.txt_codBarras.Value
        rst!PRACA = Me.txt_praca.Value
        rst!AD_CAIXA = Me.txt_AdCaixa.Value
        rst!VOL_CAIXA = Me.txt_VolCx.Value
        rst!DJ = Me.txt_Dj.Value
        rst!DATA_FAT = Me.txt_DataFat.Value
        rst!DIA_CP = Me.txt_DiaCp.Value
        rst!CAMP = Me.txt_ListaCamp.Value
        rst!Chapa = Me.txt_ListaChapa.Value
        rst!Nome = Me.txt_nome.Value
        rst!Data = Me.txt_Data.Value
        rst!COD_ERRO = Me.txt_ListaCodErro.Value
        rst!TIPO_ERRO = Me.txt_TipoErro.Value
        rst!DESCRICAO_ERRO = Me.txt_DescErro.Value
        rst!COD_DESVIO = Me.txt_ListaCodDesvio.Value
        rst!MOTIVO_DESVIO = Me.txt_MotivoDesv.Value
        rst!LINHA = Me.txt_Linha.Value
        rst!ESTACAO = Me.txt_Estacao.Value
        rst!OBS = Me.txt_Obs.Value
        rst!LANCADO_POR = Me.txt_lancador.Value
        rst!LIDER_RESPONSAVEL = Me.txt_Lider.Value
    rst.Update

Me.txt_codBarras.Value = Null
Me.txt_praca.Value = Null
Me.txt_AdCaixa.Value = Null
Me.txt_VolCx.Value = Null
Me.txt_Dj.Value = Null
Me.txt_DataFat.Value = Null
Me.txt_DiaCp.Value = Null
Me.txt_ListaCamp.Value = Null
Me.txt_ListaChapa.Value = Null
Me.txt_nome.Value = Null
Me.txt_Data.Value = Null
Me.txt_ListaCodErro.Value = Null
Me.txt_TipoErro.Value = Null
Me.txt_DescErro.Value = Null
Me.txt_ListaCodDesvio.Value = Null
Me.txt_MotivoDesv.Value = Null
Me.txt_Linha.Value = Null
Me.txt_Estacao.Value = Null
Me.txt_Obs.Value = Null
Me.txt_lancador.Value = Null
Me.txt_Lider.Value = Null
Me.txt_agora.Visible = False
Me.txt_codBarras.SetFocus

rst.Close: Set rst = Nothing
dbs.Close: Set dbs = Nothing
End Sub

Private Sub bt_salvar_Click()

Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("TAB_LANCAMENTO_ERRO")

Me.txt_dtatualiza.Visible = False
Me.txt_agora.Visible = True
Me.txt_agora.Requery

    rst.AddNew
        rst!CODIGO_DE_BARRAS = Me.txt_codBarras.Value
        rst!PRACA = Me.txt_praca.Value
        rst!AD_CAIXA = Me.txt_AdCaixa.Value
        rst!VOL_CAIXA = Me.txt_VolCx.Value
        rst!DJ = Me.txt_Dj.Value
        rst!DATA_FAT = Me.txt_DataFat.Value
        rst!DIA_CP = Me.txt_DiaCp.Value
        rst!CAMP = Me.txt_ListaCamp.Value
        rst!Chapa = Me.txt_ListaChapa.Value
        rst!Nome = Me.txt_nome.Value
        rst!Data = Me.txt_Data.Value
        rst!COD_ERRO = Me.txt_ListaCodErro.Value
        rst!TIPO_ERRO = Me.txt_TipoErro.Value
        rst!DESCRICAO_ERRO = Me.txt_DescErro.Value
        rst!COD_DESVIO = Me.txt_ListaCodDesvio.Value
        rst!MOTIVO_DESVIO = Me.txt_MotivoDesv.Value
        rst!LINHA = Me.txt_Linha.Value
        rst!ESTACAO = Me.txt_Estacao.Value
        rst!OBS = Me.txt_Obs.Value
        rst!LANCADO_POR = Me.txt_lancador.Value
        rst!LIDER_RESPONSAVEL = Me.txt_Lider.Value
    rst.Update

    Me.txt_codBarras.Value = Null
    Me.txt_praca.Value = Null
    Me.txt_AdCaixa.Value = Null
    Me.txt_VolCx.Value = Null
    Me.txt_Dj.Value = Null
    Me.txt_DataFat.Value = Null
    Me.txt_DiaCp.Value = Null
    Me.txt_ListaCamp.Value = Null
    Me.txt_ListaChapa.Value = Null
    Me.txt_nome.Value = Null
    Me.txt_Data.Value = Null
    Me.txt_ListaCodErro.Value = Null
    Me.txt_TipoErro.Value = Null
    Me.txt_DescErro.Value = Null
    Me.txt_ListaCodDesvio.Value = Null
    Me.txt_MotivoDesv.Value = Null
    Me.txt_Linha.Value = Null
    Me.txt_Estacao.Value = Null
    Me.txt_Obs.Value = Null
    Me.txt_lancador.Value = Null
    Me.txt_Lider.Value = Null

rst.Close: Set rst = Nothing
dbs.Close: Set dbs = Nothing
End Sub


Deu erro ao carregar DLL. E para os campos com formula, é o mesmo critério? Porque só os campos vinculados que estão salvando os campos com formula não salvam. E os dados se mantem na tela.
Se não for pedir muito, tem como vc dar uma olhada nele para ver o que estou fazendo de errado?

Ficarei muito grato

Amigão, eu não consigo testar devido à versão do seu Ms Access ser muito antiga.

Pode ser que alguma fera aqui tenha essa versão, para o ajudar.

Sua versão é 2016? Estou com a 2016 agora, porém criei o banco antes de adiquiri-lo.
Aí vem outra dúvida minha, vou por esse banco em uma rede, onde várias pessoas irão utilizar em máquinas diferentes. As tabelas atualizaveis deixarei em outro banco na rede, é vínculo ao arquivo do usuário. Essa é a forma mais correta? Devo fazer dessa forma?

JPaulo,

Acredito que agora você consegue abrir kkk.

vlw!