Auto Completar

[PASCOAL-PG 0]

Auto completar usando base de dados em um campo.text alguem pode me ajudar?

 

Urgente

 

Obrigado

 

Que DEUS nos ajude.

[Macêdo 0]

Explica melhor o que quer fazer colega, exemplo

 

Digitar numa text e preencher algum controle com campos do BD ?

Digitar e autocompletar uma combo com os dados do BD?

[PASCOAL-PG 0]

OLHA O QUE ESTOU FAZENDO :

 

 

Private Sub txtEndere_Change()

If NewReg = 0 Then

txtEndCobr.Text = txtEndere.Text

'txtEndEntr.Text = txtEndere.Text

End If

 

On Erro GoTo ErrHandler

Screen.MousePointer = vbHourglass

 

Dim LengthText As Integer

Dim NewText As Integer

Dim Answer As String

Dim LeftText As String

LengthText = Len(txtEndere.Text)

 

'pesquisar na base de dados acima de 3 caracteres informando no campo endereço

If LengthText > 3 Then

LeftText = txtEndere.Text

Data15.DatabaseName = Caminho & Arquivo

Data15.RecordSource = "Select * From [CLIENTES] Where [ENDERECO] Like '*" & LeftText & "*'"

Data15.Refresh

If Not (Data15.Recordset.EOF And Data15.Recordset.BOF) Then

Data15.Recordset.MoveFirst

End If

 

If LeftText = "" Then

Answer = ""

Else

Answer = Data15.Recordset.Fields("ENDERECO")

End If

NewText = Len(Answer)

 

If NewText = 0 Then

txtEndere.Text = LeftText

Else

txtEndere.Text = Answer

txtEndere.SelStart = LengthText

txtEndere.SelLength = Len(Answer) - LengthText

End If

Data15.Recordset.Close

End If

 

Screen.MousePointer = vbDefault

 

Exit Sub

ErrHandler:

Screen.MousePointer = vbDefault

MsgBox "Error:" & Err.Description

End Sub

 

SÓ QUE QUANDO ACHA O ENDEREÇO ELE FICA MARCADO TUDO A DIREITA AI FICA DIFICIL, A DIGITAÇÃO POR FAVOR VE O QUE ESTA DE ERRADO.....EU AGRADEÇO

 

OBRIGADO

 

E QUE DEUS NOS AJUDE.......................

[scorpio 7]

Você diz que, por exemplo,

O user digitou Amé e apareceu

Amélia Soares

 

Mas esse não seria a forma correta ?