[Resolvido]Actualizar Dados entre Formulários

Bom tarde

Tenho um Form continuo de nome "Ver", com centenas de registos, onde ao fazer click numa determinado registo abre-me outro Formulário simples de nome "Corte".

Comando ao fazer Click na linha de registo:
If MsgBox("Ver ou Alterar a Produção de ? " & Chr(10) + "Espuma " & Espuma & Chr(10) + Chr(13) & "Produção Nº " & Format(Producao, "0000-0000 "), vbYesNo + vbQuestion, "Aviso") = vbYes Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Corte"
stLinkCriteria = "[ln]=" & Me![LN]
DoCmd.openForm stDocName, , , stLinkCriteria
Else
End If

Depois de actualizar os dados no Formulário simples de nome "Corte", ao fecha-lo, tem um comando assim :

Private Sub Form_Close()
On Error GoTo 1
'Forms![Ver].Requery
1:
Para actualizar o Form continuo de nome "Ver":

Até aqui tudo corre bem.
Eu queria que ao voltar ao Form continuo de nome "Ver" ele estivesse no mesmo registo. Coisa que não acontece.
Vai sempre para o primeiro Registo.

Olá Assis, deixa ver se entendi


DoCmd.RunCommand acCmdRecordsGoToLast

Olá Vieira

Entendeu sim.

Mas repare que é um Form Continuo, tem imensos registos e só tem barra de deslocamento Vertical.

Mas seria mais " ir para a última página do Form".

Eu acho que é a - Função Forms![Ver].Requery - que o manda para a primeira Linha

Obrigado

Assis

Experimente como lhe disse pois também uso grande quantidades de dados em forms contínuos e no evento ao abrir coloco essa rotina. Bate direitinho.

Vieira

O meu Form continuo não chega a fechar.

Eu chamo o outro form Simples "Corte", mas o Form Continuo "Ver" fica sempre aberto por traz.

Aonde coloco a sua ideia?

Não experimentei aqui, mas eu tentava assim. Guardava os dados no form Corte e fazia requery no form ver, No botão de comando para chamar o Form Ver: (sabemos que ele está aberto)

DoCmd,Open o form Ver
DoCmd.RunComamnd....... Se está a utilizar um subform tem que fazer a chamada ao form contínuo

Assis

Veja esta rotina que eu uso numa app minha e tire ideias.

On Error Resume Next
Me.docsagenda_subformulário.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.docsagenda_subformulário.Form.DataAgenda.SetFocus
If IsNull(Me.docsagenda_subformulário.Form.DataAgenda) Then
Me.docsagenda_subformulário.Form.DataAgenda.Value = ocxCal.Value
Else
Exit Sub
End If

Ok, Assis arrangei um tempo finalmente

Então pode testar assim, que eu fiz aqui num BD meu e funfou direitinho

Evento click de um botão a partir do form Corte

On Error Resume Next
DoCmd.OpenForm "Ver", acNormal
Form_Ver.detVer_subformulário.SetFocus
DoCmd.GoToRecord , , acLast

Olá Vieira

Desde já o meu agradecimento pelas tentativas de me ajudar.

No Form simples "Corte" se lhe tirar a função requery que ele tem ao fechar, para actualizar automáticamente o Form "Ver".
O Form Continuo "Ver" aparece no mesmo registo, mas não tem os valores actualizados.

O erro que não é erro é aqui

Private Sub Form_Close()
On Error Resume Next
Forms![Ver].Requery
End Sub

mas não precisa fazer o Requery a partir do evento close, aliás nem deve , pode fazer no botão de comando assim:

On Error Resume Next
DoCmd.OpenForm "Ver", acNormal
Form_Ver.detVer_subformulário.SetFocus
DoCmd.GoToRecord , , acLast
Form_Ver.detVer_subformulário.Requery

Ola amigos;

Apenas uma pergunta;

Porquê complicar o simples ?

O Requery actualiza todo o form levando o mesmo ao primeiro registro, é como se fecha-se e volta-se a abrir.

Nestas situações apenas se utiliza o Recalc, que recalcula o que foi modificado sem saír da posição inicial.

Olhem o simples;


Private Sub Form_Close()
Forms!Ver.Form.Recalc
Forms!Ver.Form.SetFocus
End Sub

Boa noite JPaulo

Private Sub Form_Close()
Forms!Ver.Form.Recalc
Forms!Ver.Form.SetFocus
End Sub

Vai Para o Form "Ver" na posiçao que eu quero.
Mas não actualiza as alterações que eu tenha feito no Form "Corte"

Tem de funcionar sim.

Não tem o porque não funcionar, sempre fiz desse jeito e a actualização é feita de imediato no fecho.

Faça duplo click no ID e no form que abrir altere e feche;

http://dl.dropbox.com/u/771097/Assis_I.rar

Boa noite JPaulo

Obrigado pela atenção prestada.
O seu exemplo Funciona sim.
Mas no meu caso não, e analisando acho que é porque no seu exemplo a fonte de informação é a mesma tabela.

Mas no meu caso os dois Forms" vão buscar dados a locais diferentes.
Um Form vai a uma Tabela, e o outro vai a uma consulta. Será?

Se eu estiver certo tópico "Resolvido"

Bom dia Assis,

Sim nesse caso está resolvido.