ACC2000: How to Access veritabanlarý, Denetim baðlý form hareketleri

Bu makalede, veri eriþim nesneleri (DAO) (iliþkili bir form) ' (Jet) Microsoft Access veritabanýndaki bir tabloya dayalý bir form denetimi hareketlerin nasýl gösterir.

Genellikle bir geliþtirici veya form üzerindeki veri deðiþikliklerini hiçbiri veritabaný uygulama commit tüm kullanýcýlarý sorgulayabilmesi gerekir. <a1>Sürüm</a1> 2000'den önceki Access sürümlerinde, iþlemler içinde iliþkili formlarda yaptýðýnýz veri deðiþiklikleri kapsülleyen deðil. Bu, tüm hareketleri iliþkili formlarda, yalnýzca Microsoft Access için eriþilebilir ayrý bir çalýþma alanýnda iþlenmiþ nedeniyle oldu.

Microsoft Access 2000'de, ancak, ve veri eriþim nesneleri (DAO) yeni bir birleþimi, Recordset özelliði, bu beceriyi saðlamak üzere form. Bu makaledeki örnekte, kullanýcýnýn kullanýcý formu kapattýðýnda, form verilerde yapýlan tüm deðiþiklikler kaydedilmeye sorulmasýný saðlamak istediði varsayar. O anda kullanýcý, tüm deðiþiklikleri veya deðiþikliklerin hiçbiri ya da kayýt.

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. 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.

Not: Bu örnek, tek bir ana form ile çalýþmak üzere tasarlanmýþtýr. Baðlantýlý bir alt form ile çalýþmak üzere tasarlanmamýþtýr.

Hareketler baðlý formlarda denetleme

1. Northwind.mdb örnek veritabanýný açýn.
2. Müþteriler tablosuna dayalý yeni bir form oluþturun.
3. Tüm alanlarý, form <a1>ayrýntý</a1> bölümüne ekleyin.
4. Görünüm menüsünde kodu modüle formunun görüntülemek için týklatýn ve sonra da aþaðýdaki kodu modüle ekleyin:

   Option Compare Database
   Option Explicit
   
   Private boolFrmDirty As Boolean
   Private boolFrmSaved As Boolean
   
   Private Sub Form_AfterDelConfirm(Status As Integer)
       If Me.Saved = False Then Me.Saved = (Status = acDeleteOK)
   End Sub
   
   Private Sub Form_AfterUpdate()
       Me.Saved = True
   End Sub
   
   Private Sub Form_Delete(Cancel As Integer)
       If Me.Dirtied = False Then DBEngine.BeginTrans
       Me.Dirtied = True
   End Sub
   
   Private Sub Form_Dirty(Cancel As Integer)
       If Me.Dirtied = False Then DBEngine.BeginTrans
       Me.Dirtied = True
   End Sub
   
   Private Sub Form_Open(Cancel As Integer)
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Set db = CurrentDb
       Set rs = db.OpenRecordset("SELECT * FROM Customers", dbOpenDynaset)
       Set Me.Recordset = rs
   End Sub
   
   Private Sub Form_Unload(Cancel As Integer)
       Dim msg As Integer
       If Me.Saved Then
           msg = MsgBox("Do you want to commit all changes?", vbYesNoCancel)
           Select Case msg
               Case vbYes
                   DBEngine.CommitTrans
               Case vbNo
                   DBEngine.Rollback
               Case vbCancel
                   Cancel = True
           End Select
       Else
           If Me.Dirtied Then DBEngine.Rollback
       End If
   End Sub
   
   Public Property Get Dirtied() As Boolean
       Dirtied = boolFrmDirty
   End Property
   
   Public Property Let Dirtied(boolFrmDirtyIn As Boolean)
       boolFrmDirty = boolFrmDirtyIn
   End Property
   
   Public Property Get Saved() As Boolean
       Saved = boolFrmSaved
   End Property
   
   Public Property Let Saved(boolFrmSavedIn As Boolean)
       boolFrmSaved = boolFrmSavedIn
   End Property
   					

5. Hata Ayýkla) menüsünde, Northwind Derle'yi týklatýn.
6. Dosya menüsünde Kaydet Northwind ' ý týklatýn.
7. Istendiðinde, formu frmCustomers kaydedin.
8. FrmCustomers formu Form görünümünde açýn. Formdaki verilerle doldurulan unutmayýn.
9. Varolan bir kayýt düzenleme, bazý yeni kayýtlar ekleme ve bazý kayýtlar siliniyor, birkaç deðiþiklik yapýn.
10. Formu kapatýn. Tüm deðiþiklikleri kaydetmek istiyorsanýz, istendiðinde unutmayýn.
11. Týklatýn No
12. Formu Form görünümünde açýn. Adým 9'te yaptýðýnýz deðiþikliklerin hiçbiri veritabanýna kaydedilen unutmayýn.
13. 9 Ve 10 numaralý adýmlarý yineleyin.
14. Tüm deðiþiklikleri kaydetmek isteyip istemediðiniz sorulduðunda, Evet ' i týklatýn.
15. Formu Form görünümünde açýn. Yaptýðýnýz tüm deðiþiklikler veritabanýna kaydedilen unutmayýn.