HI all -
On a form I have an ADODC control and a DataBound control.
I wish to populate the DataBound control based on an Access
query. Since the query is large, I open it once in the
Form_Load routine and then filter it in the
Adodc1_MoveComplete event. Bits of the code:
The filter works correctly on rsCustomers, but dbcCustomerCode:Private myCN As ADODB.Connection Private rsCustomers As New ADODB.Recordset Dim custID As Variant Private Sub Form_Load() 'open connection SetConnection myCN, ADOconString 'open query rsCustomers.Open "Select * From CustomersQuery", myCN, adOpenKeyset, adLockOptimistic End Sub Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) On Error Resume Next If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF Then Adodc1.Caption = "Record " & Adodc1.Recordset.AbsolutePosition & " of " & Adodc1.Recordset.RecordCount Else Adodc1.Caption = "Record 0 of 0" End If custID = Adodc1.Recordset.Fields("IdCUSTOMER").Value rsCustomers.Filter = "IdCUSTOMER = " & custID With dbcCustomer Set .RowSource = rsCustomers .ListField = "CUSTOMER" .BoundColumn = "IdCUSTOMER" End With setDeudas End Sub
all of the customers in the query and not just the fileterd
data. I have tried using the .ReFill and .Refresh methods
and get the same results. Why?


Reply With Quote