Pytanie : Dlaczego Procedura Bieg po Wiadomość Pudełko Wystawiać

Dlaczego I zatrzymywać procedura od bieg gdy błąd zdarzać się i wiadomość pudełko wystawiać?

I pisać eksport rejestr procedura.  Jeżeli the rejestr być eksportować baza danych który być w zaufany lokacja I polubić the procedura całkowicie (i.e nie eksportować the rejestr).  

At teraźniejszość, gdy the ochrona zawiadomienie wystawiać i the cancel guzik naciskać, wiadomość pudełko wystawiać informować the użytkownik że musieć ten baza danych imię i adresowy ścieżka the "zaufany lokacja" ich baza danych.  I wtedy chcieć the procedura całkowicie ale przy teraźniejszość gdy the "ZADOWALAJĄCY" guzik naciskać the rejestr być wciąż exported.

Any pomoc być bardzo mocno appreciated.

 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

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

Odpowiedź : Dlaczego Procedura Bieg po Wiadomość Pudełko Wystawiać

Tak… być the przeniesienie *really*?

Ono patrzeć jak the zaufany info być tutaj dla Dostęp 2007, jednakowy dla A2010.

ono patrzeć tak jakby tam  być Archiwum położenie:
[HKEY_CURRENT_USER \ Oprogramowanie \ Microsoft \ Biuro \ 12.0 \ A ccess \ Ochrona \ TrustedLocations]

Nie na mój A2010 system teraz, ale I widzieć że klucz… i tam  być lista TL który dodawać - jeśli wogóle.  W Ten Sposób, ty potrzebować ten Reg klucz… i jeżeli 1) the klucz istnieć, 2) jeżeli w ten sposób, być the cel falcówka spisywać, 3) jeśli nie, the wykonywać the przeniesienie.

Tam  być API wezwanie Reg info…

mx
Inne rozwiązania  
 
programming4us programming4us