ACC2000: Nasýl kapatma kodu "Tüm Hatalarda Kes" seçeneðini kapatýn...

Bu makalede, üzerindeki tüm hatalarý Kes seçeneðini Visual Basic for Applications kodu, yordamlar, hata yüklemeyi kesintiye uðratmasýný eriþmelerini engellemek nasýl gösterir.

Tüm hatalar, kesme seçeneði Microsoft Access'te açýk olan bir kullanýcý veritabanýný paylaþýrsanýz bile kodunuzu yordamlar, hata içeriyorsa, bir çalýþtýrma hatasý durdurmak ve hata içeren modül'ý açmak, kodunuz neden olur. Kullanýcýlarýn kendi çalýþma zamaný hatalarý iþlemek için istemiyorsanýz, kodunuz çalýþýrken üzerindeki tüm hatalarý kesme seçeneði askýya alma yordamlarý oluþturabilirsiniz.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Örnek yordamlar, askýya alma ve "Tüm Hatalarda Kes" seçeneðini Sürdür

Aþaðýdaki örnek yordamlarda, kendi veritabanýnda üzerindeki tüm hatalarý kesme seçeneði'geçici olarak askýya almak için kullanabilirsiniz. Bu yordamlar çalýþtýðýný, üzerindeki tüm hatalarý kesme seçeneði ayarlanmýþ olup olmadýðýný unutmayýn. Çalýþma zamaný hatalarý risklere karþý ek koruma olarak kodunuzda bunlarý içerebilir:

1. Bir modül oluþturun ve Tanýmlamalar bölümüne aþaðýdaki satýrý yazýn:

   Dim varOldBOAEOptions As Variant
   					

2. Aþaðýdaki yordamlar yazýn:

   '-----------------------------------------------------------------
   ' Save the current setting for the "Break on All Errors" option
   ' Turn off the "Break on All Errors" option.
   '-----------------------------------------------------------------
   
   Public Sub SuspendBreaks()
   
      varOldBOAEOptions = GetOption("Error Trapping")
      SetOption "Error Trapping", 2
   
   End Sub
   
   '-----------------------------------------------------------------
   ' Restore the "Break on All Errors" settings that were temporarily
   ' suspended by the SuspendBreaks procedure.
   '-----------------------------------------------------------------
   
   Public Sub ResumeBreaks()
   
      If Not IsEmpty(varOldBOAEOptions) Then _
        SetOption "Error Trapping", varOldBOAEOptions
   
   End Sub
   					

3. Modül basErrHandling kaydedin.
4. Kesme üzerindeki tüm hatalarý "seçeneði deðil kodunuzun çalýþmasýný kesintiye, kodunuzu baþýnda SuspendBreaks yordamýný çaðýrmak ve sonunda ResumeBreaks yordamýný çaðýrmak. emin olmak istediðinizde Örneðin:

   Function MyCodeModule()
      SuspendBreaks
      On Error GoTo MyCodeModule_Err
   
      ' Add your code here.
   
   MyCodeModule_Exit:
      ResumeBreaks
      Exit Function
   
   MyCodeModule_Err:
   
      ' Add your error handling routine here.
   
      Resume MyCodeModule_Exit
   End Function
   					

Örneðin, "Tüm Hatalarda Kes" farklý Ayarlarý sonuçlarý gösterme

A?a??daki örnek, hata yordamlar içeren kodu Kes açýk tüm hatalarý seçeneði açýk çalýþýrken ne olacaðýný gösterir.

Not: Bu makaledeki örnek kod Microsoft Data Access Objects kullanýr. Bu kodun düzgün çalýþmasý için Microsoft DAO 3.6 Nesne Kitaplýðý'na baþvurmalýsýnýz. Bunu yapmak için <a0></a0>, Visual Basic Düzenleyicisi'nde Araçlar menüsünden Baþvurular ' ý týklatýn ve sonra Microsoft DAO 3.6 Nesne Kitaplýðý</a0> onay kutusunun seçili olduðundan emin olun.

