Kayıt girişi kısıtlama

[arnavut]

Herkese merhaba,

Yapmış olduğum uygulamada belli bir sayıdaki kayıttan sonra tabloya kayıt girişini engellemek istiyorum.
Mesela; 1000 satır kayıt girişim oldu ve 1000'in üzerinde kayıt girilmesini engellemek istiyorum. Yani Program 1000 kayıttan sonra çalışmasın kilitlensin istiyorum.
Bunu nasıl yapabilirim?
Yardımlarınız için şimdiden teşekkürler.

 

[beab05]

Merhaba;

With Me.RecordsetClone
If .RecordCount > 1000 Then
' ne yapılmasını istiyorsanız örneğin docmd.quit
End With

 

[arnavut]

ilginiz için çok teşekkürler sayın beab05,

yalnız kodu nereye ve nasıl uygulayacağımı bilmiyorum
açıklarsanız sevinirim.

 

[beab05]

Ne şekilde kullanacaksınız ben de bunu bilemiyorum İstediğiniz bir formun güncelleştirme sonrasında bir mesaj kutusu ile kullanabilirsiniz. 1000 kaydı geçtiniz uygulama kapatılacak gibi. Ya da ilgili alanın güncelleştirme sonrasına koyarak yine istediğiniz değişiklikleri yaptırabilirsiniz. Alanları pasif etmek, görünmez yapmak vs. vs..

 

[arnavut]

Sayın beab05,
visual basic konusunda henüz çok tecrübesizim,
kusura bakmayın ama yine beceremedim
vermiş olduğunuz kodu tarif ettiğiniz gibi bir text box oluşturup after update'ine ekledim. Ama hata veriyor.

 

[arnavut]

Kayıt sayısını sınırlama !

Herkese merhaba,

Yapmış olduğum uygulamada belli bir sayıdaki kayıttan sonra tabloya kayıt girişini engellemek istiyorum.
Mesela; 1000 satır kayıt girişim oldu ve 1000'in üzerinde kayıt girilmesini engellemek istiyorum. Yani Program 1000 kayıttan sonra çalışmasın kilitlensin istiyorum.
Bunu nasıl yapabilirim?
Yardımlarınız için şimdiden teşekkürler.

Arkadaşlar bu konuda acil yardıma ihtiyacım var.
Tavsiyelerinizi bekliyorum.

 

[Taruz]

Merhaba..

Sayın beab05'in verdiği kod kümesini kullanma yöntemi için önerim:

Formunuzun Özellikler / Olay / Güncelleştirme Öncesinde Olay Yordamına kodu aşağıdaki şekli ile yazın..

Private Sub Form_BeforeUpdate(Cancel As Integer)
With Me.RecordsetClone
If .RecordCount > 1000Then
MsgBox "1000 Kayıt sınırı aşıldığından veri girişi yapamazsınız.."
Me.Undo
End If
End With
End Sub

Bu aşama sonrasında yeni veri girişi yapılmasına elgel olmuş, kayıt sayısını da 1000 ile sınırlandırmış oluruz..

 

[arnavut]

Yardımlarınız için çok teşekkür ederim sayın Taruz ve sayın beab05.
Şimdi çalışıyor. çok sağolun