Private Okręt podwodny CmdExportRecords_Click ()
Na Błąd Rozpoczynający cmdTrustedLocation_Err
Me.FileList.SetFocus
DoCmd.Hourglass Prawdziwy
'Obracać z the Dojazdowy ostrzegawczy wiadomość
DoCmd.SetWarnings Fałszywy
DoCmd.OpenQuery "qryExportLatestStudentRecords"
DoCmd.OpenQuery "qryExportLatestUniversityApplications"
DoCmd.TransferDatabase acExport, "Microsoft Przystępować", _
Me.FileList, _
tblExportedLatestStudentRecords, "tblExportLatestStudentRecords", "tblExportedLatestStudentRecords"
DoCmd.TransferDatabase acExport, "Microsoft Przystępować", _
Me.FileList, _
tblExportedLatestUniversityApplications, "tblExportLatestUniversityApplications", "tblExportedLatestUniversityApplications"
MsgBox ("Rejestr Kopiować i Eksportować: " & DCount ("ID", "tblExportLatestStudentRecords")), vbInformation, "PFL Eksportowy Studencki Rejestr"
DoCmd.Hourglass Fałszywy
'Obracać the Dojazdowy ostrzegawczy wiadomość z powrotem dalej
DoCmd.SetWarnings Prawdziwy
cmdTrustedLocation_Err:
DoCmd.Hourglass Fałszywy
'Obracać the Dojazdowy ostrzegawczy wiadomość z powrotem dalej
DoCmd.SetWarnings Prawdziwy
Jeżeli Err.Number = 2001 Wtedy
Msg = "Ty klikać the ODWOŁYWAĆ Guzik gdy ochrona zawiadomienie wystawiać." & vbCrLf & _
"The Ochrona Zawiadomienie wiadomość wystawiać ponieważ ty biedak dodawać the baza danych adresowy imię the ZAUFANY LOKACJA teren." & vbCrLf & _
"Zadawalać dodawać the baza danych imię i próbować the eksportowy procedura znowu."
MsgBox Msg, vbExclamation + vbOKOnly, "Eksportowy Procedura - Ochrona Ostrzeżenie Zawiadomienie"
Kończyć Jeżeli
Kończyć Okręt podwodny
|