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]Como atualizar um campo em um subformulário Folha de Dados?

    Compartilhe

    fferreira2018
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 22/12/2017

    [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  fferreira2018 em Sex 16 Mar 2018, 01:23

    Eu tenho um programinha em Access com dois formulários: F_Principal e F_Subform, onde tem um campo chamado: txt_Mensage (campo texto) e um outro chamado: txtDtCont (campo data), com o seguinte código:

    Private Sub txtDtCont_AfterUpdate()
           Dim sProxDataContato As Date
           Dim sDataAtual As Date
           Dim sDataFinalVigencia As Date
                     
           
                 
           'Data atual do sistema
           sDataAtual = Date
         
           'Data do Testbox Proximo Contato
           sProxDataContato = txtDtCont.value
           
           'Data do Testbox Final da Vigência
           sDataFinalVigencia = txtDtFinalVigencia.value
                       
           'If sDataFinalVigencia > sProxDataContato Then
           
           'With txtMensage
               'Me.txtMensage.SetFocus
               'Me("txtMensage") = "ENCERRADO"
                           
           'End With
               
           'Se a Data for Maior que a data atual
           If sProxDataContato < sDataAtual Then
             
           With txtMensage
                   
               Me.txtMensage.SetFocus
               Me("txtMensage") = "VENCIDO"
         
                             
           End With
               
          ElseIf sProxDataContato > sDataAtual Then
             
           With txtMensage
               
               Me.txtMensage.SetFocus
               Me("txtMensage") = sProxDataContato - sDataAtual & " " & "DIAS PARA VENCER"
                       
               
           End With
       
           
       End If
    End Sub

    Onde se a data (txtDtCont) for maior que a data atual (do sistema) o título estará "Vencido", se for menor, estará "ENCERRADO", e funciona muito bem, SÓ QUE NÃO ATUALIZA QUANDO ABRE O FORMULÁRIO.

    Já tentei de Tudo, mas não consigo atualizar o campo: txt_Mensage, na folha de dados, quando abro o formulários, apenas se clicar no campo data do txtDtCont. Alguém sabe como eu consigo atualizar os dados, em cascata, de um campo que esteja numa folha de dados. Pesquisei em diversos sites e não encontrei uma solução.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 306
    Registrado : 13/12/2016

    Re: [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  Alexandre Fim em Sex 23 Mar 2018, 14:00

    Ferreira bom dia,

    O código postado faz a alteração somente nos campos do formulário, porém, a tabela de origem desses dados não foi atualizada.
    É necessário criar um procedimento para gravar os dados na tabela e, quando abrir o formulário novamente, os dados estarão atualizados corretamente.
    Por gentileza, poste seu banco de dados para que o fórum possa analisar.
    Obrigado

    Att,

    Alexandre Fim
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 516
    Registrado : 11/11/2009

    Re: [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  scandinavo em Sex 23 Mar 2018, 14:25

    O evento está no comando após atualizar', então não vai funcionar quando você abrir o form claro.
    Precisa fazer um código para percorrer o formulário fazendo está verificação.

    Simples assim....

    fferreira2018
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 22/12/2017

    Arquivo de dados

    Mensagem  fferreira2018 em Sab 24 Mar 2018, 12:23

    Boa dia, amigos, fico muito grato por alguém me responder. Estou postando o banco de dados com os arquivos. Se alguém puder me ajudar, eu ficaria muito grato. Eu tentei de várias formas resolver o problema, até achei que não tinha como atualizar em cascata folhas de dados. Laughing cheers cheers
    Anexos
    Arquivo_teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 8 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 516
    Registrado : 11/11/2009

    Re: [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  scandinavo em Seg 26 Mar 2018, 18:33

    Veja ai....
    O que esta acontecendo com o site
    não consegue postar arquivos.


    no evento ao abrir do sub form


    'scandinavo 26/03/18
    Dim rst As DAO.Recordset
    Dim sDataAtual As Date

    'Cor da Caixa de Texto
    Dim curAmntDue As Currency, lngBlack As Long
    Dim lngRed As Long, lngYellow As Long, lngWhite As Long

    'Configuração das Cores
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)

    'Data atual do sistema
    sDataAtual = Date

    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst
    'Se a Data for Maior que a data atual
    If Me.txtDtCont.Value < sDataAtual Then
    Me("txtMensage") = "VENCIDO"
    Else
    If Me.txtDtCont.Value > sDataAtual Then
    Me("txtMensage") = Me.txtDtCont.Value - sDataAtual & " " & "DIAS PARA VENCER"
    End If
    End If

    .MoveNext
    End With
    Loop
    Set rst = Nothing





    fferreira2018
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 22/12/2017

    Sucesso!!!

    Mensagem  fferreira2018 em Ter 27 Mar 2018, 01:36

    Meu amigo scandinavo, foi perfeito, funcionou sensacional. Laughing Laughing Fico perfeito, muito obrigado!!! Fantástico! bounce bounce


    Última edição por fferreira2018 em Ter 27 Mar 2018, 01:38, editado 2 vez(es)

    fferreira2018
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 22/12/2017

    Resolvido

    Mensagem  fferreira2018 em Ter 27 Mar 2018, 01:37

    Resolvido....
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 306
    Registrado : 13/12/2016

    Re: [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  Alexandre Fim em Ter 27 Mar 2018, 02:32

    Valeu Scandinavo....
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 516
    Registrado : 11/11/2009

    Re: [Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

    Mensagem  scandinavo em Ter 27 Mar 2018, 03:58

    Valeu pessoal pelo retorno, e obrigado

      Data/hora atual: Ter 19 Jun 2018, 01:37