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

2 participantes

    [Resolvido]Exportar dados com texto delimitado

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Exportar dados com texto delimitado Empty [Resolvido]Exportar dados com texto delimitado

    Mensagem  Luís Antunes 5/11/2019, 22:46

    Utilizei este código aquando do do Access 97 a partir daí não funcionou mais.
    alguém poderia explicar o porquê?

    Código:
    Function Exportar() ' Exportar para disquete
    On Error GoTo Exportar_Err
    Dim strMsg As String
    Screen.MousePointer = 11 'muda cursor para ampulheta.
    DoCmd.TransferText acExportDelim, "", "tblIdentidade", "A:\Identidade.txt", True, "" 'Transfere para disquete
    On Error GoTo Exportar_Err
    DoCmd.TransferText acExportDelim, "", "tblProcesso", "A:\Processo.txt", True, "" 'Transfere para disquete
    On Error GoTo Exportar_Err
    DoCmd.OpenForm "BackupEnviar", acNormal, "", "", , acNormal 'Abre Form de Aviso
    Exportar_Exit:
    Screen.MousePointer = 0 'volta o cursor para o normal.
    Exit Function

    Exportar_Err:
    strMsg = "MsgBox(""POSSÍVEIS CAUSAS:@Falta de espaço no disco, ou não há disco no drive. " _
    & "@Clique em OK para sair.""," _
    & vbInformation _
    & ",""ERRO AO EFETUAR BACKUP..."")"
    Eval strMsg
    Resume Exportar_Exit
    End Function

    Function Importar() ' Importar
    On Error GoTo Importar_Err
    Dim strMsg As String
    Screen.MousePointer = 11 'muda cursor para ampulheta.
    Dim db As Database
    Set db = CurrentDb()
    db.Execute ("Delete * FROM tblIdentidade") 'Limpa a tabela antes de inserir dados
    db.Execute ("Delete * FROM tblProcesso") 'Limpa a tabela antes de inserir dados

    DoCmd.TransferText acImportDelim, "", "tblIdentidade", "A:\Identidade.txt", True, "" 'Importa do disquete
    DoCmd.TransferText acImportDelim, "", "tblProcesso", "A:\Processo.txt", True, "" 'Importa do disquete
    DoCmd.OpenForm "BackupRestaurar", acNormal, "", "", , acNormal
    Importar_Exit:
    Screen.MousePointer = 0 'volta o cursor para o normal.
    Exit Function
    Importar_Err:
    strMsg = "MsgBox(""POSSÍVEIS CAUSAS:@Disco não é o do BACKUP, ou não há disco no drive. " _
    & "@Clique em OK para sair.""," _
    & vbInformation _
    & ",""ERRO AO RESTAURAR BACKUP..."")"
    Eval strMsg
    Resume Importar_Exit
    End Function

    Luís Antunes
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Exportar dados com texto delimitado Empty Re: [Resolvido]Exportar dados com texto delimitado

    Mensagem  ahteixeira 5/11/2019, 23:46

    Olá Luis Antunes,

    O tratamento de erros do código que partilhou não é o mais adequado, deveria ser:

    Código:
    MsgBox Err.Number & "-" & Err.Description

    e assim obtemos a resposta à questão:
    [Resolvido]Exportar dados com texto delimitado 097

    Abraço
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Exportar dados com texto delimitado Empty Re: [Resolvido]Exportar dados com texto delimitado

    Mensagem  Luís Antunes 7/4/2021, 20:06

    Boas

    Adaptei um Módulo de João Paulo para comprimir em InZip

      Data/hora atual: 4/8/2021, 13:05