What I would like to know is how the Tab control is not visiible until the combo is used.?
From what I found, it was set to visible, no code in the main form to hide it.?
I've only looked at this parent/subform form from the point of view of the 'summary' subform. Haven't looked at the other subforms.
I'm curious as to why in the main form there needs to be a recordsource. It might as well be a straight out unbound main form controlling the subforms. I noticed that the Data Only property was set and I can see why, so as not to show existing records. Unless there is something else going on, remove the recordsource from the main form.
Well you got there quicker than me ....:banghead:
I've removed all the unnecessary requery & refresh lines - all they are doing is causing lots of flickering.
Also removed the double filtering of frmSummary.
Much more responsive now as well
Steve,
Yeah I thought the same, I don't need the recordsource on the main form, but for some reasons when I removed it I don't see the tabs appear so I just left it there.
There were a lots of odd features in this app
I found the tab headers kept disappearing on me ....I think the tabs shifted upwards as dragging the tab control down solved that ... for a while ...but I had to do it several times.
I wasted a lot of time changing the bound column in the combo to the ID field. Doing that is the usual approach especially as that field was used for master/child links. However it failed doing that ...due to the union SQL used?
Another quirk was that Data Entry should have been set to No. However doing that also failed for me. I went all round the houses before changing the setting as described by Steve. Its a property I never use in my own apps
Check out the setting, "Filter On Empty Master", yours is currently set to Yes, change it to No, then the records are displayed.
Option Compare Database
Option Explicit
'Remove all code - not needed & causes flicker
Private Sub Form_Activate()
'Me.Refresh
End Sub
Private Sub Form_AfterUpdate()
'Me.Refresh
End Sub
Private Sub Form_Click()
'Me.Refresh
End Sub
Private Sub Form_Current()
'Me.Refresh
End Sub
Private Sub Form_Load()
'Me.Refresh
End Sub