Необходимо связать несколько элементов Data

[Кристина]

На форме имеется куча тексбоксов, привязанных к 3 таблицам с помощью Data, нужно перемещаться по записям БД, видимым является только один из Data, к которому нужно привязать перемещение всех остальных. У меня возникла только одна идея, причем неудачная:

If Data1.Recordset.MoveNext Then
Data2.Recordset.MoveNext
Data3.Recordset.MoveNext
End If

Так не работает, м.б. кто-то сталкивался с подобной ерундой? заменять Data на ADO нельзя по условиям поставленной задачи

[RayShade]

А как насчет обработки событий Data_Reposition?

Код: Выделить всё

Private Sub Data1_Reposition()
data2.movenext
data3.movenext
End Sub

[A.A.Z.]

А лучше так:

Код: Выделить всё

Private Sub Data1_Validate(Action As Integer, Save As Integer)
  Select Case Action
    Case vbDataActionMoveFirst

    Case vbDataActionMovePrevious
         
    Case vbDataActionMoveNext
         Data2.Recordset.MoveNext
         Data3.Recordset.MoveNext
    Case vbDataActionMoveLast

    Case vbDataActionAddNew

    Case vbDataActionUpdate

    Case vbDataActionDelete

    Case vbDataActionFind

    Case vbDataActionBookmark

    Case vbDataActionClose

  End Select
End Sub


Ну, и, соответственно, в нужные места вставляешь нужный код.