ReDim есть - просто здесь его забыл.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Form_Delete(Cancel As Integer)
Dim r As DAO.Recordset
Set r = Me.RecordsetClone
Dim i As Long
Dim j As Long
ReDim DelValue( 1 To 2 , 0 To r.Fields.Count, 0 To r.RecordCount) As Variant
r.Bookmark = Me.Bookmark
r.MoveFirst
j = r.AbsolutePosition
For i = 0 To r.Fields.Count - 1
DelValue( 1 , i, j) = r.Fields(i).Name
DelValue( 2 , i, j) = r.Fields(i).Value
Next i
r.Close
End Sub
Я ни в чем не запутался и четко знаю, что мне нужно. И если бы не было не сил ни желания, то я бы сейчас пиво пил.
что ты хотел сказать циферками 1 и 2 в первой размерности;
1.
OldValue( 1 , i, j) = r.Fields(i).Name
OldValue( 2 , i, j) = r.Fields(i).Value
циферка 1 - это идентификатор имени поля
циферка 2 - его значения
Позицию записи (если она вообще имеет смысл, в чем я сомневаюсь) следует сохранять так же в массиве, а индекс массива формировать на базе счетчика - значение счетчика равно количеству удаленных записей + 1;
Смысл имеет.
Как мне узнать количество удаляемых записей?
