Transformando Sim/Não em gráficos

[Ricmendes]

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.

[MrMALJ]

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.

[Ricmendes]

Olá muito obrigado pela ajuda caro colega.

Mas me tire uma outra dúvida, se fosse três opções quais como seria o código??

[Coteco]

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....

[Guest --rmendes --]

Valeu cara pela ajuda!! Mas como poderia transformar isso num gráfico?

[GLEIDSONMACEDO]

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.