[Resolvido]Prencher automaticamente

olha pessoal,tem uma formulario com o controle de guia,nessa guia tem 2 aba,grupo1 e Final,e nesse formulario tem categorias com pergunas para responder SIM e NÃO,no meu formulario do grupo1 em cada categoria tem 3 perguntas para cada tema relacionado,e no grupo final so tem as categorias das perguntas com as opçoes sim e não,queria saber se tem como quando uma pessoal preenche o formulario do grupo 1 com com a Resposta Não para qualquer pergunta, na aba final a resposta tambem fica Não.porque tenho que fazer um controle dos municipios entao se eles colocarem nao em qualquer pergunta no final do relatorio eu quero que preencha automaticamente Não nas categorias.

Sem ver a estrutura fica meio complicado de visualizar a questão. Existem algumas saídas para a realização do feito, como por exemplo, analisar o nomes dos controles. Se terminam com uma sequência de número sem furo, isso pode ser analisado na questão. Se colocar um valor em comum na opção Marca dos controles tambem resolve. Se forem poucos os controles, pode usar os nomes de todos eles, algo como:

If Me.Controle1 = 1 And Me.Controle2 = 1 And Me.Controle3 = 1 And Me.Controle4 = 1 And Me.Controle5 = 1 Then
Me.ÚltimoControle = "Não"
Else
End If

Vou colocar meu banco de dados para vs enteder,no banco de dados tem grupo1 e final,no grupo um tem uma categoria com o nome Estrutura legal com 4 perguntas,e na aba final tem somente as categorias umas delas tem estrutura legal,quando uma pessoa responder nas perguntas Não,quero que preenche automaticamente Não tambem na estrutura Final,agora se todas as perguntas tiver sim,quero que fica Sim,se tiver somente uma Não quero que fica não..


Sera que vcs entedeu

ta ai o link

http://dl.dropbox.com/u/36734765/Descentraliza%C3%A7%C3%A3o.mdb

Você quer avaliar apenas as opções da terceira aba? Se todas forem Não, colocar a última opção como Não?

quero que valiem assim,se um uma pergunta estiver marcado nao ele marca tambem nao no final,exemplo se na estrutura legal tiver 3 respondida sim e 1 não,quero que na aba final na estrutura legal ela preenche automaticamente não,e se tiver todas sim ele preencha sim.

Deu para enteder?

Então vamos lá, para ficar bem esclarecido: na primeira aba de nome "Grupo 1", tem uma seção de nome "Estrutura legal". Essa seção contem 4 combos. Então deverão ser avaliadas essas 4 combos. Se todas forem Sim, coloca Sim na primeira combo da aba Final. É isso mesmo? Se for, tente assim:

If Me.Combinacao55 = "Sim" And Me.Combinação59 = "Sim" And Me.Combinação62 = "Sim" And Me.Combinação66 = "Sim" Then
Me.Combinação340 = "Sim"
Else
Me.Combinação340 = "Não"
End If

Seria interessante colocar isso em um função e chamar essa função no evento "Após atualizar" de cada uma das 4 combos. Seria algo assim, no topo do módulo do formulário por exemplo, logo após a primeira linha:

Private Function PreencheCombo()

If Me.Combinacao55 = "Sim" And Me.Combinação59 = "Sim" And Me.Combinação62 = "Sim" And Me.Combinação66 = "Sim" Then
Me.Combinação340 = "Sim"
Else
Me.Combinação340 = "Não"
End If

End Function

No evento "Após atualizar" de cada uma das 4 combos:

Call PreencheCombo

A última combo, a Combinação340, pode colocá-la desabilitada para não permitir alteração.

Obrigo deu Certo,kra vc e o melhor....