CHAMANDO OUTRA TELA COM OPCAO ALGUMAS MUDANCAS.

USUARIO.EXCLUIDOS 30/05/2007 11:51:14
#218865
Boa Tarde

Tenho duas telas abaixo.

Onde a questão e que ,pretendo fazer um regra que quando eu selecionar um certa opção no combo automaticamente algumas opções option button sejam desabilitados. "Mas isso e uma regra feito por min"

A questã é ,como faço isso em outra tela ?

Selecionando na primeira tela para mudar na segunda.
USUARIO.EXCLUIDOS 30/05/2007 11:52:00
#218867
Tela 02.

Codigo 

Private Sub cb_e_adi_Click()
      Me.Option.Value = False
      Me.Option2.Value = False
      Me.Option3.Value = False


   If Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Novo Projeto" Then
     'Verifica se a opcao Novo Projeto foi selecionado , se sim a opcao Completo
     'sera abilitado
      Me.Option.Enabled = True
      Me.Option2.Enabled = False
      Me.Option3.Enabled = False
      Me.Option.Value = True
   ElseIf Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Correção de erros" Then
     'Verifica se a opcao Correcao de erros foi selecionado , se sim a opcao
     'especificacao sera abilitado
      Me.Option.Enabled = False
      Me.Option2.Enabled = False
      Me.Option3.Enabled = True
      Me.Option3.Value = True
   End If
      'Verifica se as demais opcoes foram selecionadas, se sim a opcao
      'Completa e Simplificada serao abilitadas.
   If Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Adaptativa" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Consulta-Consultoria" Or _
      Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Departamental" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Emergencial" Or _
      Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Evolutiva" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Infra-Estrutura" Or _
      Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Migração SGD para SSTI" Then
      Me.Option.Enabled = True
      Me.Option2.Enabled = True
      Me.Option3.Enabled = False
      'Me.Option2.Value = True
           
   End If
 End Sub
USUARIO.EXCLUIDOS 30/05/2007 12:57:15
#218886
Cara, não entendi muito bem, mas se for como entendi, você pode fazer assim:

No Form1, por exemplo, se o opt1 estiver marcado, deabilita o Text1 no Form2, se o opt2 estiver marcado desabilita o Text2 (código deve ser colocado no Form1):

With Form2
  If Me.Opt1 = True Then
    .Text1.Enabled = False
  ElseIf Me.Opt2 = True Then
    .Text2.Enabled = False
  End If
  .Show vbModal
End With


é isso, basicamente mostrei que colocando: [nome_form].[objeto] vc tem a referência do objeto no outro form...

Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 30/05/2007 13:42:16
#218904
Cara e isso mesmo ,ou mais ou menos isso.

Tem que criar uma variavel ou algo do tipo ?

Porque coloquei as duas telas acima ,a tela 1 e tela 2.

Se vc reparar na tela 1 tem um combo que dependendo o que eu selecionar automaticamente no form 2 sera inibido algum option button "Isso de acordo com regra que estou fazendo"

Meu detalhe e como começar isso mesmo.

Antes isso era feito em uma unica tela ,so que agora foi dividido ,por esse motivo postei ate o codigo.
USUARIO.EXCLUIDOS 30/05/2007 14:02:27
#218907
Se for como entendi, então vc tem q colocar assim (na tela 01):

Private Sub cb_e_adi_Click()
    With form_da_tela_2
          .Option.Value = False
          .Option2.Value = False
          .Option3.Value = False
    
    
       If Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Novo Projeto" Then
         'Verifica se a opcao Novo Projeto foi selecionado , se sim a opcao Completo
         'sera abilitado
          .Option.Enabled = True
          .Option2.Enabled = False
          .Option3.Enabled = False
          .Option.Value = True
       ElseIf Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Correção de erros" Then
         'Verifica se a opcao Correcao de erros foi selecionado , se sim a opcao
         'especificacao sera abilitado
          .Option.Enabled = False
          .Option2.Enabled = False
          .Option3.Enabled = True
          .Option3.Value = True
       End If
          'Verifica se as demais opcoes foram selecionadas, se sim a opcao
          'Completa e Simplificada serao abilitadas.
       If Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Adaptativa" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Consulta-Consultoria" Or _
          Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Departamental" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Emergencial" Or _
          Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Evolutiva" Or Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Infra-Estrutura" Or _
          Me.cb_e_adi.List(Me.cb_e_adi.ListIndex) = "Migração SGD para SSTI" Then
          .Option.Enabled = True
          .Option2.Enabled = True
          .Option3.Enabled = False
          '.Option2.Value = True
               
       End If
    End With
End Sub


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 30/05/2007 14:40:46
#218912
Meu ficou show ,só que depois de analisar eu pensei.

Só posso deixar que vá para proxima tela ,se o usuario digitou todos os campos.

No lugar da seta coloquei um confirma.

A ultima opção a ser selecionada seria um combobox ,onde depois sa seleção a tecla de confirma seria abilitada e assim iria para proxima tela.

O detalhe está mesmo quando eu selecionar tal opção no combo o option button na proxima tela seria selecionado ou desabilitado conf codigo.

Vc entendeu
USUARIO.EXCLUIDOS 30/05/2007 15:35:45
#218931
Opa além de ter dado erro.

Depois de vc selecionar a opção do combo ,deveria somente ir para outra tela com o optionbutton abilitado corretamente ,depois que eu clicar no botão processa.

Essa parte que não entendo.
USUARIO.EXCLUIDOS 31/05/2007 10:44:19
#219068
Alguem pode opinar ?
Tópico encerrado , respostas não são mais permitidas
Voltar