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 eklenecekMe.txtUretim = Me.txtSayac - BirAlt(CDate(Me.txtTarihSaat))