Access 07 ComboBox Filter results category subcategory type SubType

[gcoaster]

Hello Everyone!

I have a question regarding "cascading combobox(s) list(s)"

I would like:

ComboBox 2 to show results from ComboBox 1's selection,
then ComboBox 4 to show results from ComboBox 3's choice

For Instance these are the combo boxes
[category] [subcategory] [type] [subtype]

This is the sample of choices in the combo boxes
HARDWARE - CABLES - USB - 2.0
HARDWARE - CPU - AMD - AM2

QUESTION(s)

Do I create ONE table for this? OR
Do I create 4 tables = tblcategory tblsubcategory tbltype tblsubtype ?
Do I place a QUERY in the middle of the TABLE(s) and the FORM?

Should I use VBA to make this work?
Should I use sql in the control source to make this work?

What is the best solution? so many answers, so many posts,..
a lookup in a table field.

thank you in advanced!!!

Matt

[gcoaster]

FishVal, you rock..
I am going to print this out, go to the coffee house.. come back and try it!
thank you FishVal.
you ever on the gold coast of Australia let me know!

M@

[gcoaster]

NeoPal, thank you! every little bit counts..

one comment, that is some SERIOUS VBA!!!!

being the newbie I am, I was getting errors with what i copied and pasted from FishVAl and at 2am in the morning i was just ready to just use a WAMP in a VMWARE machine and switch over to MySQL using MyPhpAdmin and php w/ XTHML + CSS with a pretty web2.0 interface and maybe some spry.. using dreamweaver and Adobe Dreamweaver Developer Toolbox,

( yea that sounds complex but i am finding the comboboxes in access hurt my brain more! HAHA )

I CANNOT imagine debugging the fallowing until i learn the basics.

Option Compare Database
Option Explicit
 
Private Sub txtFindAccountCode_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub txtFindCreationDate_AfterUpdate()
    Me!txtFindCreationDate = IIf(IsDate(Me!txtFindCreationDate), _
                                 Format(Me!txtFindCreationDate, "d mmm yyyy"), _
                                 "")
    Call CheckFilter
End Sub
 
Private Sub cboFindAccountType_AfterUpdate()
    Call CheckFilter
End Sub
 
'CheckFilter produces the new Filter depending on the values currently in
'txtFindAccountCode, txtFindCreationDate & cboFindAccountType.
Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
 
    strOldFilter = Me.Filter
    'txtFindAccountCode - Text
    If Me!txtFindAccountCode > "" Then _
        strFilter = strFilter & _
                    " AND ([AccountCode] Like '" & _
                    Me!txtFindAccountCode & "*')"
    'txtFindCreationDate - Date
    If Me!txtFindCreationDate > "" Then _
        strFilter = strFilter & _
                    " AND ([CreationDate]=" & _
                    Format(CDate(Me!txtFindCreationDate), _
                           "\#m/d/yyyy\#") & ")"
    'cboFindAccountType - Numeric
    If Me!cboFindAccountType > "" Then _
        strFilter = strFilter & _
                    " AND ([AccountType]=" & _
                    Me!cboFindAccountType & ")"
    'Debug.Print ".Filter = '" & strOldFilter & "' - ";
    'Debug.Print "strFilter = '" & strFilter & " '"
    'Tidy up results and apply IF NECESSARY
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If
End Sub

[NeoPa]

Gold,

I suggest you put your actual project aside for a bit while you progress through this article. It's a bit like a tutorial and includes the database to download.
If you have trouble with it or specific questions, I can help. I expect once you start to go through it it will start to make better sense.

[gcoaster]

Hello NeoPa,
thank you for offering to help. You are a scholar and a gentleman

It doesn't look that bad, I just may read and study.. just noticed like in CSS the
lines that start with a ' is a comment */ comment */ so there is not as much code as i thought.
One thing, It is 2007, things are going FAST.. guys like me DONT HAVE TIME, especially trying to debug code and it ends up being a comment out of place. then you have to search for help on the obscure ms error message.

Trying to stay ahead of the game is almost information overload, you miss a beat and your behind, I have learned to KEEP IT SIMPLE
you get IN and you get OUT.

I could and actually will spend another 2 days figuring this out, then I get it done.. enter data and don't dive into the code again till i want to customize it or something isn't right..

