MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Exportar dados com texto delimitado

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Exportar dados com texto delimitado Empty Exportar dados com texto delimitado

    Mensagem  Luís Antunes em 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 100%

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

    Exportar dados com texto delimitado Empty Re: Exportar dados com texto delimitado

    Mensagem  ahteixeira em 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:
    Exportar dados com texto delimitado 097

    Abraço

      Data/hora atual: 15/11/2019, 01:13