Access'te bir formda kaydedilecek değişiklikleri kaydetmek için kullanıcıdan nasıl istenir?

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Orijinal KB numarası:   197103

İpucu

Temel makro, kodlama ve birlikte çalışabilirlik becerileri gerektirir.

Özet

Bir formdaki bir sonraki kayda geçtiğınızda veya formu kapattığınızda, Microsoft Access geçerli kayıtta yaptığınız değişiklikleri otomatik olarak kaydeder. Bu makalede, Microsoft Access devam etmeden önce kaydet işlemini doğrulamanızı ister etmek için önce güncelleştirme olay yordamını nasıl kullanacağınızı gösterilmektedir.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da 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.

Daha Fazla Bilgi

Dikkat

Bu örnekteki adımları izlerseniz, northwind.mdb örnek veritabanını değiştirirsiniz. Northwind.mdb dosyasını yedeklemek ve veritabanının bir kopyasında aşağıdaki adımları izlemek isteyebilirsiniz.

Bu örnek, Microsoft Access kaydı kaydetmeden önce kullanıcıdan değişiklikleri onaylamasını istemek için Müşteriler formundaki ÖnceGüncelleştirme olay yordamını kullanır:

  1. Örnek veritabanı Northwind.mdb'yi açın ve Tasarım görünümünde Müşteri formunu açın.

  2. Formun BeforeUpdate özelliğini aşağıdaki olay yordamına ayarlayın:

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    
     ' This procedure checks to see if the data on the form has
     ' changed. If the data has changed, the procedure prompts the
     ' user to continue with the save operation or to cancel it. Then
     ' the action that triggered the BeforeUpdate event is completed.
    
     Dim ctl As Control
    
     On Error GoTo Err_BeforeUpdate
    
     ' The Dirty property is True if the record has been changed.
     If Me.Dirty Then
       ' Prompt to confirm the save operation.
       If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
               "Save Record") = vbNo Then
          Me.Undo
       End If
     End If
    
    Exit_BeforeUpdate:
     Exit Sub
    
    Err_BeforeUpdate:
     MsgBox Err.Number & " " & Err.Description
     Resume Exit_BeforeUpdate
    End Sub
    
  3. Hata Ayıklama menüsünde, Kuzey Rüzgarını Derle'yitıklatın.

  4. Dosya menüsünde Northwind'i kaydet'itıklatın.

  5. Dosya menüsünde, Microsoft Access'i Kapatıp Geri Dön'etıklayın.

Şimdi, bir kayıtta değişiklik yaptığınızda ve sonra farklı bir kayda geçtiyseniz veya formu kapattığınızda, geçerli kaydı kaydetmek istediğinizi onaylamanız istenir. Hayır'ıtıklattığınızda, kayıt sıfırlanır ve işlem normal şekilde devam edilir.