AccessTr.neT

Tam Versiyon: Kayıtta yinelenenlere sınır koyma hakkında yardım
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.. Img-grin
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
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
örneği kendine uyarla
saolasın kardeş zaman ayırdığın için