MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  digitaltec em 3/7/2020, 14:42

    Olá tenho um form continuo que nele abre as contas a pagar do dia quero criar um botao que ao clicar ele marque todas os campos recebidos de todo formulário que esta aberto. Coloquei no btão ao clicar me.pago.value = -1 mais ele só marca o primeiro quero que ele marque todos. Desde ja agradeço a atenção de todos
    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  digitaltec em 3/7/2020, 19:07

    Segue exemplo para ajudar aos colegas a entender melhor eu desejo ao clicar em pagar todos, todos que tem pago ele fique como marcado no caso ele receba -1 que é o seu código para ficar marcado seria isso, alguma luz ? : )
    Anexos
    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Attachmentexemplo.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 7 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  Celso Roberto em 3/7/2020, 19:28

    Olá..

    Adapte a sua necessidade alterando para o nome do seu formulario

    Código:
    Me.NomeDoSeuFormulario.Form.RecordsetClone.MoveFirst
        Do While Not Me.NomeDoSeuFormulario.Form.RecordsetClone.EOF
            Me.NomeDoSeuFormulario.Form.RecordsetClone.Edit
            Me.NomeDoSeuFormulario.Form.RecordsetClone!Pago = True
            Me.NomeDoSeuFormulario.Form.RecordsetClone.Update
            Me.NomeDoSeuFormulario.Form.RecordsetClone.MoveNext
        Loop
            Me.NomeDoSeuFormulario.Requery
            Exit Sub

    Aguardamos retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    digitaltec gosta desta mensagem

    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  digitaltec em 3/7/2020, 19:53

    Olá Celso obrigado pela ajuda, coloquei o codigo no botao pagartodos e deu um erro de metodo ou mebro segue foto do erro
    Anexos
    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Attachmenterro.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 6 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  Celso Roberto em 3/7/2020, 20:08

    Olá..

    Altere para

    Código:
    Me.Form.RecordsetClone.MoveFirst
        Do While Not Me.Form.RecordsetClone.EOF
            Me.Form.RecordsetClone.Edit
            Me.Form.RecordsetClone!Pago = True
            Me.Form.RecordsetClone.Update
            Me.Form.RecordsetClone.MoveNext
        Loop
            Me.Requery
            Exit Sub

    Se der erro, anexe seu exemplo para que possamos verificar

    Aguardamos retorno


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    digitaltec gosta desta mensagem

    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  digitaltec em 3/7/2020, 20:18

    Resolvido
    Criei tbm o outro botao para desmarcar todos apenas mudei de true para false
    Muito obrigado : )
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas Empty Re: [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

    Mensagem  Celso Roberto em 3/7/2020, 20:28

    Olá..

    Fico feliz por ter ajudado. cheers cheers

    Obrigado pelo retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 22/9/2020, 14:15