Hola a todos, estoy realizando un programa, y necesito realizar un reporte.

Les explico, el sistema que estoy realizando es uno de factura, produccion, compras y demas. entonces el problema es el siguiente..

Yo tengo los datos del cliente y cargo el nombre desde la tabla cliente en un comboBox, lo q quiero es que mientras voy escribiendo el nombre, siga seleccionando las coincidencias, y asi hasta llenar al nombre q quiero no se si me entiendan, aqui un ejemplo...

dentro del combobox tengo

Carlos
Pedro
Marco
Paul
Ricardo
Rafael

Entonces si en el comboBox empiezo a escribir R el comboBox cambiaria su contenido

Ricardo
Rafael

Esos serian los nuevo campos... el efecto que le digo logro con un textBox y un data grid.. pero quiero el mismo efecto con un combo

aqui les dejo el codigo del textBox


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] mskbusqcedula_TextChanged([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Object[/color][/color], [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] mskbusqcedula.TextChanged


ClienteBindingSource.Filter = ([color=#a31515 size=2][color=#a31515 size=2]"cli_cedula like '"[/color][/color] + mskbusqcedula.Text + [color=#a31515 size=2][color=#a31515 size=2]"%'"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub






BUeno si alquien se imagina una solucion se los agradezco...[/color][/color]

Hola,

Me imagino que estaras programandobajo Access con vba, si es asi prueba esto :


Public mb As Database
Public str As String

Private Sub Form_Load()
Dim rs As Recordset

Set mb = CurrentDb

'Cargamos el combo
Set rs = mb.OpenRecordset("select nombre from nombres order by nombre", dbOpenDynaset)

rs.MoveFirst
Do While Not rs.EOF
cbo.AddItem rs("Nombre")
rs.MoveNext
Loop

rs.Close
End Sub

Private Sub cbo_Change()
If Len(Trim(cbo.Text)) = 0 Then
str = ""
End If
End Sub

Private Sub cbo_KeyPress(KeyAscii As Integer)
Dim s As String

If KeyAscii = 8 Then
str = Left(str, Len(str) - 1)
Else
str = str & Chr(CLng(KeyAscii))
End If

'Limpiar combo
Do While Not cbo.ListCount = 0
cbo.RemoveItem (0)
Loop

'Creamos la select
s = "select nombre from nombres where nombre like '" & Trim(str) & "*' order by nombre"

'Cargamos los resultados en el combo
Set rs = mb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
cbo.AddItem rs("Nombre")
rs.MoveNext
Loop
End If
rs.Close

End Sub

Espero que te sirva.

Un saludo.

Hola Naisha, fijate que el codigo que puso es de .NET por lo que debe estar trabajando ahi... chequea este link de el guille...

Auto completar en Visual Basic y C# 2003

saludos.