[Resolvido]2 utilizadores em rede no mesmo formulário.

Bom dia Amigos.

Sobre isto já tentei de mil e uma maneira e nada.

Apesar de no botão de gravar ter um código para fazer o requery na caixa de listagem do formulário da imagem.

Quando dois utilizadores estão no formulário da imagem, mesmo que um utilizador esteja só a consultar, se o outro utilizador registar um novo registo esse registo não aparece no computador do utilizador que está só a consultar.

Para isso acontecer o utilizador que está a consultar tem de fechar o formulário e voltar a abrir.

Como dar a volta a isso.

Obrigado

Para que a informação seja imediata, o comando Requery deve estar presente também quando vão consultar.

Boa tarde JPaulo

O formulário ao abrir tem um código para fazer o requery da caixa de listagem.

Me.Lista.Requery

Obrigado

Em tabela vinculada o Requery é outro.

Use assim;

Código:

CurrentDb.TableDefs("TabelaVinculada").RefreshLink
Me.Lista.Requery

JPaulo

Em qual acontecimento ?

Coloquei em todos os locais aonde tinha: Me.Lista.Requery

CurrentDb.TableDefs("Proprietario").RefreshLink

Me.Lista.Requery

E continuou igual, para rever os novos movimentos só fechando e reabrindo o formulário.

Obrigado

Se funciona fechando e abrindo, então tem de dar o Requery ao form e não á lista.

Apenas:

Código:

Me.Requery

JPaulo

Nem assim funfa.

Obrigado

Acredito que o seu form é um form desvinculado.
Só testando.

Boa noite JPaulo

Sim é um formulário desvinculado, e para postar é muito difícil. Já tentei e não consegui.

O ideal seria no Botão ao gravar o registo fazer o Requery, no PC aonde é feito o registo a caixa de listagem (Lista) é rapidamente atualizada, mas noutro PC

aberto no mesmo formulário não aparece.

Também já tentei no acontecimento do Timer() 1000, o formulário fica piscando mas não faz a atualização no PC aonde não foi feito o registo.

Para dar como resolvido o tópico ele não está, o melhor seria o Amigo eliminar este tópico para outros membros não fazerem perguntas que não tem resposta

Obrigado

Assis, sendo um form desvinculado, não tem origem de tabela, logo quando você abre o form ele tem de carregar dados via código, certo ?

Então, basta o amigo transformar esse código em Public e chamar o mesmo em todos os eventos.

Assim irá resolver.

Bom dia / Boa tarde a todos...

Vejamos...

Suponho que esta dividido o teu projeto..certo ?

Então o Front end que está atualizando rapidamente, deve ser o mesmo que esta no outro computador.

Copia ele novamente e coloque no outro computador....indexa as tabelas e teste para ver se surte efeito desejado.

Bom dia Assis,

Para carregar os objetos do seu form você está utilizando recordset do tipo DAO ou ADO?
Os recordset's nada mais são uma cópia da sua tabela (ou do select) que fica armazenado em memória.
Os recordset's variam em seu Tipo e Bloqueio:

adOpenForwardOnly - (Padrão) Abre um cursor do tipo forward-only.
adOpenKeyset -  Abre um cursor do tipo keyset. (Não permite visualizar registros excluidos por outro usuário)
adOpenDynamic - Abre um cursor do tipo dynamic.(Exclusão,Inclusão e alterações feitas são visíveis)
adOpenStatic - Abre um cursor do tipo static.(Cópia estática de um conjunto de registros)

Os Recordsets abertos via método Execute são sempre forward-only e somente leitura. Se você precisar criar recordsets atualizáveis deve usar o método OPEN do objeto Recordset da ADO. A sintaxe é a seguinte:

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

Segue a matéria completa em:
macoratti.net/dao_ado2.htm

Créditos: macoratti.net

Veja este link também:
docs.microsoft.com/pt-br/sql/ado/guide/data/cursor-and-lock-characteristics?view=sql-server-2017

Verifique qual a melhor forma de abertura do recordset que atenda suas necessidades.

Espero ter ajudado.

[]'s

Silvio

Sim esta dividido o meu projeto .

Sim o Front End é igual em todos os postos.

Obrigado

Bom dia a todos...

Assis, tem algum progresso ?

Boa tarde Amigos


Private Sub Form_Timer()

Static X As Byte
   
   If X = 5 Then 'de 5 em 5 segundos a lista ? atualizada novamente
       X = 0
       Call fncMontaSaldo
   Else
       X = X + 1
   End If
   

End Sub


dropbox.com/s/fbogk75wwbrywb4/Assis.accdb?dl=0

Show de bola nobre Assis....