list box

[alberto_acm]

Bom dia,

estou com um problema, vou relatar e peço a ajuda dos amigos.

fiZ uma agenda no em vba do excel, faço os lançamentos normalmente, mais quando faço a pesquisa pelo listbox,

me dá um erro de list, mais isto só acontece quando eu deixo algum campo sem colocar dados. como faço

pra resolver isto?

( erro); não foi possivel definir a propriedade do list. tipo não correspondente

o codigo usado esta abaixo:

Private Sub Combo_emp_Click()


If Me.Option_empresa.Value = True Then


Set BANCO = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0")

Set TABELA = BANCO.OpenRecordset("select * from [contatos$] where  empresa = '" & Me.Combo_emp & "';")

Me.ListBox_pesquisausuarios.Clear

Do Until TABELA.EOF

           Me.ListBox_pesquisausuarios.AddItem TABELA("NOME")
         
           Me.ListBox_pesquisausuarios.List(i, 1) = TABELA("NOME")
         
           Me.ListBox_pesquisausuarios.List(i, 2) = TABELA("RAMAL")
          
           Me.ListBox_pesquisausuarios.List(i, 3) = TABELA("TELEFONE_RESIDENCIAL")
          
           Me.ListBox_pesquisausuarios.List(i, 4) = TABELA("CELULAR")
          
           Me.ListBox_pesquisausuarios.List(i, 5) = TABELA("EMAIL")
          
        i = i + 1
      
        
TABELA.MoveNext
Loop

BANCO.Close
End If
End Sub

Edited August 22, 2011 by kuroi
Adicionar tag CODE

[kuroi]

o valor do campo deve estar nulo no banco de dados. tente concatenar com um espaco em branco:

Me.ListBox_pesquisausuarios.List(i, 1) = TABELA("NOME") & vbNullString

ou

Me.ListBox_pesquisausuarios.List(i, 1) = TABELA("NOME") & ""

faca o mesmo toda a vez q for preencher o .List().

[alberto_acm]

Muito obrigado pela ajuda, foi muito util, deu tudo certo, valeu

Bom dia,

estou com um problema, vou relatar e peço a ajuda dos amigos.

fiZ uma agenda no em vba do excel, faço os lançamentos normalmente, mais quando faço a pesquisa pelo listbox,

me dá um erro de list, mais isto só acontece quando eu deixo algum campo sem colocar dados. como faço

pra resolver isto?

( erro); não foi possivel definir a propriedade do list. tipo não correspondente

o codigo usado esta abaixo:

Private Sub Combo_emp_Click()


If Me.Option_empresa.Value = True Then


Set BANCO = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0")

Set TABELA = BANCO.OpenRecordset("select * from [contatos$] where  empresa = '" & Me.Combo_emp & "';")

Me.ListBox_pesquisausuarios.Clear

Do Until TABELA.EOF

           Me.ListBox_pesquisausuarios.AddItem TABELA("NOME")
         
           Me.ListBox_pesquisausuarios.List(i, 1) = TABELA("NOME")
         
           Me.ListBox_pesquisausuarios.List(i, 2) = TABELA("RAMAL")
          
           Me.ListBox_pesquisausuarios.List(i, 3) = TABELA("TELEFONE_RESIDENCIAL")
          
           Me.ListBox_pesquisausuarios.List(i, 4) = TABELA("CELULAR")
          
           Me.ListBox_pesquisausuarios.List(i, 5) = TABELA("EMAIL")
          
        i = i + 1
      
        
TABELA.MoveNext
Loop

BANCO.Close
End If
End Sub