[Resolvido]Atualizando SubFormulário continuo...

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.

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.

bem não funcionou aqui mas posso enviar pra você fazer um teste ai

Pode mandar.

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 ?

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

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.

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

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.

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

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.

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....

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

onde devo colocar esse codigo ?

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

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.

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

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

=/

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

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

Olá..

Ficamos felizes por ter ajudado.

Agradecemos e seu retorno

Abraços e sucesso!!

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