none
Erro 3343 no Excel 2016 Vba. Conexao com o banco de dados RRS feed

  • Pergunta

  • Estou criando um sistema com Vba no excel 2016 utilizando o o Access como banco de dados.

    digitei todo esse código:

    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.accdb")
        IsConected = True
    Else
        Conexao.Close
        Set Conexao = Nothing
        IsConected = False

    End If
    End Function

    _____________________________________________________________

    Public Acao As String
    Dim rsEmpresa As Recordset
    _____________________________________________________________
    Private Sub UserForm_Initialize()
        Panel Toolbar1, frmpadrao.ImageList1


        Conectar True
        Set rsEmpresa = Conexao.OpenRecordset("emp_empresa", dbOpenTable)
        Call Botoes(Toolbar1, Acao, rsEmpresa.RecordCount)

    End Sub

    ____________________________________________________________________

    Porem quando Vou iniciar o formulário apresenta o erro 3343

    que diz: erro de tempo de execução '3343'

    Formato de banco de dados 'd\3\DB.accdb' não reconhecido.

    Mas pasta esta D:\3\

    e o nome do arquivo é DB.accdb


    quarta-feira, 11 de abril de 2018 13:06