Ir para conteúdo
Fórum Script Brasil
  • 0

Transformando Sim/Não em gráficos


Ricmendes

Pergunta

Olá pessoal!

Gostaria de saber como posso transformar sim/não em gráfigo?

Acho que não fui bem claro não minha pergunta. Estou construindo um formulário no qual tem várias perguntas. Umas das perguntas a pessoa tem quer responder caixa de seleção com as opções (Sim, Não e Não respondeu). Gostaria de saber como faço para que a pessoas apenas possa assinar uma opção? Outra duvida seria, gostaria de demonstrar essas respostas da questão em gráfico, tem como fazer isso?

Desde já agradeço atenção.

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Faça um código utilizando as propriedades "após atualizar" de cada objeto sim/não, vou chamar de obj1 e obj2

na propriedade após atualizar do obj1 digite:

if me.obj1=true then

me.obj2.enabled=false

else

me.obj2.enabled=true

end if

na propriedade após atualizar do obj2 digite:

if me.obj2=true then

me.obj1.enabled=false

else

me.obj1.enabled=true

end if

Isso travaria o campo não utilizado sempre que um deles fosse confirmado. Quanto ao gráfico você pode utiliza o excel para capturar dados da sua tabela e utilizar para gera o gráfico, depois utlize um OLE para inserir esse gráfico no seu form ou relatório.

Link para o comentário
Compartilhar em outros sites

  • 0

A idéia é a mesma da resposta já postada...

Acredito que o código fique....

Propriedade após atualizar do obj1:

if me.obj1=true then

me.obj2.enabled=false and me.obj3.enabled=false

else

If me.obj2=true then

me.obj1.enabled=false and me.obj3.enabled=false

else

If me.obj3=true then

me.obj1.enabled=false and me.obj2.enabled=false

else

me.obj3.enabled=true

end if

end if

A idéia é a mesma para os outros campos....

Link para o comentário
Compartilhar em outros sites

  • 0

cria uma tabela no modo desing com os campos:

nome do campo - tipo de dados

pergunta - texto (aqui é a pergunta. Exemplo: que cor é a laranja?)

resposta1 - sim/não (aqui é a opção1)

resposta2 - sim/não(aqui é a opção2)

resposta3 - sim/não (aqui é a opção3)

resp1 - texto (aqui é o que seria a resposta 1. Exemplo: branco)

resp2 - texto (aqui é o que seria a resposta 2. Exemplo: azul)

resp3 - texto (aqui é o que seria a resposta 3. Exemplo: laranja)

tipo1 - texto (aqui retornará o numéro 1, se for escolhida a opção1 ou zero se for outra opção escolhida)

tipo2 - texto (aqui retornará o numéro 1, se for escolhida a opção2 ou zero se for outra opção escolhida)

tipo3 - texto (aqui retornará o numéro 1, se for escolhida a opção3 ou zero se for outra opção escolhida)

essa vai ser a tabela1

feito essa tabela, faça outra, vamos chama-la de tabela2, com o campo:

Tp

faça agora um formulário com a tabela1, e, crie 2 botões de comando, 1 pra confirmar a escolha, outro pra ver o gráfico, vamos chamo-los repectivamente de "confirma" e "grafico"... faça agora um sub-formulário com base na tabela2, vamos colocar 3 textbox, serão texto1, texto2, texto3.

nas propriedades do texto1, você coloca fonte de controle: =Soma([tipo1])

nas propriedades do texto2, você coloca fonte de controle: =Soma([tipo2])

nas propriedades do texto3, você coloca fonte de controle: =Soma([tipo3])

criei um gráfico(inserir/gráfico) com base na tabela2 e no campo Tp, neste formulário que você criou, vamos chamo-lo de gráfico21

crie um sub-formulário com a tabela2 neste formulário que você criou

agora vamos para os eventos

ao carregar o formulário

resposta1.enabled=true

resposta2.enabled=true

resposta3.enabled=true

gráfico21.visible=false

ao clicar em resposta1

resposta2=false

resposta3=false

ao clicar em resposta2

resposta1=false

resposta3=false

ao clicar em resposta 3

resposta1=false

resposta2=false

ao clicar no "confirma"

if resposta1=true then

resposta2.enabled=false

resposta3.enabled=false

tipo1=1

tipo2=0

tipo3=0

else

if resposta2=true then

resposta1.enabled=false

resposta3.enabled=false

tipo1=0

tipo2=1

tipo3=0

else

if resposta3=true then

resposta2.enabled=false

resposta1.enabled=false

tipo1=0

tipo2=0

tipo3=1

else

msgbox("escolha uma alternativa")

end if

end if

end if

me.refresh

tabela2_subformulário.setfocus

DoCmd.GoToRecord , , acFirst

tabela2_subformulário!tp=texto1

DoCmd.GoToRecord , , acNext

tabela2_subformulário!tp=texto2

DoCmd.GoToRecord , , acNext

tabela2_subformulário!tp=texto3

ao clicar no "grafico"

me.refresh

tabela2_subformulário.refresh

gráfico21.visible=true

Camarada, eu não fiz esse banco de dados, apenas fui digitando aqui, como acho que seria, por isso pode está faltando algo, mas espero ter dado uma idéia.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...