Carregar um campo da tabela na lista da COMBO..

[coldcase 0]

Vai ai o codigo completo do form:

 

Private Sub cmdPESQUISAR_Click()		' ------------------.' Sistema de busca  |' ------------------'				Dim Nome As String		Dim Registro As Variant			Nome = InputBox("Digite o nome da Praça desejada: ", " Localizar")				If Nome = "" Then   ' CASO NAO DIGITADO NADA		   Exit Sub		 ' FIM DE BUSCA		End If						Registro = datPrimaryRS.Recordset.Bookmark		datPrimaryRS.Recordset.MoveFirst					datPrimaryRS.Recordset.Find "Nome like '" & Nome & "%'"					  ' ------------------.' Caso nao encontre |' ------------------'				If datPrimaryRS.Recordset.EOF Then		   datPrimaryRS.Recordset.Bookmark = Registro' MENSAGEM DE ERRO		   MsgBox ("PRAÇA NÃO LOCALIZADA!")		End IfEnd Sub'*******************************************************************Private Sub Combo2_Change()datPrimaryRS.Recordset.Find "nome='" & Combo2.Text & "'"End SubPrivate Sub Form_Load()While Not datPrimaryRS.Recordset.EOFCombo2.AddItem datPrimaryRS.Recordset!NomedatPrimaryRS.Recordset.MoveNextWendEnd Sub

[Luizgrs 0]

Esse form é só para pesquisa né?

Tenta fazer com sql, muda lá a propriedade do data RecordSetType para Dynaset:

Private Sub Combo2_Change()datPrimaryRS.Recordset.recordsource = "select * from tabela_nome where nome='" & Combo2.Text & "'"End Sub

[luiz humberto 0]

Dê uma olhada nesta busca que fiz no site do Macoratii, acho que pode te ajudar

ComboBox

Bons Estudos !!

[coldcase 0]

Esse form é só para pesquisa né?

Tenta fazer com sql, muda lá a propriedade do data RecordSetType para Dynaset:

Private Sub Combo2_Change()datPrimaryRS.Recordset.recordsource = "select * from tabela_nome where nome='" & Combo2.Text & "'"End Sub

<{POST_SNAPBACK}>

Onde eu mudo pra Dynaset??

[Luizgrs 0]

A Propriedade RecordsetType do Data.

[coldcase 0]

desculpa cara, mas onde eu altero isso..nao ta caindo minha ficha[]´s

[Luizgrs 0]

Você ta usando um controle Data para mexer com o Bd num tá? Então nas propriedades desse controle (aquela janela que fica na direita da tela, padrão) muda a propriedade RecordsetType.