none
Erro em tempo de execução 3024 could not find file RRS feed

  • Pergunta

  • quando dou play  no meu userform criado ele dá erro .

    Erro em tempo de execução 3024

    could not find file (depois coloquei o caminho)

    dados que coloquei no modulo.

    Public isConected As Boolean
    Public conexao As Database

    Public Function conectar(opt As Boolean)





    If opt = True Then
        If isConected Then
        Exit Function
        End If
        Set conexao = OpenDatabase(ActiveWorkbook.Path & "\Db.mdb")


        isConected = True

    Else
    conexao.Close

      Set conexao = Nothing
    isConected = False


    End If



    End Function

                    
    sexta-feira, 15 de julho de 2016 05:13