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]Atualizar campos ao carregar formulário

    Compartilhe

    mduarteteixeira
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Atualizar campos ao carregar formulário

    Mensagem  mduarteteixeira em Sex 11 Maio 2018, 16:45

    Boa tarde,


    Eu gerei o seguinte código no evento Got Focus do formulário e funcionou como esperado. Contudo, possuo muitos registros (36.000) e necessito fazer com que o campo seja alimentado de uma única vez.


    Tentei fazer no Ao Carregar, do formulário sem obter sucesso.

    Algum amigo sabe como eu deveria proceder?


    Muito obrigado!!!!


    Private Sub Total_guias_esperado_GotFocus()
    Dim Resultado As Long
    Dim Atual As Date
    Dim DataPagto As Date


    If Me.Situação = "Quitado" Or Me.Situação = "Em Processamento" Then

    Atual = Me.Data_atual
    DataPagto = Me.Dt_Pagto

    Resultado = DateDiff("m", DataPagto, Atual)

    Me.Total_guias_esperado = Resultado

    Else
    Resultado = 0
    Me.Total_guias_esperado = Resultado

    End If



    End Sub
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar campos ao carregar formulário

    Mensagem  Assis em Sex 11 Maio 2018, 17:13

    Não custa nada testar.

    Teste também no Form_Current , que é no Atual.


    .................................................................................
    *** Só sei que nada sei ***

    mduarteteixeira
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar campos ao carregar formulário

    Mensagem  mduarteteixeira em Sex 11 Maio 2018, 17:59

    Assis,


    Testei das duas maneiras.

    A bem da verdade, esqueci de mencionar que me utilizo de um Formulário Contínuo.

    Eu procuro uma forma de, ao abrir o formulário, ele executar as ações do código de uma maneira parecia com o que faz o comando:

    CurrentDb.Execute

    Que, no caso, executa uma consulta de atualização pré definida.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3876
    Registrado : 20/04/2011

    Re: [Resolvido]Atualizar campos ao carregar formulário

    Mensagem  Silvio em Sex 11 Maio 2018, 18:55

    Um pitaco....

    No evento Atual do teu formulário...

    Me.requery

    Ou ao invés de usar o código ao perder o foco, use ele no evento ao sair do campo.   Usando ainda o me.requery


    Última edição por Silvio em Sex 11 Maio 2018, 19:16, editado 1 vez(es) (Razão : Acréscimo de informação !)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    mduarteteixeira
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar campos ao carregar formulário

    Mensagem  mduarteteixeira em Sex 11 Maio 2018, 20:24

    Amigos,


    Consegui seguindo o seguinte:

    - Criei uma consulta de atualização e, no campo em que desejo ser alimentado com o valor numérico de diferença entre meses, inseri a função DifData("m";[Dt Pagto];[Data_atual]) na opção 'Atualizar para:'.

    - Após, no evento Ao Carregar do formulário, inseri o CurrentDb.Execute ("Consulta de atualização")

    Com isso, ele atualiza todos os registros quando da abertura do formulário.


    Muito obrigado pela ajuda e atenção de vocês!



      Data/hora atual: Dom 27 Maio 2018, 09:01