question on Tab Strip (OCX) and sub form

S

SF

Hi,

I have build a universal search form having ProvinceID (combo) DistrictID
(combo) and CommuneID (combo). These combos are cascasded. I have a Tabstrip
(OCX) and a subform. I have two tabs, Project and Contact. The form is
almost working except that It ask for a parameter (linkchild & master
field). Once I click OK, it display correct information. Is there a way to
stop the form to ask question?


Private Sub TabStrip_Click()
On Error GoTo Err_TabStrip_Click

'Me.Focus.SetFocus
Me.TabStrip.MousePointer = ccHourglass

Select Case Me!TabStrip.SelectedItem.Index
Case 1 ' Tab one selected.
If Not Me![SubForm].SourceObject = "frmSearchProjectByCommunes" Then
Me![SubForm].SourceObject = "frmSearchProjectByCommunes"
Me.SubForm.LinkChildFields = "P_CommuneID"
Me.SubForm.LinkMasterFields = "CommuneID"
End If
Case 2 ' Tab two selected.
If Not Me![SubForm].SourceObject = "frmContactGeneral" Then
Me![SubForm].SourceObject = "frmContactGeneral"
Me.SubForm.LinkChildFields = "Co_CommuneID"
Me.SubForm.LinkMasterFields = "CommuneID"

End If

End Select

Me.TabStrip.MousePointer = ccDefault

Exit_TabStrip_Click:
Exit Sub

Err_TabStrip_Click:
MsgBox Err.Description
Me.TabStrip.MousePointer = ccDefault
Resume Exit_TabStrip_Click

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

Code will work on one table and form but not on another? 19
Hidding a sub form on a tab 6
Backtabbing between SubForms on TabControls 2
How to use FindNext on subform 2
source object on change - sometimes not 11
FindFirst not working on second sub form 3
Combo Box on Form to Feed Information Into Subform 1
Tab Control Subform SetFocus 2

Top