MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro em Tempo de Execução 3049

    avatar
    cassio.melnec
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/08/2012

    [Resolvido]Erro em Tempo de Execução 3049 Empty [Resolvido]Erro em Tempo de Execução 3049

    Mensagem  cassio.melnec 24/8/2012, 10:24

    Bom dia pessoal!

    estou executando o código abaixo que insere registros de um txt para uma tabela vinculada no meu banco, porém ele aparece a mensagem de erro em tempo de execução, e ainda informa que : "Não é possivel abrir o banco de dados. Ele pode não ser um banco de dados que o seu aplicativo reconheça.

    alguém pode me ajudar?


    Function ImportaRel(caminho As String)

    Dim db As Database
    Dim rs As Recordset
    Dim i As Integer
    Dim lnTexto As String
    Dim TRN As String
    Dim DataRel As String

    Close #1

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("TB_INVENTARIO_D")

    lnTexto = caminho & "\ARD163-0.txt"

    Open lnTexto For Input As 1#

    Do While Not EOF(1)

    If Mid(lnTexto, 98, 9) = "FILE DATE" Then
    DataRel = Mid(lnTexto, 108, 10)
    End If

    If Mid(lnTexto, 1, 3) = "000" Then
    rs.AddNew

    rs.Fields("DataRelatorio") = DataRel
    rs.Fields("CONTA") = Right("000" & Mid(lnTexto, 1, 19), 19)
    'RS.Fields("CONTA") = Mid(lnTexto, 1, 16) & "000"
    rs.Fields("DataTA") = Mid(lnTexto, 23, Cool
    rs.Fields("DataCompra") = Mid(lnTexto, 33, Cool
    rs.Fields("Valor") = Mid(lnTexto, 49, 14)
    rs.Fields("PT") = Mid(lnTexto, 65, 1)
    rs.Fields("Plano") = Mid(lnTexto, 69, 5)
    rs.Fields("Estabelecimento") = Mid(lnTexto, 75, 24)
    rs.Fields("MCC") = Mid(lnTexto, 103, 4)
    rs.Fields("DiasA") = Mid(lnTexto, 113, 3)

    Line Input #1, lnTexto
    rs.Fields("NumeroCartao") = Right("000" & Mid(lnTexto, 1, 19), 19)
    rs.Fields("ReferenceNumber") = Mid(lnTexto, 23, 23)
    rs.Fields("POS") = Mid(lnTexto, 52, 2)
    rs.Fields("TXN") = Mid(lnTexto, 59, 3)
    rs.Fields("Descricao") = Mid(lnTexto, 66, 36)
    rs.Fields("B1") = Mid(lnTexto, 112, 1)
    rs.Fields("BC") = Mid(lnTexto, 116, 1)
    rs.Update
    End If

    Line Input #1, lnTexto
    Loop

    Close (1)

    rs.Close

    End Function
    avatar
    cassio.melnec
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/08/2012

    [Resolvido]Erro em Tempo de Execução 3049 Empty Compactar e Reparar

    Mensagem  cassio.melnec 24/8/2012, 10:48

    Não descobri o porque acontece o erro, mas quando eu compacto e reparo o banco onde esta a tabela vinculada, o código não apresenta erro!

      Data/hora atual: 26/1/2022, 21:11