AccessTr.neT
Kayıtta yinelenenlere sınır koyma hakkında yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıtta yinelenenlere sınır koyma hakkında yardım (/konu-kayitta-yinelenenlere-sinir-koyma-hakkinda-yardim.html)



Kayıtta yinelenenlere sınır koyma hakkında yardım - moco_coco - 02/05/2013

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


Cvp: Kayıtta yinelenenlere sınır koyma hakkında yardım - C*e*l*o*y*c*e - 02/05/2013

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



Cvp: Kayıtta yinelenenlere sınır koyma hakkında yardım - moco_coco - 02/05/2013

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


Cvp: Kayıtta yinelenenlere sınır koyma hakkında yardım - C*e*l*o*y*c*e - 02/05/2013

örneği kendine uyarla


Cvp: Kayıtta yinelenenlere sınır koyma hakkında yardım - moco_coco - 02/05/2013

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