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
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