MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Executar Requery em qual evento

    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 2/4/2019, 20:32

    Prezados (as),

    Boa tarde!

    Como faço para que, assim que crio e salvo um novo registro, isso seja visto no formulário que está em outro computador?

    Quando lanço um registro e vou buscar na combox do outro computador, a mesma localiza isso, mas ao clicar o Enter ela não trás registro nenhum. Só funciona quando fecho e abro novamente o form do outro computador.



    Já grato pela atenção de todos!
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 3/4/2019, 14:16

    Bom dia à todos,

    Na realidade pesquisei mais sobre o assunto e descobri em outro tópico daqui uma solução


    Private Sub Salvar_LostFocus()

    Dim meuCod As Integer
    'Aqui grava o código do registro atual na variável
    meuCod = Me.Código
    Me.Requery

    'aqui clona o recordset (tabela) movendo para o primeiro registro
    Me.RecordsetClone.MoveFirst

    'procura no clone o registro atual
    Me.RecordsetClone.FindFirst "[Código] = " & meuCod

    'define o registro atual do formulário igual ao do clone
    Me.Bookmark = Me.RecordsetClone.Bookmark


    End Sub


    Contudo não estou sabendo onde colocar o código. Fiz um teste colocando no LostFocus do botão salvar. Só que, para que funcione, o outro usuário deve seguir esse procedimento no form dele.

    Em qual evento posso inserir esse código de maneira a, assim que eu finalizar um novo registro, em tempo real o outro usuário já possa visualizá-lo no computador dele?

    Mudei o título para facilitar o entendimento do que busco
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  Marcelo David em 3/4/2019, 15:52

    Bom dia,
    poderá por no evento Ao receber o foco da combo:

    Me.SuaCombo.Requery


    Assim, todas as vezes que entrar na combo ela atualiza
    os registros.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 3/4/2019, 16:25

    Bom dia Marcelo,

    Inseri no evento do botão Salvar desta Maneira:

    Private Sub Salvar_Click()

    DoCmd.RunCommand acCmdSaveRecord

    Call MsgBox("Registro Salvo!", vbInformation)

    On Error Resume Next
    Dim meuCod As Integer
    'Aqui grava o código do registro atual na variável
    meuCod = Me.Código
    Me.Requery

    'aqui clona o recordset (tabela) movendo para o primeiro registro
    Me.RecordsetClone.MoveFirst

    'procura no clone o registro atual
    Me.RecordsetClone.FindFirst "[Código] = " & meuCod

    'define o registro atual do formulário igual ao do clone
    Me.Bookmark = Me.RecordsetClone.Bookmark


    End Sub


    Funciona em partes. Para o usuário do outro computador somente funciona obviamente quando ele clica no botão Salvar do form dele, aleatoriamente. Tenho 3 Combos de busca, vou testar inserir o código conforme a sua indicação.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  Marcelo David em 3/4/2019, 16:38

    Mas para o que pretende, não precisa desse monte de código não..
    O que lhe apontei já cumpre certinho o que pretendes...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 3/4/2019, 16:57

    Acabei de testar exatamente como voce disse.

    Ficou Me.Combinação158.Requery

    Contudo, na combo ele acha o nome da pessoa (que é a busca), mas não localiza o registro.

    Será que é pelo fato da combo estar localizada no cabeçalho do formulário?

    Eu fiz um teste inserido um botão Atualizar no cabeçalho do formulário e funcionou com essa penca de código que fiz. Mas estou buscando um jeito do usuário não precisar clicar em nada.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  Marcelo David em 3/4/2019, 17:02

    Quando você salva o registro, ponha isso:

    Abaixo do Requery, ponha:

    Me.Refresh


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 3/4/2019, 19:18

    Não funcionou como o esperado.

    De qualquer forma, com o Botão atualizar funcionou. Vou deixar desta forma e passar para homologação. Se aceitarem assim então beleza.

    Vou marcar como resolvido e lhe agradecer pela atenção e dicas!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  Marcelo David em 3/4/2019, 19:19

    Esqueci, abaixo do requery da combo,
    Ponha o refresh também.

    Me.Refresh


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Executar Requery em qual evento Empty Re: [Resolvido]Executar Requery em qual evento

    Mensagem  mduarteteixeira em 3/4/2019, 19:53

    Beleza

      Data/hora atual: 5/7/2020, 10:45