MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Atualizando SubFormulário continuo...

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 26/3/2020, 17:54

    boa tarde gente de modo bem simples queria tirar essa dúvida

    eu tenho um produto X que está no Subform continuo em uma lista de varios itens.... com valor de 10,00 reais


    quando eu atualizo a tabela "fonte de dados" e atualizo os preços dos produtos ele não atualiza no SubForm, dai eu tenho que clicar em um botão de cada registro pra que ele possa se atualizar.. eu uso DoCmd.RefreshRecord...

    mas queria remover esse botão e automatizar esse refresh...

    tipo atualizou na tabela, atualizou os preços no formulário também.


    Última edição por mfmaiafilho em 6/4/2020, 15:52, editado 1 vez(es)
    Julio Lustosa
    Julio Lustosa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 23/02/2011

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Julio Lustosa em 26/3/2020, 19:01

    Boa tarde!

    O DoCmd.RecordRefresh é utilizado para atualizar o registro selecionado naquele momento e não todos de uma só vez.

    Você pode usar o método Me.Refresh do formulário principal. Neste caso ele irá atualizar tanto o formulário principal quanto o subform.

    Ou a seguinte sintaxe para atualizar somente o subformulário: Forms!NomeDoFormulárioPrincipal.Form!NomeDoSubFormulário.Requery.

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 26/3/2020, 19:59

    bem não funcionou aqui mas posso enviar pra você fazer um teste ai
    Julio Lustosa
    Julio Lustosa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 23/02/2011

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Julio Lustosa em 26/3/2020, 20:01

    Pode mandar.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 11:36

    Bom dia Julio Lustosa, assim só pra te explicar melhor eu tenho TBL_PREÇOS que são atualizados mensalmente,

    só que eu tenho listas prontas, de clientes com produtos já selecionados se for em Frm_PesquisarListas vai ver lá que tem dois exemplos.... e se clicar pra entrar vai ver que tem produtos lá, porém quando eu atualizo o TBL_PREÇOS eu preciso entrar em cada uma lista e atualizar o preço manualmente clicando no botão que criei "Atualizar" do lado do produto.


    tem alguma maneira de automatizar isso ?
    Anexos
    [Resolvido]Atualizando SubFormulário continuo... Attachmentlst_preços_.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 12 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 27/3/2020, 15:12

    Olá..

    Pelo que entendi as tabelas individuais dos clientes e gerada pela tabela TBL_GERAR, então em um botão no formulario que altera os preços na tabela TBL_PREÇOS(Não encontrei qual altera os preços) faça um Update.

    No botão ou outro evento que achar melhor
    Código:
    CurrentDb.Execute "UPDATE TBL_GERAR SET Preço = " & Me.Preço & " WHERE CodAlfatec = '" & Me.CodAlfatec & "'"

    Se o formulário de alteração de preços for Formulário simples coloque em um botão ou evento após atualizar o preço,
    se for formulário continuo coloque o código no evento após atualizar o preço

    OBS: tome cuidado as normas de programação, não ponha nome em controles com acentuação, espaços, e nem use palavras reservadas ao access, isto pode trazer dores de cabeça futuras.


    Aguardamos o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 18:03

    Olá boa tarde, na verdade acho que você não entendeu.

    no primeiro instante eu cadastro as listas , por exemplo fulano de tal.... com os produtos

    quando eu faço esse cadastro no formulário Frm_GerarListas

    eu digitando o codigo ele já me tras o valor de cada codigo que está declarado na Tbl_Preços

    1 pasol01 99,00 reais
    2 pasac02 101,00 reais
    3 pasas03 100,00 reais

    o grande defeito é que quando eu atualizo lá na Tbl_Preços, e quando eu volto no Frm_ConsultarListas, que é uma forma de abrir a lista que já fiz acima

    os preços continuam os antigos... e não os novos que acabei de colocar na Tbl_Preços.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 27/3/2020, 18:27

    Olá..

    Eu entendi a sua colocação, mas talvez não te expliquei corretamente.

    Mas vamos lá, me identifique o seguinte!!

    por qual formulario voce altera os preços na Tbl_Preços ?

    É neste formulario é que deve colocar o codigo que te passei.

    O uptade esta mandando atualizar o novo preço na TBL_GERAR onde os CodAlfatec sejam iguais nas duas tabelas.

    Desta forma ao verificar as tabelas do cliente elas estarão atualizadas

    Aguardo informações

    abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 18:56

    por qual formulario voce altera os preços na Tbl_Preços ?

    não tem =/

    tipo a tabela Tbl_Preços e Tbl_Produtos são uma junção, ligadas ao SubForm que fica ligado ao Formulário principal.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 27/3/2020, 19:06

    Olá..

    Então realmente eu não entendi.

    Me explica com detalhes como voce faz as alterações de preços na tabela de preços.

    Na minha opinião deveria ter um formulario para tal.

    Aguardo


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 19:12

    eu importo de um sistema chamado Signus que é um ERP em forma de Excel ele trás exatamente as colunas que tem ai com exceção da última que fui eu quem inventei pra ver o dia que foi atualizado, ou seja

    eu preciso abrir o sistema com o SHIFT, entrar nessa tabela e lançar de uma só vez dando CTRL+C e CTRL+V dai já atualizarem nos Forms de Listas prontas.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 19:33

    atualmente eu faço assim: Me.Preço.Value = Me.CodAlfatec.Column(4)

    pra trazer os preços de lá em Form_Load()

    porém ele trás o preço apenas de uma linha....
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 27/3/2020, 20:20

    Olá..

    Eu não consigo manusear nenhum dos seus formularios porque esta dando ausência de dll, então estou me orientando pela tabelas.

    Eu não entendi o porque voce tem 3 tabelas para administrar os produtos e preços, mesmo porque não conheço a extrutura de seu sistema.

    Mesmo que uma das tabelas seja importada, eu criaria um formulário para esta tabela e em um comando eu mandaria atualizar a tabela   TBL_GERAR para que todas as tabelas de clientes ficasse atualizada.

    Desconheço alguma forma de fazer isto em copiar e colar como voce sugeriu.

    Supondo que esta tabela importada fosse a tabela TBL_PREÇOS, eu faria um loop por esta tabela mandando atualizar a  TBL_GERAR desta forma abaixo.

    Código:
    Private Sub BtnAtualizarPrecos_Click()
        'Atualiza preço na TBL_GERAR
        Me.Refresh
        Dim rs As DAO.Recordset
        Set rs = CurrentDb.OpenRecordset("TBL_PREÇOS")
        rs.MoveFirst
        Do While Not rs.EOF
        CurrentDb.Execute "UPDATE TBL_GERAR SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"
        
        
        rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
        'MsgBox "Preço atualizado....", vbInformation, "Aviso"
        
        
    End Sub


    Aguardo

    Abraços


    Última edição por Celso Roberto em 27/3/2020, 21:00, editado 2 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 27/3/2020, 20:39

    onde devo colocar esse codigo ?
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 27/3/2020, 21:29

    Olá..

    Como eu disse, eu criaria um formulário com a tabela importada e colocaria um botão de comando e colocaria este código neste botão.

    Veja este exemplo anexo, veifique que a TBL_GERAR esta com os preços zerados, abra o frmprecos e cilique no botão e volte na TBL_GERAR e veja que os preços foram atualizados.

    faça testes no formulario alterando preços dos produtos que estão na TBL_GERAR e atualize e volte a ver a tabela novamente com os preços corrigidos.


    Aguardamos
    Anexos
    [Resolvido]Atualizando SubFormulário continuo... AttachmentAlterar preços.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (109 Kb) Baixado 8 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Julio Lustosa
    Julio Lustosa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 23/02/2011

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Julio Lustosa em 28/3/2020, 14:14

    mfmaiafilho, bom dia!

    Já vi que o Celso te ajudou bastante mas, eu gostaria de dar somente um toque: Deixe todos os dados referente aos produtos na tabela produtos. Isso inclui o preço dos produtos.

    Você está repetindo algumas colunas na tabela TBL_GERAR. E essas colunas são as mesmas da TBL_PRODUTOS. E quando você preenche os dados na tabela TBL_GERAR, você esta gerando duplicidade de dados, ou seja, uma NÃO CONFORMIDADE na construção do seu bando de dados.

    Esse problema que está tendo, você não o teria se tivesse feito da forma como falei acima.

    A coluna preço do produto só deverá existir na tabela TBL_GERAR se o preço for diferente do valor original do produto. Exemplo: Para cliente X o preço é diferenciado dos demais.

    Mas como o preço muda mensalmente e pelo visto você não se preocupa em manter um histórico, então, não há necessidade de se colocar esta coluna na tabela TBL_GERAR.

    Pense nisso.

    E se ainda estiver precisando de ajuda, é só falar.

    Abraços.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 28/3/2020, 21:53

    Olá..


    Existe outra possibilidade esquecendo tudo que te falei acima da seguinte forma:

    No evento ao carregar o formulário Frm_ConsultarListas, coloque este código abaixo.

    Código:
    Private Sub Form_Load()

        'Atualiza preço na TBL_GERAR
        
        Dim rs As DAO.Recordset
        Dim rst As DAO.Recordset
        
        
        Set rs = CurrentDb.OpenRecordset("TBL_PREÇOS")
        Set rst = CurrentDb.OpenRecordset("TBL_GERAR")
        
        rs.MoveFirst
        Do While Not rs.EOF
        If rst!Preço <> rs!Preço Then
        CurrentDb.Execute "UPDATE TBL_GERAR SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"
            
        Else
        'Não faz nada
        End If
        rs.MoveNext
        Loop
      
        rs.Close
        Set rs = Nothing
        rst.Close
        Set rst = Nothing
        
        'MsgBox "Preço atualizado....", vbInformation, "Aviso"
    End Sub

    Ele vai fazer o seguinte: toda vez que chamar este formulário, ele vai verificar nas tabelas os preços que estão diferente entre elas e vai atualizar com o preço que esta na tabela de preços.


    Observe o comentário do Amigo Julio Lustosa. Se você não tem preços diferenciado para cada cliente, não teria a necessidade de tantas tabelas.

    Espero que ajude e aguardamos retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 30/3/2020, 16:00

    A questão da separação de TBL_Produtos e TBL_PREÇOS é única


    eu pego Codigo, Descrição, Preço do sistema ERP Signus para gerar essa lista de preços dentro do access de envio via Email

    ou seja eu só faço CTRL+C e CTRL+V

    se fosse fazer isso procurando produto na TBL_PRODUTOS onde tem mais de 2000 codigos seria muito mais dificil, alem de ter que lançar manualmente 1 por 1

    =/
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 30/3/2020, 18:57

    Olá...

    mfmaiafilho escreveu:
    o grande defeito é que quando eu atualizo lá na Tbl_Preços, e quando eu volto no Frm_ConsultarListas, que é uma forma de abrir a lista que já fiz acima os preços continuam os antigos... e não os novos que acabei de colocar na Tbl_Preços.:

    Pergunto:
    Você entendeu e fez o Procedimento que te passei na minha ultima mensagem?

    Aguardamos


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  mfmaiafilho em 31/3/2020, 12:39

    oi Bom dia, eu baixei o que você fez, e deu certo agora já fiz os testes, realmente atualiza todos os preços de todas as listas de todos os clientes

    to satisfeito, me ajudou muito, essa tela tô colocando como tela de Administrador, só pra quem lança os preços no sistema dentro de um Form que também inventei como você falou que era necessário obrigado Grande!

    Abraços

    Att
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 31/3/2020, 22:40

    Olá..

    Ficamos felizes por ter ajudado.

    Agradecemos e seu retorno

    Abraços e sucesso!!


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 01/03/2014

    [Resolvido]Atualizando SubFormulário continuo... Empty Re: [Resolvido]Atualizando SubFormulário continuo...

    Mensagem  Celso Roberto em 3/4/2020, 05:00

    Olá...

    Você já tinha finalizado este tópico e acredito que reabriu clicando novamente no "Resolvido" mas não disse o porque!!.

    Se foi engano, favor clicar novamente no "Resolvido" ao enviar nova ou editar mensagem.

    Abraços



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 2/7/2020, 09:39