none
3 combobox com vb e access RRS feed

  • Discussão Geral

  • 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.


    quarta-feira, 3 de abril de 2013 13:25

Todas as Respostas