Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Using the AbsolutePosition Property

Sub FindPosition()     Dim strSQL As String     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic     rst.Open "Select * from Products"     strSQL = "[ProductID] = " & 1     rst.Find strSQL     'If record is found, print its position     If rst.EOF Then         msgBox lngValue & " Not Found"     Else         Debug.Print rst.AbsolutePosition     End If     rst.Close     Set rst = Nothing End Sub