[Resolvido]Grupo de opções

Ola Pessoal

crie um Grupo de Opções com checkbox quadradinhos até tudo de boa grava no campo da tabela (confirmacao)
1 - Sim
2 - Nao

coloquei um select case

case is = "1"
me.confirmacao.value = "Sim"

case is = "2"
me.confirmacao.value = "Nao"

para ficar sim e nao gravados na tabela , desabilitou meu grupo de opcoes nao deixa marcar nada
como resolvo isso

Amigo, qual a necessidade de ficar gravado na tabela as informações literais "Sim" e "Não"?
Eu pergunto isso porque, do ponto de vista da operacionalidade, ficar gravado 0 e 1 é mais "econômico" e, consequentemente, mais rápido.

No seu lugar, eu deixaria gravado -1 (verdadeiro) e 0 (falso) e trabalharia o visual para o usuário, seja no formulário, seja no relatório.

Ola renpv

bom dia

tenho mais campos checkbox minha duvida como eu crio o relatorio com descritos no checkbox

1 - Sim
2 - Não

como gero relatorio com a informação sim ou nao ? e nao 1 e 2

Você pode usar fórmulas nos campos do relatório também.

Código:

=SeImed([confirmacao]=Verdadeiro;"Sim";"Não")

Ola renpv

esta dando esse erro (#Tipo!) , meus valores no campo são 1 para sim e 2 para Não
tenho também mais (6) quadros de opções dois deles é de segunda á domingo onde começa 1 - segunda e termina no domingo 7

tem como me ajudar nesses pois tenho que gerar o relatório com as informações de todos

Manda uma parte do banco com os formulários e relatórios que eu te ajudo

Ola renpv

segue arquivo com relatório.

obrigado

Não aparece pra mim

Ola renpv

segue arquivo novamente.

Me intrometendo...
Bom seria deixar o Opt com seus valores, e somente no relatório ou form que deseja mostrar "Sim/Não" criar um campo de texto tipo "TxtOpcao" com uma instrução IF ao carregar o relatório como:

Código:


If (seuGrupodeOpcoes).value = -1 then
Me.TxtOpcao.value = "Sim"
else
Me.TxtOpcao.value = "Não"
end if


Ou utilizar para mais valores o Case...

De uma forma bem básica, claro, você adapta com seu conhecimento que deve ser maior do que o meu ok?

Espero ter ajudado.

Ola Bondan

tenho um campo na tabela que eu gravo os valores 1 e 2 com nome de Confirmação
meu relatório tem esse campo

if me.confirmacao.value = 1 then

me.confirmacao.value = "Sim"

end if
end sub

mas nao funcionou

Fiz o seguinte no seu Frm_CadControle

Código:


Private Sub Form_AfterUpdate()
        Select Case Acionamento_Start_StopModulo
            Case "1"
            Me.Confirmacao.Value = "Sim"
        End Select
End Sub


Então gravou, porém o teu campo "Confirmacao" não pode escrever textos, pois à pesar dele aceitar, ao abrir ou salvar novamente o form ele vai gerar um erro, pois o controle "Acionamento_Start_StopModulo" só entende números (1,2,3,4...), porém estará gravado no campo um valor texto.

O que tens de fazer é criar um campo vinculado normal, porém talvez invisível ao lado do grupo de opção para guardar o texto, algo como "TxtConfirmacao". Lembrando que este campo também deve estar na tabela para ser guardado para posteridade.

Desta forma o código "no form" ficaria:

Código:


Private Sub Form_AfterUpdate()
        Select Case Acionamento_Start_StopModulo
            Case "1"
            Me.TxtConfirmacao.Value = "Sim"
            Case "2"
            Me.TxtConfirmacao.Value = "Não"
        End Select
End Sub


Desta forma você pode selecionar nos "Select" e "Grupo de opções" e ter sempre uma amostra em texto no campo "TxtConfirmacao" para usar nas pesquisas e relatórios.

Também serve para os demais grupos...

Espero ter ajudado.

Abraço.

Ola bondan

muito obrigado a todos nesse tópico , Bondan deu certinho a sua dica de colocar o código no formularo.

Que bom colega, fico feliz...
Conta com o pessoal sempre.
Abraço!