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]Realizar soma ao selecionar controle multiplo

    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 16/2/2012, 11:06

    Amigos bom dia, estou tentando implementar um comando que faça uma determinada soma simples tipo 1 + 2 + 3 coisa simples, mostrando o resultado em um determinado campo chamado IQF, no momento em que o usuário clicar nos controles multiplos do formulário, sabem aquelas caixas de seleção!?

    No caso os controles multiplos que eu tenho no formulário são:

    =================================================================
    Pontualidade na entrega? ▀ SIM(2 pontos) ▀ Não(0 pontos)

    Embalagem atende? ▀ SIM (1 ponto) ▀ Não (0 pontos) ▀ Não se aplica(1 ponto)

    Certificado atende? ▀ SIM (2 ponto) ▀ Não (0 pontos) ▀ Não se aplica (2 ponto)

    Atende especificações técnicas? ▀ SIM (3 pontos) ▀ Não (0 pontos)

    Produto integro? ▀ SIM (2 pontos) ▀ Não (0 pontos)

    =================================================================

    Gostaria de um comando que ao clicar nos controles já some os pontos e de o resultado no campo "IQF" dai no campo "Classificação" vou colocar uma condicional de que se a soma for 7 ou mais aparecerá escrigo BF (bom fornecedor) caso contrário MF(mau fornecedor)

    Amigos desde já agradeço!

    Utilizo MS Access 2010 SP3 Windows XP

    Obrigado!
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 16/2/2012, 17:55

    Algum amigo pode ajudar com essa questão?
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 16/2/2012, 18:30

    Crie um campo não acoplado e na Origem ponga a seguinte expressão:

    =Soma([NomeCampo1]+[NomeCampo2]+[NomeCampo3])

    Poderá adicionar quantos campos forem necessários


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 16/2/2012, 19:59

    Então Marcelo, acontece que os campos a serem somados não são numéricos, são aqueles quadradinho de selecionar,,, como eu exemplifiquei na menssagem acima, são controles multiplos!

    Nesse caso essa expressão não esta funcionando, como eu poderia fazer?
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 16/2/2012, 20:02

    Poste aqui aqui seu banco que eu dou uma olhada para você...


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 17/2/2012, 10:27

    Ok Marcelo. estou postando o formulário em questão junto com a tabela, você vai ver um campo chamado IQF (soma dos pontos) não aclopado, gostária que conforme fossemos selecionando as respostas nas caixinhas de controle multiplos então ali fossem sendo somados automáticamente o resultado de acordo com o valor que cada caixa de controle multiplo tem!

    Obrigado pela ajuda!
    Anexos
    [Resolvido]Realizar soma ao selecionar controle multiplo AttachmentRG LA 08.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 12 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 17/2/2012, 12:16

    Amigo, pelo o que eu vi, as chckbox tem um rótulo que informa a quantidade de pontos...
    Nesse caso teremos que fazer com que ao selecionar o "Sim" que vale 2, uma variável receba 2...
    Vou ver o que faço por qui...


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 17/2/2012, 12:32

    Ok Marcelo entendi, obrigado mais uma vez pela ajuda =]
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 17/2/2012, 12:46

    Amigão, veja se é isso que você deseja (anexo):

    Anexos
    [Resolvido]Realizar soma ao selecionar controle multiplo AttachmentRG LA 08.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 20 vez(es)


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 17/2/2012, 12:56

    Concerteza era isso que eu precisava Marcelo =] Muito obrigado, sempre aprendemos muito com vocês!
    =]
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 17/2/2012, 13:02

    Grato pelo retorno, o fórum agradece!


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 17/2/2012, 13:10

    Nossa nem tinha me dado conta que dava para inserir códigos na parte externa do grupo de opções das checkbox...

    Ficou muito legal seu código, essa Function Valores, com ela estou agora começando a entender como criar códigos fora de eventos!

    Pelo que entendi você Criou a Function Valores

    Nomemou os grupos de chekbox com um GP na frente, por que esse GP? E por que na Function ao invés de GP está int??

    e abaixo listou os casos e no evento no atual de cada grupo você inseriu Call Valores ! Legal!

    Só mais uma pergunta a mérito de entendimento. Por que no evento no atual do formulário você inseriou o código Call Valores também!?
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 17/2/2012, 13:20

    Muito bom seu interesse...
    O nome "Gp" que abreveia os nomes que atribuí aos grupos serve apenas para especificar que estamos lidando com um Grupo de opções, poderia ser qualquer nome...
    O "int" é para especificar que a variável é do tipo número inteiro
    E o Call Valores no Evento Atual é para caso voce tenha que mudar de registro, a função somará os pontos dos campos atuais e não apenas os que ele somou no inicio...

    É isso...


    .................................................................................
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Realizar soma ao selecionar controle multiplo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Realizar soma ao selecionar controle multiplo Marcel11
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  andre.lr 17/2/2012, 13:25

    Me.txtTotal = "IQF (soma dos pontos): " & intTotais & " pontos."

    Essa linha também me deixou um tempão procurando o tal do campo totais rss... ]

    mas agora percebi que na realidade ele não existia você que o criou através da function valores colocando

    Dim intTotais As Integer

    Com isso agora pude entender que o código DIM As Integer parece que você pode criar um campo que não exista no formulário certo?

    então você pode referencia-lo aonde queira.

    Acho que estou começando a entender um pouco é isso mesmo amigo?
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Marcelo David 17/2/2012, 13:47

    O txtTotais criei lá no formulário

    Agora o valor dele é atribuído pela variável intTotais (que recebe o resultado das somas) concatenado com os nomes"soma dos pontos, pontos....

    Dim ...As Interger é para criação de uma variável que pode ser aproveitada em qualquer lugar do formulário... Há a possibilidade de criar variáveis globais que podem serem usadas em qualquer parte do aplicativo...

    Veja este vídeo do mestre criquio que ajudará no seu entendimento das variáveis:

    https://www.youtube.com/watch?v=amiqoEnEIlw&list=UUsInYee1PyzWp9ehWJCQX3w&index=7&feature=plcp

    Conteúdo patrocinado


    [Resolvido]Realizar soma ao selecionar controle multiplo Empty Re: [Resolvido]Realizar soma ao selecionar controle multiplo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:39