aşağıdaki kodu denermisiniz. belli bir kutu kutuNo için kayıtlı en büyük belge noya 1 ekleyerek belge no oluşturuyor

Me.belgeno = Nz(DMax("belgeno", "t_belgeler", "kutuno=" & Me.KutuNo), 0) + 1