Alıntı:fatura formuna 20 kayıt girdikten sonra kayıt girilmesini önlemek ve uyarı vermesi (20 kalem üründen fazla girmeyiniz)
eğer bu talebinizi uygulamak isterseniz,fikir vermesi ve alternatif olması adına;
FATURA ALT FORMU adlı alt formun GEÇERLİ OLDUĞUNDA olay yordamı içerisine
Kod:
Dim eklenecekkayitsayisi As Integer
eklenecekkayitsayisi = 20
If Me.NewRecord Then
With Me.RecordsetClone
If .RecordCount > 0 Then
.MoveLast: .MoveFirst
If .RecordCount >= eklenecekkayitsayisi Then
MsgBox ("En fazla " & vbCr & eklenecekkayitsayisi & vbCr & "adet FATURA ekleyebilirsiniz."), vbCritical, "20 KAYIT SINIRI AŞIMI UYARISI"
.MoveLast
Me.Bookmark = .Bookmark
End If
End If
End With
End Ifbilginize...iyi çalışmalar,saygılar.
