her girdiğiniz yeni kayıtta txtUretim metin kutusuna girdiğinizde çalışacak şekilde yaptım ama şöyle bir sorun var geçmişe yönelik bir değişiklik yaptığınızda ne olacak? o durumda sonraki kaydın txtUretim kutusuna da tekrar giriş yapmanız gerekecek
aşağıdaki kod Modüle eklenecek

Function BirAlt(Trh As Date) As Double

Dim AltRs As New ADODB.Recordset

Dim sOrGu As String

  

  BirAlt = 0



sOrGu = "SELECT TOP 1 Tablo1.[TarihSaat], Tablo1.Sayac, * " & _

        "FROM Tablo1 " & _

        "WHERE (Tablo1.[TarihSaat]) < CDate('" & Format(Trh, "dd.mm.yyyy hh:nn") & "') " & _

        "ORDER BY Tablo1.[TarihSaat] DESC"

    

    AltRs.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If AltRs.RecordCount > 0 Then BirAlt = AltRs(1)



AltRs.Close

End Function

txtUretim metin kutusunun girildiğinde olayına da aşağıdaki kod eklenecek

Me.txtUretim = Me.txtSayac - BirAlt(CDate(Me.txtTarihSaat))