I couldn't get it to work that way. But the code below works.

Ria

ComboboxB - RowsourceType = 1(Value)

ComboBoxA - Interactive Change


thisform.comboboxB.clear
do case
case this.text = "A"
select TableA
go top
do while not eof()
thisform.comboboxB.additem(TableA.Field1)
skip 1
enddo
case this.text = "B"
select TableA
go top
do while not eof()
thisform.comboboxB.additem(TableB.Field1)
skip 1
enddo
endcase