Try these settings for the combo boxes
Code:
CountryCombo
Row Source = "SELECT CT.[Country ID], CT.Country, CT.[Network ID] FROM [Country Table] AS TC ORDER BY TC.Country;"
Bound Column = 1 (the CountryID)
Column Width = 0";1.5";0" ' The middle width should be whatever shows the Country name well
PostCombo
Row Source = PostCombo.RowSource = "SELECT TP.[Posts ID], TP.Post FROM [Post Table] as TP ORDER BY TP.Post;"
Bound Column = 1 (the PostID)
Column Width = 0";1.5" ' The second width should be whatever shows the Post name well
and this code in the after update of CountryCombo
Code:
CountryCombo_AfterUpdate
If Me.CountryCombo.Listindex = -1 Then
Me.PostCombo.RowSource = "SELECT TP.[Posts ID], TP.Post FROM [Post Table] as TP ORDER BY TP.Post;"
Else
Me.PostCombo.RowSource = "SELECT TP.[Posts ID], TP.Post FROM [Post Table] as TP WHERE TP.[Country ID] = " & CountryCombo.Value & " ORDER BY TP.Post;"
' Me.PostCombo = Me.PostCombo.ItemData(0) ' Don't know if this line is useful or not
End iF