ник: МаксФактор
Хотел сделать чтобы значения в таблице пересчитывались в цикле, а VBA выдает ошибку на строке SET ...., что ему может не нравиться?
Private Sub Form_Load()
Dim rs As ADODB.Recordset, v As Variant
Set rs = CurrentDb.OpenRecordset("ОсновнДанные")
Do Until rs.EOF
rs.MoveFirst
v = Abs(Me!Поле28)
Me!ууууу = v
rs.Update
rs.MoveNext
Loop
Me.FilterOn = True
Me.Filter = "[ОсновнДанные]![НаимПокупателя]=[Forms]![Форма1]![ПолеСоСпискомЗаказчики]"
End Sub
|