need help with cascading combo/list boxes

[pouj]

Hey i need help with setting up this on ACCESS 2007
i need step by step

i need a form...
i select a name (drop list)...then gives me more choice (in next drop list) ....then when i select that choice give another list (drop list)..

so for example
i select canada, from list of contries, then i would get list of the provinces and then i choose my province and then i get list of cities

if someone let me know step by step how to do that i would appericiate it.

[Rabbit]

You have posted in the wrong forum, I am moving this post the the appropriate forum.

Please use a clearer title next time. I will change it for you this time.

[Rabbit]

Take a look at the Cascading Combo/List Box Tutorial.

[pouj]

thank you so much you saved my life!!!!! also i didnt know it was called cascading combo box.

[Rabbit]

thank you so much you saved my life!!!!! also i didnt know it was called cascading combo box.

You don't have to know what it's called but the title should be descriptive of the question.

[pouj]

okay so i read over cascading combo/list boxes tutorial and my projct doesnt work.

i will tell you exactly what i have done...

my first table called tblcontractor..
has 2 field
ID: Automatic
ContractorIDNum ber: Number (which gets its data from another table)

my next table called tblcontractorpr oject
has 3 fields
ID: autonumber
Contractorproje ctname: text
contractoridnum ber: Number (which gets i data from same table that tblcontracot contractoridnum ber gets it data)

then i create a form and then form i drop the the tables in there..and i went to properties and i went to afterupdate and i put in [Event Procedure] and i went to VB editor and i type this in there...

Private Sub ContractorIDNumber_AfterUpdate()
With Me![ContractorIDNumber]
If IsNull(Me!ContractorIDNumber) Then
.RowSource = ""
Else
.RowSource = "SELECT [Contractorprojectname] " & _
"FROM Tblcontractproject " & _
"WHERE [ID]=" & Me!ContractorIDNumber
End If
Call .Requery
End With
End Sub
 

also keep in mind that i have no data in the tables yet. so if you tell me what i am doing wrong here, i would apperciate it.

[Rabbit]

okay so i read over cascading combo/list boxes tutorial and my projct doesnt work.

i will tell you exactly what i have done...

my first table called tblcontractor..
has 2 field
ID: Automatic
ContractorIDNum ber: Number (which gets its data from another table)

my next table called tblcontractorpr oject
has 3 fields
ID: autonumber
Contractorproje ctname: text
contractoridnum ber: Number (which gets i data from same table that tblcontracot contractoridnum ber gets it data)

then i create a form and then form i drop the the tables in there..and i went to properties and i went to afterupdate and i put in [Event Procedure] and i went to VB editor and i type this in there...

Private Sub ContractorIDNum ber_AfterUpdate ()
With Me![ContractorIDNum ber]
If IsNull(Me!Contr actorIDNumber) Then
.RowSource = ""
Else
.RowSource = "SELECT [Contractorproje ctname] " & _
"FROM Tblcontractproj ect " & _
"WHERE [ID]=" & Me!ContractorID Number
End If
Call .Requery
End With
End Sub

also keep in mind that i have no data in the tables yet. so if you tell me what i am doing wrong here, i would apperciate it.

When you're doing a cascading combo box you use more than 1 combo box. You're only using one combo box here. Read the tutorial more closely.

You're also attempting to return records based what looks to be a primary key when you should be using a foreign key.

[pouj]

When you're doing a cascading combo box you use more than 1 combo box. You're only using one combo box here. Read the tutorial more closely.

You're also attempting to return records based what looks to be a primary key when you should be using a foreign key.

how do i use foreign key....and i am using 2 combo box.

[Rabbit]

how do i use foreign key....and i am using 2 combo box.

But your code is only using one combo box.

You use a foreign key by using the foreign key field's name instead of the primary key field's name.

[pouj]

okay...so now my code looks like this....

Private Sub cpyname_AfterUpdate()
    With Me![Employee]
        If IsNull(Me!company) Then
            .RowSource = ""
        Else
            .RowSource = "select [empname] " & _
            "from tblemployees " & _
            "where [id] =" & Me!company
        End If
        Call .Requery
        End With
End Sub
 

but i am getting debug on With Me![Employee]...so what i am suppose to do there...and also...like i tried to set up FK but it doesnt work (thats what i am assuming) because in relationship field i just get a line from ID to EID..and can you refresh my head with the steps on how to set up FK keys? or i am doing it right...