Merhaba, F_YTEKLIFHD_ALTFRM isimli altformda, ACK_KOD isimli metin kutusunun güncelleştirme sonrasında olayındaki

Me.ACK_TANIM = Me.ACK_KOD.Column(0)

Me.MTN_BIRIM_F = Me.ACK_KOD.Column(4)

Me.ACK_TANIM.Requery

kodlarını silin. Daha önce ACK_KOD açılan kutu olduğu için yazılmış ancak şu anda bu kod çalışmaz.
Bu kodun yerine

Dim GSayi As Integer

GSayi = Nz(DMax("[SIRA]", "T_TEKLIF_D", "[REV_ID]= " & [REV_ID]), 0)





If IsNull(Me.MTN_SIRA) Or Me.MTN_SIRA = "" Then

  Me.MTN_SIRA = GSayi + 1

End If

Kodu ekle, alt formda ACK_KOD metin kutusuna veri girdiğinde MTN_SIRA metin kutusuna sayıyı kendisi yazar.