PDA

Click to See Complete Forum and Search --> : Data control


JureVI
Jul 1st, 2000, 09:47 AM
Hi
In my application I would like to set the AbsolutePosition of a recordset to more than 0, but it doesn't work: the Absoluteposition is still 0. But if I press the Next button on the Data control before, then I can set AbsolutePosition.
Why doesn't it work?

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\base.mdb"
Data1.RecordSource = "MyTable"
End Sub

Private Sub Data1_Reposition()
index.Text = Data1.Database.Recordsets("Tabela").AbsolutePosition
End Sub

Private Sub index_KeyPress(KeyAscii As Integer)

If index.Text > 0 Then
Data1.Database.Recordsets("Tabela").AbsolutePosition = indeks.Text
End If
End Sub