Oi Galera!

 

Como faço para mostrar o conteudo de um campo acessando a tabela com o componente DATA? Estou usando esse codigo abaixo, mas não mostra nada.

Grato!

 

Private Sub cboMerc_Click()
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveMin
Do While Not Data1.Recordset.EOF
cboMerc.AddItem Data1.Recordset.Fields("Descrição")
Data1.Recordset.MoveNext
Loop
End If
End Sub

Aparentemente está correto o seu código.

Veja se realmente tem registros na sua tabela, sei q é uma dica boba mas às vezes não prestamos atenção...

 

Se ainda assim não estiver adicionando faça assim:

 

O DAO tem um BUG meio chato... o recordcount dele não funciona com precisão então faça nesta ordem:  Data1.Recordset.MoveL ast : Data1.Recordset.MoveF irst antes da consistência usando o recordcount.

 

Pode ser q não seja isso mas vamos testando as possibilidades. O código acima já usei muito e é deste jeito mesmo mas por garantias testei o q vc postou e funcionou.

 

Vamos ver usando esta "gambiarra" ele faz o q vc quer blz??

 

qq coisa é só postar

 

t+

eh! Não deu certo. Valeu!!

Acho que vou fazer essa pesaquisa de outro jeito.

Deu algum erro ou ele simplesmente não adiciona itens à sua combobox??