Refresh each Form

B

Bob Vance

I have an AfterUpdare script that shows relevant records in my subForm and
this works fine when I use it,is it possible to code it so as when I scroll
from one form to the next it will show the relevant records in the subForm,
At the moment when I scroll using my control subform stays
inactive.....................Regards Bob
------------------------------------------
Private Sub cbOwnerID_AfterUpdate()
Dim nRtnValue As Integer
If IsNull(cbOwnerID1.Column(0)) Then
nRtnValue = vbYes

End If
If nRtnValue = vbYes Then
cbOwnerID1.value = cbOwnerID.value
Form("SubPaymentShowChild").Form.Filter = "[OwnerID]=" & Me.cbOwnerID
Form("SubPaymentShowChild").Form.FilterOn = True
Form("SubPayModePayChild").Form.Filter = "[OwnerID]=" & Me.cbOwnerID
Form("SubPayModePayChild").Form.FilterOn = True
If Len(Me.cbOwnerID.value & "") > 0 Then
Me.cbOwnerID.Locked = True
Dim rsFullAmtPaid As ADODB.Recordset
Set rsFullAmtPaid = New ADODB.Recordset


tbShowTotal.value = cbOwnerID.Column(5)
End If
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sub Form question 1
Sub Form Locks Up after one use 2
Close a form code! 2
Cant get form to Close 6
Delete Button Code needed ! 7
Move Control to another Form Problem 3
How to find the name of the present subform 7
Filter form using multiple combo boxes selection 6

Top