Private VorCmdExportRecords_Click ()
Auf Störung Goto- cmdTrustedLocation_Err
Me.FileList.SetFocus
DoCmd.Hourglass zutreffend
'Stellt die Warnmeldungen des Zugangs ab
DoCmd.SetWarnings falsch
DoCmd.OpenQuery „qryExportLatestStudentRecords“
DoCmd.OpenQuery „qryExportLatestUniversityApplications“
DoCmd.TransferDatabase acExport, „Microsoft Access“, _
Me.FileList, _
acTable, „tblExportLatestStudentRecords“, „tblExportedLatestStudentRecords“
DoCmd.TransferDatabase acExport, „Microsoft Access“, _
Me.FileList, _
acTable, „tblExportLatestUniversityApplications“, „tblExportedLatestUniversityApplications“
MsgBox („Aufzeichnungen kopierten und exportierten: “ U. DCount („Identifikation“, „tblExportLatestStudentRecords“)), vbInformation, „PFL Export-Kursteilnehmer-Aufzeichnungen“
DoCmd.Hourglass falsch
'Schält die Warnmeldungen des Zugangs rückseitig ein
DoCmd.SetWarnings zutreffend
cmdTrustedLocation_Err:
DoCmd.Hourglass falsch
'Schält die Warnmeldungen des Zugangs rückseitig ein
DoCmd.SetWarnings zutreffend
Wenn Err.Number = 2001 dann
Msg = „Sie klickten den CANCEL Knopf an, als ein Sicherheitsanschlag wurde gemacht.“ u. vbCrLf u. _
„Die Sicherheits-Nachrichtenmitteilung wurde angezeigt, weil Sie haben hinzugefügt den DatenbankVerzeichnisnamen nicht dem VERLÄSSLICHEN POSITIONS-Bereich.“ u. vbCrLf u. _
„Den Datenbanknamen bitte addieren und das Exportverfahren noch einmal versuchen.“
MsgBox Msg, vbExclamation + vbOKOnly, „Export-Verfahren - Sicherheits-warnende Nachricht“
Beenden wenn
Unterseeboot beenden
|