MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    VBA para Botão Salvar e Atualizar

    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 01:43

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  JPaulo 31/7/2018, 10:44

    Ola;

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Botão Salvar e Atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Botão Salvar e Atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Botão Salvar e Atualizar Folder_announce_new Instruções SQL como utilizar...
    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 13:08

    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


    Última edição por israelcomex em 31/7/2018, 13:33, editado 1 vez(es)
    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 13:10

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  JPaulo 31/7/2018, 14:07

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Botão Salvar e Atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Botão Salvar e Atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Botão Salvar e Atualizar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  JPaulo 31/7/2018, 14:13

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Botão Salvar e Atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Botão Salvar e Atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Botão Salvar e Atualizar Folder_announce_new Instruções SQL como utilizar...
    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 14:42

    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? Smile

    Ficarei muito grato
    Anexos
    VBA para Botão Salvar e Atualizar AttachmentBanco Novo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 7 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  JPaulo 31/7/2018, 16:53

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Botão Salvar e Atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Botão Salvar e Atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Botão Salvar e Atualizar Folder_announce_new Instruções SQL como utilizar...
    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 17:20

    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?
    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 12/05/2017

    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  israelcomex 31/7/2018, 20:09

    JPaulo,

    Acredito que agora você consegue abrir kkk.

    vlw!
    Anexos
    VBA para Botão Salvar e Atualizar AttachmentBanco Novo (2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 14 vez(es)

    israelcomex gosta desta mensagem


    Conteúdo patrocinado


    VBA para Botão Salvar e Atualizar Empty Re: VBA para Botão Salvar e Atualizar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:18