MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Seg 22 Maio 2017, 11:56

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Ter 23 Maio 2017, 12:19

    Boa tarde
    up


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qua 24 Maio 2017, 15:19

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Sex 26 Maio 2017, 11:40

    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


    Última edição por Assis em Sex 26 Maio 2017, 18:34, editado 2 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sex 26 Maio 2017, 18:05

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qua 07 Jun 2017, 16:28

    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


    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qua 07 Jun 2017, 16:47

    Olá Assis,
    Tente assim no evento "timer"
    Código:
    DoCmd.RunCommand acCmdRefresh

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 08 Jun 2017, 13:42

    Obrigado Amigo

    Mas nada, parece que só mesmo o F5


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui 08 Jun 2017, 15:51

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 08 Jun 2017, 16:55

    Olá Teixeira

    O requery da mensagem nº 3 sim.

    Como usar o "SendKeys", nunca usei ?

    Em que acontecimento?



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui 08 Jun 2017, 19:37

    Olá Assis, então a "Busca" do fórum....
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

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

    Mensagem  rafaelbatistadasilva em Qui 08 Jun 2017, 20:44

    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.

      Data/hora atual: Qua 22 Nov 2017, 20:07