MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

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

    avatar
    fferreira2018
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fferreira2018 15/3/2018, 22: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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 23/3/2018, 11: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
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 23/3/2018, 11: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....
    avatar
    fferreira2018
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fferreira2018 24/3/2018, 09: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
    [Resolvido]Como atualizar um campo em um subformulário Folha de Dados? AttachmentArquivo_teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 9 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 26/3/2018, 14: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




    avatar
    fferreira2018
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fferreira2018 26/3/2018, 21:36

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


    Última edição por fferreira2018 em 26/3/2018, 21:38, editado 2 vez(es)
    avatar
    fferreira2018
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fferreira2018 26/3/2018, 21:37

    Resolvido....
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 26/3/2018, 22:32

    Valeu Scandinavo....
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 26/3/2018, 23:58

    Valeu pessoal pelo retorno, e obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:05