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


2 participantes

    [Resolvido]Dividas dos clientes

    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty [Resolvido]Dividas dos clientes

    Mensagem  djessirv 21/1/2015, 18:32

    Boas pessoal, estou a desenvolver uma pequena aplicação. Queria uma ajuda para ultrapassar um problema aqui, criei uma tabela para registo das dívidas contraída pelos clientes e tem um campo Pago (Sim ou Não). Agora no formulário pagamento gostaria que quando é filtrado um determinado cliente e clicando no botão “ok” todos os atributos do campo Pago deste cliente passasse para Sim.
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 22/1/2015, 09:08

    Bom dia,

    No codigo do seu butão "OK" ao clickar experimenta:

    Me.SeucampoPago= -1 'O (-1) passa a seu campo para Sim ou não, caso não dei passa para 0

    Abraço... Cool
    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 22/1/2015, 10:18

    Bom dia Roberto,
    Dessa forma está alterando somente o primeiro registo. Eu gostaria que altera-se todos os registos que estiveram como "Não" para "Sim" do cliente selecionado.
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 22/1/2015, 10:51

    Bom dia,

    experimenta algo assim, adapte a sua BD.

    UPDATE SuaTabela
    SET Seucampopago = -1
    WHERE [CampoClientenaTabela] = [SeucampoClienteForm]

    Abraço... Cool
    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 22/1/2015, 11:11

    Roberto,
    Esse código devo colocar o evento do meu botão "ok"?
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 22/1/2015, 13:05

    Boa tarde,

    Sim é para colocar no botão "OK".
    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 23/1/2015, 12:20

    Boa tarde Roberto,
    Inseri o código no evento do meu botão só que está dando erro que função Update não está definido.
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 23/1/2015, 13:05

    Boa tarde,

    Posta aqui tua BD....
    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 23/1/2015, 13:33

    Boa tarde,
    Envio em anexo o meu BD.
    Anexos
    [Resolvido]Dividas dos clientes Attachmentcantina.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (82 Kb) Baixado 17 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 23/1/2015, 14:45

    veja se é isso???'
    hiperjohn
    hiperjohn
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 06/06/2013

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  hiperjohn 23/1/2015, 15:34

    A dica do Roberto está correta, mas deveria estar assim:

    CurrentDb.Execute "UPDATE SuaTabela SET Seucampopago = -1 WHERE [CampoClientenaTabela] = [SeucampoClienteForm]"

    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 23/1/2015, 16:23

    Valeu cara nem sei como te agradecer. muito obrigado mesmo.
    avatar
    Convidado
    Convidado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Convidado 23/1/2015, 16:32

    boa tarde,

    Não se esqueça de marcar tópico como [Resolvido]...
    O Forum agradece...

    Abraço... Cool
    avatar
    djessirv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 29/02/2012

    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  djessirv 23/1/2015, 16:41

    Boa tarde,
    Ok.
    Muito obrigado mais uma vez Roberto.

    Conteúdo patrocinado


    [Resolvido]Dividas dos clientes Empty Re: [Resolvido]Dividas dos clientes

    Mensagem  Conteúdo patrocinado


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