1. Microsoft Access'i baþlatýn ve MyError.mdb adlý yeni bir boþ veritabaný oluþturun.
2. 1 Ile 3, askýya alma ve üzerindeki tüm hatalarý kesme seçeneði Sürdür yordamlarý oluþturmak için önceki bölümdeki adýmlarý izleyin.
3. Herhangi bir tabloyu veya sorguyu Tasarým görünümünde dayanan yeni bir form oluþturun:

      Form: frmTestErrors
      ----------------------------------------------------
      Caption: Test Error Handling
   
      Text box:
         Name: txtUName
      Text box:
         Name: txtPwd
      Command button:
         Name: cmdOK
         Caption: Without Turning Off Break On All Errors
         OnClick: [Event Procedure]
      Command button:
         Name: cmdOKBreakOff
         Caption: Turning Off Break On All Errors
         OnClick: [Event Procedure]
      Command button:
         Name: cmdCancel
         Caption: Cancel
         OnClick: [Event Procedure]
   					

4. Görünüm menüsünde kodu ' ý týklatýn ve sonra aþaðýdaki yordamlar yazýn:

   '---------------------------------------------------------------
   ' Test UserName and Password.
   ' Returns:
   '   True if UserName and Password are valid.
   '   False if UserName and Password are invalid.
   ' Displays corresponding error message.
   '-------------------------------------------------------------
   
   Public Function ChkPwd(uid As String, strPwd As String)
      On Error GoTo badPwd
      Dim ws As DAO.Workspace
      Set ws = DAO.DBEngine.CreateWorkspace("TestPWD", uid, strPwd)
      MsgBox "Your password is correct, " & uid
      ChkPwd = True
   
   exitChkPwd:
      Exit Function
   
   badPwd:
      MsgBox "Not the right UserName or Password, " & uid & _
        ", if that is your real name!"
      ChkPwd = False
      Resume exitChkPwd
   End Function
   
   Private Sub cmdOK_Click() ' Without "Break on All Errors" turned off.
      Call ChkPwd(Me![txtUName] & "", Me![txtPwd] & "")
   End Sub
   
   Private Sub cmdOKBreakOff_Click()
      SuspendBreaks  ' Turn off "Break on All Errors."
      Call ChkPwd(Me![txtUName] & "", Me![txtPwd] & "")
      ResumeBreaks   ' Reset "Break on All Errors."
   End Sub
   
   Private Sub cmdCancel_Click()
      DoCmd.Close
   End Sub
   					

5. Araçlar menüsünden Seçenekler ' i týklatýn.
6. Seçenekler iletiþim kutusundaki Genel sekmesini týklatýn ve sonra da <a2>üzerindeki tüm hatalarý Kes</a2>'ý týklatýn. Tamam ' ý týklatýn.
7. Dosya menüsünde Kapat ve Microsoft Access'e dön'ý týklatýn.
8. FrmTestErrors formu kaydedin ve kapatýn.
9. FrmTestErrors formu Form görünümünde açýn.
10. Kullanýcý1 txtUName kutusuna ve parolam txtPwd kutuya yazýn. Olmadan dönüþtürme kapalý Kes açýk tüm hatalar ' ý týklatýn ve karþýn kod hatalarýný iþleme unutmayýn aþaðýdaki çalýþma zamaný hata iletisini alýrsýnýz:
    Çalýþma zamaný hatasý '3029':
    Olmayan bir geçerli bir hesap adý veya parola.
    Son hata iletisine yanýt'ý týklatýn.
11. Açma sonu tüm hatalar'On [NULL]'Kapat [NULL]'ý týklatýn. Yordamý, hata, aþaðýdaki iletiyi üreten dikkat edin:
    Gerçek adýnýzý ise, deðil doðru bir kullanýcý adý veya parola, bu, Kullanýcý1!

GetOption ve SetOption yöntemleri, Visual Basic Düzenleyicisi'nde hakkýnda daha fazla bilgi için Yardým menüsünde Microsoft Visual Basic Yardýmý ' ný týklatýn, GetOption, SetOption yöntemi, Office Yardýmcýsý'na veya Yanýt Sihirbazý'ný yazýn ve sonra döndürülen konularý görüntülemek için Ara ' yý týklatýn.