none
Dúvida de VBA para iniciantes - Chamar uma Variavel do userform1 para um modulo é possivel? RRS feed

  • Pergunta

  • Pessoal, sou novo no VBA e tenho uma dúvida que já faz duas semanas que estou apanhando.

    Preciso chamar uma variável que foi criado no userform, exemplo:

    USERFORM:

    Public Sub CommandButton1_Click()
           
    Login = TextUsuario
    Senha = TextSenha

    End sub

    MODULO 1:

    Public Sub ConnectionOracle()
        
        Oracle.Show
        
        Login = userform.TextUsuario
        Senha = userform.TextSenha

        Set Cn = New ADODB.Connection
        Cn.CursorLocation = adUseClient
        Cn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; " & _
        "CONNECTSTRING=p00dw1;uid=" & Login & " ;pwd= " & Senha & ";"
        Cn.Open
      
    End Sub

    Porém ele não reconhece está com valor = 0, já tentei de todas formas e quando volta para o modulo vem zero, já coloquei tudo como Public e ainda assim não vem. 

    Alguém pode me dizer onde estou errando?

    obrigado.

    segunda-feira, 29 de outubro de 2018 14:32

Respostas

  • Luciano,

    coloque a variável publica no módulo1:

    Public oracleUser As String
    Public oracleSenha As String
    
    Sub connectionOracle()
      
      MsgBox oracleUser & vbNewLine & oracleSenha
      
    
    End Sub
    

    e no UserForm altera-a:

    Private Sub CommandButton1_Click()
      
      oracleUser = txtUsuario.Value
      oracleSenha = txtSenha.Value
      
      connectionOracle
      
    End Sub
    Abraço!


    Natan

    • Marcado como Resposta LucianodaMata segunda-feira, 29 de outubro de 2018 16:44
    segunda-feira, 29 de outubro de 2018 16:21

Todas as Respostas

  • Luciano,

    coloque a variável publica no módulo1:

    Public oracleUser As String
    Public oracleSenha As String
    
    Sub connectionOracle()
      
      MsgBox oracleUser & vbNewLine & oracleSenha
      
    
    End Sub
    

    e no UserForm altera-a:

    Private Sub CommandButton1_Click()
      
      oracleUser = txtUsuario.Value
      oracleSenha = txtSenha.Value
      
      connectionOracle
      
    End Sub
    Abraço!


    Natan

    • Marcado como Resposta LucianodaMata segunda-feira, 29 de outubro de 2018 16:44
    segunda-feira, 29 de outubro de 2018 16:21
  • Valeu Natan, perfeito, colocando como Value e Public no modulo1 funcionou. Muito obrigado. Abs.

    segunda-feira, 29 de outubro de 2018 16:44