Bom dia a todos. Sou novato por aqui, mas ja to ficando louco. Eu tenho um sistema com 3 combobox onde um só carrega a partir das informações do outro. Carrega tudo perfeitamente. O problema é que estou criando um outro sistema que tambem possui 3 combos
e não consigo faze-lo carregar.
vejam o o combo1 como carrego:
set rsTemp = (CCADODB.execute("select Cidade From tabela GROUP BY Cidade")
While rstemp.eof <>True and rstemp.BOF <>True
Combo1.AddItem rstemp("Cidade")
rstemp.MoveNext
Wend
CCADODB.close
até aqui tudo blz....carrega o meu combo1.
para carregar o combo2 e combo3 to fazendo desta forma:
Private Sub Combo1_Click()
Dim rsTemp as Adodb>recordset
set rsTemp = NewRecordset
Dim Caminho as String
Di Str as String
Caminho = App.Path & "\Banco.mdb"
Set cnSql = Nothing
cnSql.Open "Provider = Microsoft.Jet.OLEDB 4.0;Data Source=" &Caminho & "; Persist Security Info=False"
Str = "Select CAmpos do Banco Form Tabela Where Cidade = '" &Combo1 & "' Order by Bairro
rstemp.Open str, cnSql, adOpenDynamic, adLockPessimistic
combo2.clear
combo3.clear
Do While rstemp.EOF = False
Combo2.AddItem IIf(rstemp!CODIGO = ".", Rstemp!Bairro, Rstemp!Bairro)
Combo2.ItemData(Combo2.NewIndex) = rstemp!Codigo
Combo3.AddItem IIf(rstemp!CODIGO = ".", Rstemp!Rua, Rstemp!Rua)
Combo3.ItemData(Combo3.NewIndex) = rstemp!Codigo
rstemp.MoveNext
loop
rstemp.close
está retornando a mensagem na 1ª linha do Combo2: Object variable or with block variable not set.
Se alguem puder ascender uma luz e iluminar minhas idéias, fico muito grato.
