Depo Hareketleri, Seri No Takibi ve Garanti belgesi basımı

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