kayıt sınırlama

[hedefkaya]

bir veri sayfası formunda kayıtsatısını 20 ile sınırlandırabilirmiyiz
yani 20 satırdan fazla kayıt olmasın ve 20 kayıt aşıldığında uyarı versin
teşekürler

 

[Skorpiyon]

Sayın hedefkaya,

İlk verinizin A1 hücresinden başladığını varsayarsak, kayıt butonuna kodu şu şekilde yazabilirsiniz.

If Range("A20").Value <>"" then 'A20 hücresi boş değilse
Msgbox "20 kayda ulaştınız" '20 kayıt var diye mesaj ver
else 'A20 hücresi boş ise
Range("A1").Select 'A1 'i seç
Do While Not IsEmpty(Activecell) 'A1 boş ise
Activecell.Offset(1,0).Select 'Bir alt satırı seç
Loop 'Boş satırı bulduğunda dur ve o satırı seç
Activecell.Value = Textbox1.Value 'Boş satırın değeri textbox nesnesinin değeridir
Activecell.Offset(0,1).Value = Textbox2.Value 'Boş satırın 1 sağı textbox2 nesnesinin değeridir... gibi.
...
...
...
End If

gibi.

 

[beab05]

Merhaba;

Şaban Bey, Excel ile karıştırdı sanırım

Formunuzun güncelleştirme öncesi (before update) olayına, tablo isminizi değiştirerek alttaki kodu yazınız..

If Dcount("*","tablo_ismi") > 20 Then
Me.AllowAdditions = False
MsgBox " Kayıt sınırı 20'dir !!",vbOKOnly
Me.Undo
End if

 

[Skorpiyon]

Ops!

Evet karıştırmışım

Kusura bakmayın. Uzun süredir foruma giremiyorum ve bir müddet daha böyle devam edecek sanırım. Neyi nereye yazacağımızı da unuttuk galiba