Cacading Update Combo box not refreshing

[daniel aristidou]

Hi i have used the following code to create cascade updating combo boxes. the code worked but as soon as i change the selection on the first combo the second combobox goes blank and does not refresh:

Private Sub Combo18_AfterUpdate()
    With Me!Combo16
        If IsNull(Me!Combo18) Then
            .RowSource = ""
        Else
            .RowSource = "select chapter" & _
                         "From Tblchapters" & _
                         "Where Subject=" & Me!Combo18
        End If
        Call .Requery
    End With
End Sub

(Ps i am using access 2007)
Am i typing in somthing wrong or is extra code needed?

[JConsulting]

Hi i have used the following code to create cascade updating combo boxes. the code worked but as soon as i change the selection on the first combo the second combobox goes blank and does not refresh:

Private Sub Combo18_AfterUpdate()
    With Me!Combo16
        If IsNull(Me!Combo18) Then
            .RowSource = ""
        Else
            .RowSource = "select chapter" & _
                         "From Tblchapters" & _
                         "Where Subject=" & Me!Combo18
        End If
        Call .Requery
    End With
End Sub

(Ps i am using access 2007)
Am i typing in somthing wrong or is extra code needed?

It worked...but then it didn't work? :o)
you don't need to requery when setting a controls rowsource. It also looked like your rowsource SQL had a spacing issue. Also, if Subject is "text", then you must surround the value with ' ' as shown below.
J

Private Sub Combo18_AfterUpdate()
   With Me!Combo16
        If IsNull(Me!Combo18) Then
            .RowSource = ""
             MsgBox "There are no Chapters for this selection."
        Else
            .RowSource = "select chapter" & _
                         " From Tblchapters" & _
                         " Where Subject='" & Me!Combo18 & "'"
        End If
    End With
 

[daniel aristidou]

thanks
very much :-)