Tabbed Subform - Form Properties

[davegri]

tabs-davegri-v02.zip
OK. If you only want to have one column in the search combobox rowsource, do it like the above.


Take care to enclose all data names and controls that contain a space with brackets.
Then with spaces, make sure that you don't run strings together by not including spaces between them like "Like "
Configure the search combobox as below:

[crhaines94]

Works Works Works! (ish)

If I select the first record in the Avation query (which happens to be fore me MWT-6300), it will update the subform and it works beautiful!

However, the other records do not update.

Does it have something to do with the control source or the column values it is trying to find? The Part Numbers are all in the very first column in the queries / tables, which would be .column(0)


I just wanted to also take the time to thank you for all the help! I really do appreciate it.

[davegri]

You have case 1
me![Tinner and Mag].form.filteron = strsearch

it should be me![Tinner and Mag]. form.filteron = true

[crhaines94]

Gothca, I fixed that. But that didnt fix how if I am on the AvSrch Tab and select anything other then mwt-6300, the form comes up blank. MWT-6300 is the first item in the list and happens to be the only one that works. Items 2-100 dont.


Is there anything I can send you to make it easier for you to see exactly what I am looking at?


When I switch tabs to the Mags and Tinner, and select the drop down list, it says "Syntax error (missing Operator) in query Expression 'Part Number'"

then the combo box list disappears from both the avsearch and the mags and tinner. But if you reopen and click on the combo box in avsearch before clicking on the mag and tinner, the list will populate all the part numbers for aviation (not mag and tinner).

[crhaines94]

Here is what I have for Code:

Private Sub cboSearch_AfterUpdate()


Dim strfilter As String
Select Case TabForm.Value
Case 0


strfilter = "[Part Number] Like " & "'*" & Me.cboSearch.Column(0) & "*'"
Me![Aviation Form].Form.Filter = strfilter
Debug.Print strfilter
Me![Aviation Form].Form.FilterOn = True


Case 1


strfilter = "[Part Number] Like " & "'*" & Me.cboSearch.Column(0) & "*'"
Me![Tinner and Mag].Form.Filter = strfilter
Debug.Print strfilter
Me![Tinner and Mag].Form.FilterOn = True
End Select


End Sub

Private Sub TabForm_Change()


Select Case TabForm.Value


Case 0
Me![Aviation Form].Form.FilterOn = False
cboSearch.RowSource = "Select Part Number from Aviation Query;"


Case 1


Me![Tinner and Mag].Form.FilterOn = False


cboSearch.RowSource = "Select Part Number from Mag and Tinner Query;"


End Select
cboSearch = vbNullString

[davegri]

See the red.
Hard to remember this stuff, huh? That's why I NEVER put spaces in Access object names.

Private Sub TabForm_Change()

Select Case TabForm.Value


Case 0
Me![Aviation Form].Form.FilterOn = False
cboSearch.RowSource = "Select [Part Number] from [Aviation Query];"


Case 1


Me![Tinner and Mag].Form.FilterOn = False


cboSearch.RowSource = "Select [Part Number] from [Mag and Tinner Query];"


End Select cboSearch = vbNullString

[davegri]

I think the query name is [Mag and Tinner]
EDIT. No, my bad. The form and query reverse the nouns.

Case 1

strfilter = "[Part Number] Like " & "'*" & Me.cboSearch.Column(0) & "*'"
Me![Tinner and Mag].Form.Filter = strfilter
Debug.Print strfilter
Me![Tinner and Mag].Form.FilterOn = True
End Select

 End Sub