Utilizei este código aquando do do Access 97 a partir daí não funcionou mais.
alguém poderia explicar o porquê?
Luís Antunes
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