Cascading Combo box Code

I posed the question about tutorials for creating a cascading combo box. I
was directed to a site and now understand the process. Created a table with
the fields suggested from the tutorial.The code is as follows.
Private Sub cboCountry_AfterUpdate()

On Error Resume Next
' Synchronise country combo with existing city
cboCountry = DLookup("[Country]", "tblAll",
"[City]='" & cboCity.Value & "'")
' Synchronise city combo with existing city
cboCity.RowSource = "Select tblAll.City " & _
"FROM tblAll " & _
"WHERE tblAll.Country = '" & cboCountry.Value & "' " & _
"ORDER BY tblAll.City;"
End Sub
I need to not have duplicated city's come up per the county. Is there some
code within the present code to make all the selections of the city's unique.
Thank you in advance.

Add a DISTINCT to the RowSource:
cboCity.RowSource = "Select DISTINCT tblAll.City ...

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mike Busch" wrote in message
...
I posed the question about tutorials for creating a cascading combo box. I
was directed to a site and now understand the process. Created a table
with
the fields suggested from the tutorial.The code is as follows.
Private Sub cboCountry_AfterUpdate()

On Error Resume Next
' Synchronise country combo with existing city
cboCountry = DLookup("[Country]", "tblAll",
"[City]='" & cboCity.Value & "'")
' Synchronise city combo with existing city
cboCity.RowSource = "Select tblAll.City " & _
"FROM tblAll " & _
"WHERE tblAll.Country = '" & cboCountry.Value & "' " & _
"ORDER BY tblAll.City;"
End Sub
I need to not have duplicated city's come up per the county. Is there some
code within the present code to make all the selections of the city's
unique.
Thank you in advance.