Nando
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2004 17:20 hs
è o seguinte, estou montanto um sisteminha pra uma livraria. Há um banco que ficam cadastradas os nomes das editoras. Gostaria que quando o form de cadastro de tal livro fosse aberto, um combo carregasse todos os nomes de editoras que estão dentro do bd, mas isto esta me dando um problemão, se alguem puder me ajudar! |
|
|
|
|
|
ducksjr
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2004 17:56 hs
Se for para carregar o combo eu faço assim. Private Sub Form_Load() Tb.MoveMin
While Tb.EOF = False
Combo.AddItem (Tb.Fields("nomedocampo"))
Tb.MoveNext
Wend End Sub
Espero poder ter ajudado.
Acumule todas as riquezas que puder, comece sempre pelas mais valiosas, fé, familia, amigos, amores, saúde, etc... ducksjr.
|
|
|
|
|
|
Postada em 18/06/2004 19:51 hs
Nando, tenta Private Sub Form_Load() set banco=opendatabase(app.path & "ancodedados.mdb") set tabela=banco.openrecordset("tabela",dbopentable, dbreadonly) if tabela.bof = false and tabela.eof = false then tabela.moveMin do until tabela.eof combo1.additem tabela("nomecampo") tabela.movenext loop end if tabela.close banco.close End sub Espero ter ajudado,
Manuel F. L. Sansoni Supervisor de TI
|
|
|
|
|
