locked
Duvida - Como Chamar outras SUBs RRS feed

  • Pergunta

  • Boa Tarde,

     

    Estou com a seguinte dúvida agora , eu tenho 3 forms , 2 em que o usuário ira colocar os  dados  no que sobrou vou fazer um tela para login senha , quero que ele chegue a senha do usuario e o login dele caso a senha esteja igual e o login tbm ele joga para um outra tela para escolher entre os dois formularios depois ele é direcionado para o formulário que ele escolheu...

     

    como faço para chamar uma função dentro de outra função em um evento click?:

     

     

    Obrigado,

    quarta-feira, 23 de abril de 2008 20:20

Respostas

  • Para chamar formulário só usar o show

     

    Ex.

    Code Snippet
    Userform1.Show

     

     

     

    Era isso?

    quinta-feira, 24 de abril de 2008 14:39

Todas as Respostas

  • Para chamar outras subs basta escrever o nome delas no evento click

     

    Ex.

    Code Snippet

    Private Sub CommandButton1_Click()

    NomedaSub

    end sub

     

     

    ou

     

    Code Snippet

    Private Sub CommandButton1_Click()

    Call NomedaSub

    End Sub

     

    ou

     

    Code Snippet

    Private Sub CommandButton1_Click()

    Application.Run "NomedaSub"

    end sub

     

     

    Era isso mesmo??
    quarta-feira, 23 de abril de 2008 20:50
  • bom usei os metodos call e application.run não consegui .

    Eu tenho os forms chamando primeiro um modulo, este eu consigo chamar, mas nao consigo chamar os formularios que são os objetos...

     

    Obigado

     

    quinta-feira, 24 de abril de 2008 14:28
  • Para chamar formulário só usar o show

     

    Ex.

    Code Snippet
    Userform1.Show

     

     

     

    Era isso?

    quinta-feira, 24 de abril de 2008 14:39
  •  

    Deu certo, mas agora eu nao consigo usar o .show em uma evento de click no botão.

     

    como posso fazer um if com clique de botoes dentro de um Modulo?

    quinta-feira, 24 de abril de 2008 15:08
  • Para fazer um If você precisa ter uma condição primeiro...Qual seria a sua condição??

    Ex..

     

    Code Snippet

    If txt_senha="senha" then

    userform1.show

    else

    userform2.show

    end if

     

     

     

    quinta-feira, 24 de abril de 2008 15:14
  • Tentei fazer um Select dentro do modo que chamei de "abrir" para que se  eu clicar em um das opções ele vai chamar um form diferente

     

    de uma olhada no codigo

    eu nao sei o que colocar  na parte em vermelho

    Cada Palavra depois do simbolo de igual é um CommandButton dentro de um form chamado "EscolhaForm"

     

     

    Code Snippet

    Private Sub Abrir()
       
        Select Case CommandButton(True, False)
       
            Case Is = Projeto: Projeto.Show
            Case Is = Melhorias: Melhorias.Show
            Case Is = GerarRelatórios: GerarRelatórios.Show
            Case Is = Sair: Sair.Show
        End Select
       
       
    End Sub

     

     

     

    Obrigado,

    Ítalo Bezerra Bertunes

    quinta-feira, 24 de abril de 2008 15:28
  • Agora entendi o que você quer fazer..Seria mais fácil colocar o código dentro do botão, mas vamos lá..

     

     

    Code Snippet

    Private Sub Abrir()

     Select Case UserForm1.ActiveControl.Name
            Case "Projeto"
             projeto.Show 

            Case "Melhorias"

             Melhorias.show   
     End Select
           
    End Sub

     

     

    Qualquer dúvida post denovo..
    quinta-feira, 24 de abril de 2008 17:28
  • entao em cada botao eu deixo assim

    " Application.Run "Abrir"?

     

    aonde eu altero  no userfom1 ou na parte do name?

    quinta-feira, 24 de abril de 2008 17:37
  •  

    Sim...Application.Run "Abrir" , mas pode deixar somente Abrir em cada botão e sem aspas...

    Para alterar o name aperte F4 em cima do botão ou userform que aparecerá as propriedades..

    quinta-feira, 24 de abril de 2008 17:45
  • Tira o private da sua sub...

    quinta-feira, 24 de abril de 2008 17:48
  • entendi.. obrigado

    quinta-feira, 24 de abril de 2008 17:59