The_Hitcher
asked on
Changing subform source object and refreshing
Hoping someone can advise on this one. I have some code that, when a button is clicked, activates a dropdown on a form and changes the source object of a subform. This is working ok, but after opening, the source object won't refresh. The data it displays is dependent on the value in the dropdown, which defaults to the current reporting period. The code is:
Private Sub cmd_View_By_Period_Click()
Dim var_Today As Date
var_Today = Date
Me.cmb_RepPeriod_MgmrTasks .Enabled = True
cmb_RepPeriod_MgmrTasks.Va lue = DLookup("Period_ID", "tbl_Rep_Period", "#" & Format(var_Today, "mm-dd-yyyy") & "# BETWEEN Start_Date AND End_Date")
Me.frm_ManagerTasks.Source Object = "frm_ManagerTasks_Period"
Forms!frm_Manager_Dashboar d!frm_Mana gerTasks.R equery
End Sub
Thanks in advance.
Private Sub cmd_View_By_Period_Click()
Dim var_Today As Date
var_Today = Date
Me.cmb_RepPeriod_MgmrTasks
cmb_RepPeriod_MgmrTasks.Va
Me.frm_ManagerTasks.Source
Forms!frm_Manager_Dashboar
End Sub
Thanks in advance.
ASKER
Thanks for your reply. The subform source object that is loading uses a query as the datasource. The query in turn references the value selected in cmb_RepPeriod_MgmrTasks. I'm not explicitly setting any child/master link fields. The data that is shown on the subform is dependent on the value selected in cmb_RepPeriod_MgmrTasks. I've used this approach elsewhere and it has worked fine, but this is the only area where I have a button that changes the subform source object and the combo box that is being used. When opening the subform datasource outside of the master form (but with the master form open and a value selected in cmb_RepPeriod_MgmrTasks) it is working fine, but I can't get it to work within the subform window.
Could be a timing issue - the combo may not have fully populated before the subform control loads the form.
What's the reason for using a DLookup to set the value of the combo?
What's the reason for using a DLookup to set the value of the combo?
ASKER
The table that is providing the data source for the master form does not include the field that I am using in the combo box, so I was unable to use the child / master approach. The DLookup is to set the value of the combo box to be the period that the current date is in.
Thanks, I'll have a look into the timing.
Thanks, I'll have a look into the timing.
ASKER
I do not think it is a timing issue. I have added an OnChange event procedure to the combo box itself. When the value is changed it still does not seem to be refreshing the subform. Is there an alternative to using Requery?
Private Sub cmb_RepPeriod_MgmrTasks_Ch ange()
Forms!frm_Manager_Dashboar d!frm_Mana gerTasks.R equery
End Sub
Private Sub cmb_RepPeriod_MgmrTasks_Ch
Forms!frm_Manager_Dashboar
End Sub
Why not just set the Recordsource of the Subform directly, AFTER setting the SourceObject:
Me.frm_ManagerTasks.Source Object = "frm_ManagerTasks_Period"
Me.frm_ManagerTasks.Form.R ecordsourc e = "SELECT * FROM SomeQuery WHERE MyDateField BETWEEN #" & Date1 & "# AND #" & Date2 & "#"
Me.frm_ManagerTasks.Source
Me.frm_ManagerTasks.Form.R
And: Where are the values of "StartDate" and "EndDate" coming from?
You must Requery the Form object:
Forms!frm_Manager_Dashboar d!frm_Mana gerTasks.F orm.Requer y
However, I don't think this will solve your issue.
What is the Recordsource of that form after opening? Can you pust a breakpoint in the Current event of that subform, and then do this in the Immediate window:
?Me.Recordsource
Forms!frm_Manager_Dashboar
However, I don't think this will solve your issue.
What is the Recordsource of that form after opening? Can you pust a breakpoint in the Current event of that subform, and then do this in the Immediate window:
?Me.Recordsource
ASKER
I'm not sure what you mean. The record source is the query that uses the value in combo as a parameter. I've tried putting this code into the subform and it just shows that the query is the datasource.
Private Sub Form_Current()
Print Me.RecordSource
End Sub
Private Sub Form_Current()
Print Me.RecordSource
End Sub
ASKER CERTIFIED SOLUTION
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
1) The Recordsource of the form being used as a Subform
2) The Master/Child linking fields defined on the Subform Control in the parent form
Your code does nothing more than simply set the SourceObject (and BTW there is no need to Requery - this will occur when the SourceObject is loaded). Check the Recordsource and Master/Child link fields to insure they're setup correctly.
do you mean that you WANT the Subform data to be dependant on the cmb_RepPeriod_MgmrTasks value? If so, then either (a) filter the subform's recordsource or (b) apply a Filter to that subform. You'd do this AFTER opening the subform. Assuming you want to use the same filter as your DLookup, you'd do this:
Me.frm_ManagerTasks.Form.F
Me.frm_ManagerTasks.Form.F
I'm not sure where you're defining "Start_Date" and "End_Date", so be careful to insure that those actually have a Value. Are these controls on a form, or variables defined somewhere else?