[Resolvido]Manter-se no registro atual após atualização com requery

Galera, boa tarde.

Estou com uma dúvida e acredito que ela não seja tão complexa assim....

Eu tenho um formulário, com sub formulário onde no botão atualizar uso o seguinte código:

Me.Requery

Me.frm_registronotafiscal.Requery

E ainda, o formulário no NO TIMER atualiza sozinho a cada 5 minutos, porém o que acontece é que toda vez que ele atualiza ele volta para o ultimo registro e gostaria que toda vez que houvesse uma atualização ele permanecesse no registro atual.

Eu acredito que para isso acontecer deveria ter um código no evento após atualizar, porém não sei exatamente qual?

Seria o DO CMD?

Alguém poderia me ajudar?

Galera... eu adaptei o seguinte código e ele funcionou como eu pretendiä:

Dim lngChave As Long
lngChave = Me.sequenciaveiculo

Me.Requery
Me.frm_registronotafiscal.Requery

Do Until Me.sequenciaveiculo = lngChave Or Me.NewRecord = True
DoCmd.GoToRecord , , acNext
Loop


Só que ele faz o loop e a intenção era ele não fazer, tentei tirar o efeito loop e ele depura, alguem ja viu isso?

Boa noite,
Respeite as regras do fórum
Adeqúe o título. Escrever em maiúsculas significa gritar

Desculpa, ajustei o nome do tópico

O método .Requery é como se vc abrisse seu Formulário novamente...

Para o que precisa, utilize o método .Recalc

Pesquise sobre os métodos (.requery e .Recalc) para ver as diferença entre eles!

Fabio, bom dia.

Primeiramente obrigado, pela ajuda...

Então eu o recalc não funciona porque só pega os campos calculados, sendo que não tem o mesmo efeito do F5.

Para atualizar o meu formulário só através do requery mesmo, mas tenho problema na hora de ele voltar para o ultimo registro

Eu apliquei a formula abaixo, mas ela faz o retorno para o registro atual através de loop

Dim lngChave As Long
lngChave = Me.sequenciaveiculo

Me.Requery
Me.frm_registronotafiscal.Requery

Do Until Me.sequenciaveiculo = lngChave Or Me.NewRecord = True
DoCmd.GoToRecord , , acNext
Loop

Experimente assim:


Dim meuCod As Integer
'aqui grava o código do registro atual na variável. se forn numero Integer, se não, string
meuCod = Me.idcliente
Me.Requery
'isso é um clone do teu recordset(tabela) movendo para o primeiro registro
Me.RecordsetClone.MoveFirst
'na linha abaixo, ele procura no clone o teu registro atual
Me.RecordsetClone.FindFirst "[idcliente] = " & meuCod
'aqui define o registro atual do formulário igual ao do clone
Me.Bookmark = Me.RecordsetClone.Bookmark

Não esqueça de mudar o nome do me.idCliente pra o teu código.

[ ]'s

Olá...

Dando um palpite.....

Tenho um procedimento parecido que me faz um Update de uma tabela a cada 15 minutos
Então tenho definido No timer o meu procedimento e dou um Me.refresh.
Ex: CurrentDb.Execute "UPDATE NomeDaTabela .........
Me.Form.Refresh
Quando ocorre o procedimento e estou no formulário ele permanece no registro atual

Tambem tenho um botão atualizar para antecipar um Update

No Clicar do botão tenho o mesmo código acrescido de um setFocus Ex:
CurrentDb.Execute "UPDATE NomeDaTabela .........
Me.NomeDoMeuSubFormulário.Form.Refresh
Screen.PreviousControl.SetFocus ' Voltar ao campo que tinha foco antes de clicar no botão atualizar

Espero que ajude

Abraços

Noobezinho, você é o CARAAAA hahahah

Funcionou muito bem!!! Valeu!

Só uma coisa, como brasileiro sempre que recebe uma mão quer o pé kkkkkkk

Ele rapidamente vai até o inicio e volta para o registro atual, no meu formulário isso acaba sendo perceptivo, mesmo sendo fração de segundos...

Existe como melhorar isso?

Celso,

Após testar a dica do noobizinho eu fui testar a sua porque achei que teria um resultado legal.

Só que não consegui aplicar ela exatamente na questão UPDATE nome da tabela, o código acaba depurando.

Olha como coloquei:


Private Sub Comando112_Click()

CurrentDb.Execute "UPDATE tbl_r_veiculo_final"
CurrentDb.Execute "UPDATE tbl_notafiscal"
Me.form.refresh
Me.registronotafiscal.Form.Refresh

Screen.PreviousControl.SetFocus

Meu formulário é com Subformulario, ai preciso que actualize os dois....
E pelo que percebi o execute é pra trazer os dados atualizados na tabela, então preciso fazer duas vezes já que por ser dois formularios possui duas tabelas.

Gabriel

experimente tirar essa linha e veja como se porta:

'Me.RecordsetClone.MoveFirst

é só colocar a aspas simple ( ') na frente.

eu testei com poucos registros, creio não ser a mesma coisa.

Acredito que mesmo assim,vai piscar pois está alterando o registro no formulario.

Lembre-se, requery é uma reconsulta.

Aguardamos

Noobizinho,

Realmente piscou, mas é porque ele força a ida pro registro atual.

O bom era se o requery tivesse como alterar seu padrão rsrsrs

Noobizinho,

Acho que esse assunto foi resolvido, vou considerar sua dica como a melhor opção e considerar ela no meu trabalho, caso no futuro eu venha a ter dificuldades se houve muitos registros eu reabro o post.

Agora queria sua ajuda no meu outro post sobre bloqueio de campo...

Precisava de ajuda, pois no meu form eu tenho dois campos que ao clicar ele bloqueia outro e quando desflego ele desbloqueia, o problema é quando passo para um novo registro e aquele campo foi flegado, no novo registro ele vem bloqueado rsrs

Muito obrigado pela ajuda de todos!

Vocês são feras!!!!

Olá...

Para realizar Update em duas tabelas geralmente usamos  INNER JOIN, mas no seu caso também acredito que a dica do Noobezinho seja o ideal.

OBS: Faltou o Resolvido, veja como na assinatura do Noobezinho

Abraços

Celso, valeu...

Estava esperando sua resposta para dar como resolvido rs

Que feras, que nada !!

Somos apenas entusiasta do Access.

Tem muita coisa a se aprender!

Valeu o retorno!

Boa sorte!


ps: vou olhar teu outro post.