[Resolvido] Alterar Cadastro atualiza nome no formulário e atualiza automaticamente o sub formulário.

Bom dia Galera!

Bem procurei aqui alguma dicas sobre o assunto só que não achei o que eu queria

então vamos ao problema.

eu tenho um formuláario que contem

Id
Cliente
Data

desses três eu vinculei o cliente
então o pessoal aqui as vezes erra no cadastro do cliente então entra lá e altera o nome

Ex: Maria J. Pereira altera para Maria Jose Pereira

então isso não atualiza.

como está tudo vinculado na hora dos relatórios vira o PO.

então eu gostaria de saber se em algum código ou algo que eu posso fazer para atualizar automaticamente tudo.

altera cadastro na tabela arruma> formulário > e sub-fomulário



Obrigado!

Já tentou usar o Requery ou ou Refresh? Pesquisa na ajuda do VBA do Access ou aqui mesmo no fórum.

Criquio eu tentei fazer assim:

Private Sub Form_Load()

Form_Tabela1.Requery

End Sub

tentei tambem

Private Sub Form_Load()

Form_Tabela1.Refresh

End Sub

ai eu tambem descobrir na internet a diferença entre os dois

só que não acontece nada

na tabela está
cliente: Eder R Santana

no formulario está

cliente: Eder Ribeiro de santana

não atualizou

pelo que eu vejo se alterar qualquer coisa no cadastro não atualiza nada depois

Tentou as outras variações? Refresh, Repaint...

Olá!

acho que eu descobri um detalhe importante que eu não tinha mencionado

eu quero atualizar a "caixa de combinação" que está no formulário

eu já tentei tudo
=====================================
Private Sub Form_Load()
Form_Tabela1.cliente.Requery
End Sub
=====================================
Private Sub Form_Load()
Me.Refresh
End Sub
=====================================
Private Sub Form_Load()
Me.Repaint
End Sub
=====================================

nada funcionou

altero o cadastro só que não atualiza o formulário

Então você não quer atualizar o formulário mas sim um controle dele. A ideia é a mesma:

Me.NomeDaCombo.Requery

realmente não deu certo.

vou mandar um exemplo

na tabela está uma nome

e no formulario outro.

porque foi alterado o nome na tabela, ai não vincula mais a tabela com o formulario, então eu queria atualizar para ficar igual.

O que acontece é que para que a combo possa ser atualizada, é preciso salvar o registro antes. Tente assim no evento "Após atualizar" do campo que você quer que seja atualizado na combo:

Código:

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.CBOFiltro.Requery

pois é galera meu problema ainda continua

porque foi atualizado nome na tabela de dados e no meu formulário o nome não atualiza

já tentei esse codigo que vc me passou criquio só que não deu certo

nada acontece

até mandei o exemplo você deu uma olhada????

no mais obrigado.

Tem de fazer como o Criquio lhe disse, em cada campo, no evento VBA ao alterar;

Private Sub Colaborador_Change()
DoCmd.RunCommand acCmdSaveRecord
Me.CBOFiltro.Requery
End Sub

cara ainda não deu certo

vou mandar um exemplo para que vocês vejam

eu coloquei lá bonitinho só que não funcina

eu altero o nome no formulário cliente é ele não altera automaticamente no formulário tabela1

e tipo assim:

tem lá rogerio no formulario cliente, então eu mudo o nome dele para: rogerio dutra

então eu queria que o registro na tabela1 que tivesse rogerio mudasse para rogerio dutra, automaticamente.

https://dl.dropbox.com/u/90217826/teste.rar

Seria assim amigo.

isso mesmo

exatamente isso...

agora eu conseguir colocar essa parada sinistra pra funcionar aqui

Obrigado Kaynan!!!!!

Fico feliz por ter ajudado.
Obrigado pelo retorno e sucesso.

Jpaulo, boa tarde

Este codigo voce ainda o tem?? o exemplo do bd em2003?

obrigado

Bom dia jguimaraes2013!

Option Compare Database

Private Sub CBOFiltro_AfterUpdate()
DoCmd.ApplyFilter , "ID = " & Me.CBOFiltro.Column(0)
Me.Colaborador.SetFocus
Me.CBOFiltro = Null
End Sub
-------------------------------------------------------------------------
Private Sub Colaborador_GotFocus()
DoCmd.RunCommand acCmdSaveRecord
Me.CBOFiltro.Requery
End Sub
-------------------------------------------------------------------------
Private Sub Colaborador_LostFocus()
DoCmd.RunCommand acCmdSaveRecord
Me.CBOFiltro.Requery
End Sub
-------------------------------------------------------------------------

Bom é esse código que está aqui.

veja se ele funciona.

Falou mano