this is one reason allot of people use FileMaker, they get frustrated with access and filemaker you get in and get out. but once your in your in!

by the way, i did have my doubts with going with access 07, there is not a access 2007 export to MySQL yet, but you can always make table etc etc.

anyways, thank you all!

Matt

[gcoaster]

Hello FishVal,

I need your help please, I think I am close.
I keep getting an error.. here is the code

Option Compare Database
 
Private Sub cmboMainCategory_AfterUpdate()
    With Me!cmboSubCategory
        If IsNull(Me!cmboMainCategory) Then
            .RowSource = ""
        Else
            .RowSource = "SELECT keyCategoryID,txtCategoryName" & _
                 "FROM @CATEGORY" & _
                 "WHERE keyParentCategory=" & Me!cmboMainCategory & ";"
            End If
            Call .Requery
    End With
End Sub

-- what am i doing wrong?! thank you

[FishVal]

Hello FishVal,

I need your help please, I think I am close.
I keep getting an error.. here is the code

Option Compare Database
 
Private Sub cmboMainCategory_AfterUpdate()
    With Me!cmboSubCategory
        If IsNull(Me!cmboMainCategory) Then
            .RowSource = ""
        Else
            .RowSource = "SELECT keyCategoryID,txtCategoryName" & _
                 "FROM @CATEGORY" & _
                 "WHERE keyParentCategory=" & Me!cmboMainCategory & ";"
            End If
            Call .Requery
    End With
End Sub
 

-- what am i doing wrong?! thank you

Hi, Matt.

The code seems to be Ok.

• what error are you getting? where code execution stops?
• what are the settings of [cmboMainCategor y] and [cmboSubCategory] properties ?
  • ColumnCount
  • BoundColumn
  • RowSource
• did you try to execute RowSource statement in query builder?

[gcoaster]

Hello FishVal

Here is what I have

Table
@CATEGORY

Columns in @CATEGORY Table
mainCategoryID
name
keyCategoryID

Combo Boxes
cmboMainCategor y
cmboSubCategory

Properties of Combo Boxes
    cmboSubCategory
        Control Source       | softCategory ( tried nothing as well )
        Row Source            | @CATEGORY
        Bound Column       | tried everything 1 2 3 
        Count                       | 2
        Widths                     | 0cm;1cm 
 
    cmboSubCategory
        Control Source       | softSubCategory ( tried nothing as well )
        Row Source            | @CATEGORY
        Bound Column       | tried everything 1 2 3 
        Count                       | 2
        Widths                     | 0cm;1cm

Private Sub cmboMainCategory_AfterUpdate()
    With Me![cmboSubCategory]
        If IsNull(Me!cmboCategory) Then
            .RowSource = ""
        Else
           .RowSource = "SELECT MaincategoryID, name" & _
                        "FROM @CATEGORY " & _
                        "WHERE [keyCategoryID]=" & Me!cmboMainCategory
        End If
        Call .Requery
    End With
End Sub

Matts hair… -handfull per 2 errors and no results

Question: If I ever get this working.. then how do I add the next 2?
Type and then Sub Type?
thank you FishVal

[FishVal]

Hi, Matt.

See the attached example.

[NeoPa]

Hello FishVal,

I need your help please, I think I am close.
I keep getting an error.. here is the code

Option Compare Database
 
Private Sub cmboMainCategory_AfterUpdate()
    With Me!cmboSubCategory
        If IsNull(Me!cmboMainCategory) Then
            .RowSource = ""
        Else
            .RowSource = "SELECT keyCategoryID,txtCategoryName" & _
                 "FROM @CATEGORY" & _
                 "WHERE keyParentCategory=" & Me!cmboMainCategory & ";"
            End If
            Call .Requery
    End With
End Sub

-- what am i doing wrong?! thank you

No space before the FROM (or the WHERE for that matter).

@Gold Please notice that two of your posts now have the edit comment (Please use [code] tags).
This is because everything works so much better when you can read what's being posted. I'm sure Fish would have seen the missing space if it had been laid out clearly.

*edit* I just noticed a later post indicating you're obviously trying. Look at the (#) button when creating or editing your post and read the text at the right on the "New Post" page for hints :)

[NeoPa]

If you examine the .RowSource property after it's been set up - you'll easily see what I mean ;)