12/12/2011, 14:13
Mesage box ekleyerek çözdüm teşekkürler
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.Metin7.Value < KayitSayisi Then
Form.AllowAdditions = True
Else
Form.AllowAdditions = False
MsgBox ("Seri Numaraları Tamamlandı")
End If
End Sub
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.Metin7.Value < KayitSayisi Then
Form.AllowAdditions = True
Else
Form.AllowAdditions = False
MsgBox ("Seri Numaraları Tamamlandı")
End If
End Sub