[Resolvido]Base dados em rede não atualiza registo em dois PC

Bom dia Amigos
Este é o comando de gravar os registos na minha base de dados em rede.
Acontece que tendo eu a BD aberta nos dois PC, e no mesmo formulário, fazendo um registo, esse registo só aparece no PC em que foi feito o registo.

Para aparecer no outro PC tenho que fechar e abrir o dito formulário, e voltar a abrir

Private Sub Comando65_Click()
On Error Resume Next

Dim BCO As Database
Dim Lançamentos As Recordset
Dim LançamentosDatados As Recordset

Set BCO = CurrentDb()
Set Lançamentos = BCO.OpenRecordset("tblmovimento")
Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")

If Me.txtData <= Date Then

Lançamentos.AddNew

Lançamentos![IdCaixa] = Me.IdCaixa
Lançamentos![DataMovimento] = Me.txtData
Lançamentos![Historico] = Me.txtHistorico
Lançamentos![Rubrica] = Me.Rubrica
Lançamentos![Entidade] = Me.Entidade
Lançamentos![Doc] = Me.TxtDoc
Lançamentos![ValorMovimento] = ValorMovimento
Lançamentos![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
Lançamentos![ValorDebito] = ValorMovimento
Lançamentos![ValorCredito] = 0
ElseIf Me.TipoMov = "C" Then
Lançamentos![ValorCredito] = ValorMovimento
Lançamentos![Débito] = 0
End If
End If

If Me.txtData > Date Then
MsgBox "Este Movimento vai Ficar Pendente ! " & vbCrLf & " Até dia " & txtData & " ", vbExclamation, "Aviso"

LançamentosDatados.AddNew

LançamentosDatados![IdCaixa] = Me.IdCaixa
LançamentosDatados![DataMovimento] = Me.txtData
LançamentosDatados![Historico] = Me.txtHistorico
LançamentosDatados![Rubrica] = Me.Rubrica
LançamentosDatados![Entidade] = Me.Entidade
LançamentosDatados![Doc] = Me.TxtDoc
LançamentosDatados![ValorMovimento] = ValorMovimento
LançamentosDatados![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
LançamentosDatados![ValorDebito] = ValorMovimento
LançamentosDatados![ValorCredito] = 0
ElseIf Me.TipoMov = "C" Then
LançamentosDatados![ValorCredito] = ValorMovimento
LançamentosDatados![Débito] = 0
End If

End If


ValorMovimento = Format(ValorMovimento, "#,##0.00 €")

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbYes Then

Lançamentos.Update
LançamentosDatados.Update

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))

Else
MsgBox "Registo do Lançamento Cancelado", vbExclamation, "Gestão Bancária"

Lançamentos.CancelUpdate
LançamentosDatados.CancelUpdate


End If

Lançamentos.Close
LançamentosDatados.Close



Call fncMontaSaldo
Call Form_Current

Me.Comando65.Visible = True
Me.Comando96.Visible = False
Me.Comando97.Visible = False

Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null

Me.txtData = Forms.menu.DataMenu
Me.txtData.SetFocus
Me.txtData.SelStart = 0
Me.Recalc
Me.Requery
End Sub

Obrigado

Boa tarde
up

Olá Assis,
Em rede as coisas são assim.

No fim do código você tem:

Código:

Me.Recalc
Me.Requery

No outro pc, está com os dados carregados.
Basta o F5 ou coluca um botão "Atualizar".

Se pretende mesmo automático, vai ficar a piscar, mas pode usar o evento onTimer para o efeito.
Nem sei bem se a coisa vai funfar ou vai complicar no lançamento de dados novos.
Só memso você testando.

Abraço

Bom dia Teixeira

Conhece este sistema ?

Cole no navegador:



google.pt/url?sa=t&rct=j&q=&esrc=s&source=video&cd=1&cad=rja&uact=8&ved=0ahUKEwj8kMXci47UAhULuRQKHTBbA-YQtwIIITAA&url=https%3A%2F%2Fwww.youtube.com%2Fwatch%3Fv%3DxNxr07zOqXc&usg=AFQjCNGDFHcmfyeFOQ7i2XmU8zJ7G01A-g

Ola Assis,
Verifique o link, nao se esqueca de retirar htt... ou colocar numa caixa de codigo.
Abraco

Boa tarde

Teixeira, na mensagem Nº 3 o Amigo escreveu ..

" Basta o F5 ou coluca um botão "Atualizar". "

Como seria o código desse botão  "Atualizar" ?

É que mesmo no evento "Timer" com a instrução Me.Lista.Requery não atualiza no PC aonde não é feito o registo, só com F5

Obrigado

Olá Assis,
Tente assim no evento "timer"

Código:

DoCmd.RunCommand acCmdRefresh

Abraço

Obrigado Amigo

Mas nada, parece que só mesmo o F5

Olá, então pode usar o "SendKeys".
Colocou o requery da mensagem nº 3
Abraço

Olá Teixeira

O requery da mensagem nº 3 sim.

Como usar o "SendKeys", nunca usei ?

Em que acontecimento?

Olá Assis, então a "Busca" do fórum....
https://www.maximoaccess.com/search?mode=searchbox&search_keywords=sendkeys&show_results=topics
Abraço

Olá Teixeira,
também tenho uma base de dados em rede.

No formulário que tenho, no evento "No timer", coloco a rotina:

Código:

On Error Resume Next
Lista2.Requery

e "Intervalo de cronômetro" = 1000

Lista2 é o nome da listbox que visualizo os dados.

Espero ter ajudado.

Em tempo, sobre várias pessoas usando o mesmo back-end ao mesmo tempo, crie uma cópia do fronte-end para cada usuário, assim evita conflitos.