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]Executar Requery em qual evento

    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    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 : 77
    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 : 2708
    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 : 77
    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 : 2708
    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 : 77
    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 : 2708
    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 : 77
    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 : 2708
    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 : 77
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 20:45