[Resolvido]Exportar dados com texto delimitado

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

Luís Antunes

Luís Antunes: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 394
Registrado : 05/04/2016

Mensagem nº1

[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