Kayıtta yinelenenlere sınır koyma hakkında yardım

02/05/2013, 21:02

moco_coco

Selamın Aleyküm diyor ve soruma geliyorum,
Arkadaşlar benim yapmak üzere olduğum bir hastane programı var ve bi yerde takıldım takıldığım nokta ise hasta Tablosunda Odakayıtlarını tutan bir alanım var ve bu alanı sınırlamak istiyorum yani bir odada en fazla 6 hasta kalsın gibi bir sınırlama getirmek istiyorum,sınırlama getirmessem çok saçma bir sistem olur çünki bir odaya istediğim kadar hasta kaydedebiliyorum o yüzden yinelenen kayıtları tespit edip 6 hasta aynı odada kalınca formda kayıt yaptırmamak istiyorum, vereceğiniz cevaplar için şimdiden teşekkür ederim..
02/05/2013, 21:56

C*e*l*o*y*c*e

Private Sub Form_AfterInsert()
With Me.RecordsetClone
If .RecordCount > 6 Then
MsgBox "6 Kayıt sınırı aşıldığından veri girişi yapamazsınız.."
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Undo
End If
End With
End Sub
02/05/2013, 22:25

moco_coco

Sayın C*e*l*o*y*c*e
Cevabınız için teşekkürler yalnız şu kod satırını anlayamadım biraz daha açabilirmisiniz
With Me.RecordsetClone "Burdaki recordsetClone tam ne işe yarıyor ve görevi ne önceden birşey tanımlamalımıyım
If .Recordcount > 6 Then "Burdaki .Recor ve DCount Olayınıda çözemedim biraz daha açıklarsanız sevinirim şimdiden teşekkürler
02/05/2013, 22:56

C*e*l*o*y*c*e

örneği kendine uyarla
02/05/2013, 23:08

moco_coco

saolasın kardeş zaman ayırdığın için