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]Repetir um valor em varios registro em um formulário continuo filtrado

    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Henry Airlie 22/7/2015, 19:00

    Boa tarde mestres,
    Preciso de ajuda.
    Tenho uma tabela nome tblpagamentos com alguns campos nome: "codpgto" "datapgto" "nome" "vlrtotal" "comissao" e criei uma consulta para essa tabela para filtrar por data onde uso o código  - Como "*" & [Digite a Data]. Em cada tenho vários funcionários onde tenho que lançar o valor total da vendo do dia para calcular a comissão de cada. Antes eu tinha que lançar o valor total da venda que é o mesmo para todos em todos os registros mas foi solucionado pelo código que copiei do amigo Dilson segue:

    On Error GoTo TratareiErro
    Dim Rs As DAO.Recordset
    Dim Contador As Long
    Dim ContaOProgresso As Long
    Set Rs = CurrentDb.OpenRecordset("tblpagamento")
    Rs.MoveLast
    Contador = Rs.RecordCount
    Rs.MoveFirst
    SysCmd acSysCmdInitMeter, "Realizando as alterações, aguarde...", Contador
    For ContaOProgresso = 1 To Contador
    SysCmd acSysCmdUpdateMeter, ContaOProgresso
    Rs.Edit
    Rs("comissao3") = Me!comissao3
    Rs.Update
    Rs.MoveNext
    Next ContaOProgresso
    Rs.Close
    SysCmd acSysCmdRemoveMeter
    MsgBox "OK, Total de: " & Contador & " registros", vbInformation, "Concluído"
    Exit_TratareiErro:
    Exit Sub
    TratareiErro:
    MsgBox "Ocorreu uma falha neste processamento." _
              & vbCrLf & "Trata-se do erro n°: " & Err.Number _
              & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Erro inesperado"
    Exit Sub
    Me.Recalc

    Funciona perfeitamente, só que ele lança o valor digitado em todos os registros desde o inicio da tabela e eu gostaria que fosse lançado só para a data que foi filtrada.
    Será que existe essa possibilidade, desde agradeço a todos.

    Henry Airlie
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8175
    Registrado : 05/11/2009

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Alexandre Neves 22/7/2015, 21:52

    Boa noite,
    Não entendi onde tem o filtro para introduzir a data
    Para filtrar por data, tente
    onde está
    Set Rs = CurrentDb.OpenRecordset("tblpagamento")
    coloque
    Set Rs = CurrentDb.OpenRecordset("SELECT comissao3 FROM tblpagamento WHERE datapgto=#" & Format(Inputbox("Introduza a data a filtrar"),"dd-mm-yyyy") & "#")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Henry Airlie 18/8/2015, 13:37

    Bom dia,
    Desculpe a demora estava viajando. Bom acho que não fui muito claro.
    Quando lanço o valor em comissão ele atualiza todos os registros desde o inicio da tabela (com outras datas) e eu gostaria que fosse atualizado só os registros que eu acabei de digitar para aquela data.
    Será que existe essa possibilidade, desde agradeço a atenção.

    Att
    Henry Airlie
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8175
    Registrado : 05/11/2009

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Alexandre Neves 22/8/2015, 21:45

    Boa noite
    Se tem controlo no formulário que contém a data, coloque
    Set Rs = CurrentDb.OpenRecordset("SELECT comissao3 FROM tblpagamento WHERE datapgto=#" & NomeControloNoFormulario & "#")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Henry Airlie 25/8/2015, 00:50

    Olá Alexandre,
    Agradeço sua boa vontade, mas não estou conseguindo. Continua dando erro
    Não sei onde estou errando
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  cleverson_manaus 25/8/2015, 02:44


    Brother, posta essa parte do bd para darmos uma analisada.

    Acho que tenho algo parecido, mas preciso ver as tabelas.


    Abraços,



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Henry Airlie 26/8/2015, 14:46

    Olá amigos,
    Quero agradecer á todos pela ajuda e boa vontade, consegui achar o erro e resolver.
    Muito obrigado mesmo.
    att
    Henry Airlie
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado Empty Re: [Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

    Mensagem  Henry Airlie 26/8/2015, 14:47

    Desculpa, esqueci de colocar resolvido.
    Vlw

      Data/hora atual: 10/8/2022, 18:36