PREENCHENDO COMBO

IRENKO 20/01/2005 12:52:50
#61972
Amigos, tenho o sequinte código:

Private Sub UserForm_Initialize()


Set bdMat = OpenDatabase("C:\Estoque\Materiais.mdb")
Set tbLoc = bdMat.OpenRecordset("Localizacao", dbOpenTable)
FrmLoca.Lb_Contar1.Caption = tbLoc.RecordCount
tbLoc.Index = "iCod"
tbLoc.Index = "iDesc"
On Error Resume Next
tbLoc.MoveFirst
Atualizar
End Sub

No form tenho um combobox onde devo carregar os dados da tabela Tipo e campo descricao. Como faco para abrir as duas tabelas e fazer o carregamento do combo?

Fico agradecido,

Irenko
LGUSTAVOC 20/01/2005 13:03:05
#61974 Resposta escolhida
faça um Loop para ler do início ao fim da tabela:

Tabela.MoveFirst
Do Until Tabela.EOF
  Combo.AddItem Tabela!descricao
  Tabela.MoneNext
Loop


Para carregar a outra tabela é só fazer o mesmo procedimento depois
Tópico encerrado , respostas não são mais permitidas
Voltar