Процедура связана с событием
После изменения поля
Количество, в котором вводится нужное количество строк, после чего результаты выборки выводятся в подчиненную форму. Поля
Количество,
Всего и
Остаток находятся в главной форме.
Private Static Sub Количество_AfterUpdate()
Dim strSQL As String, k As Integer
Dim RST As ADODB.Recordset
strSQL = "SELECT TOP " & [Количество] & " * FROM [Зачисление]"
Set RST = New ADODB.Recordset
RST.Open strSQL, CurrentProject.Connection, adOpenStatic, adCmdText
Set Me.Копия.Form.Recordset = RST
Всего = RST.RecordCount
Остаток = Всего1 - Количество
End Sub