Olá amigos:

Gostaria de saber como faço para fazer um autopreenchimento de uma combo.

Eu peguei um projeto exemplo que encontrei na net, esta assim:

 

Option Explicit
Global Combo As String
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nsize As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_ERR = -1
Public Const CB_FINDSTRING = &H14C

Sub AutoProcura(cbo As ComboBox, KeyAscii As Integer)
Dim sBuffer As String
Dim lRetVal As Long
sBuffer = Left(cbo.Text, cbo.SelStart) & Chr(KeyAscii)
lRetVal = SendMessage((cbo.hwnd), CB_FINDSTRING, -1, ByVal sBuffer)
If lRetVal <> CB_ERR Then
    cbo.ListIndex = lRetVal
    cbo.Text = cbo.List(lRetVal)
    cbo.SelStart = Len(sBuffer)
    cbo.SelLength = Len(cbo.Text)
    KeyAscii = 0
End If
End Sub

Private Sub cboTeste1_KeyPress(KeyAscii As Integer)
AutoProcura cboteste1, KeyAscii
End Sub

Private Sub cboTeste2_KeyPress(KeyAscii As Integer)
AutoProcura cboteste2, KeyAscii
End Sub

 

As combos tem dados na propriedade list, dai elas estão puxando os dados.
Mas no meu caso as combos não tem nenhum dado na propriedade list, elas simplesmente carregam as informações de outras tabelas.

Como faria pra adaptar ao meu projeto??

eu estou usando este modulo
mais eu usa assim

    While Not bd_Funcionario.EOF
        txt_cad_fun.AddItem bd_Funcionario("bd_ape") & ""
        bd_Funcionario.MoveNext
    Wend

Não entendi, amigo Edson.

O unico problema é fazer com q os dados salvos na combo aparecem quando for digitando o dado em outra combo, ou em caixa de texto.

Alguem pode me ajudar?

Rotina de carga do Combo:

 

'No Modulo

Sub CAREGA_COMBO (Formu As Form)

  SQL = "Select combo As A From Cliente"

  Set MSS = DB.OpenRecordset (SQL)

  While Not MSS.EOF

  Formu.Combo.AddItem    MSS("A")

  MSS.MoveNext

  Wend

End Sub

 

'No Form

Sub Form_load()

.

.

.

CARREGA_COMBO Form1

End Sub

 

Note q COMBO sera sua combobox...

 

Qlq duvida post, falows!!!

Leandro,

 

vc quer saber como que apareça ex.: todos os clientes em um combo de seu formulário, é isso!?!?!

 

abraços