Hola a todos,
tengo un control combobox enlazado a una data
funciona bien, incluso tiene un procedimiento para buscar escribiendo dentro de él
el drama es que me modifica los datos que muestra.
Por ejemplo, si el combo despliega los nombres Juan, Claudio, Teresa, Isabel, y
escojo Teresa, me modifica Juan y a claudio con el nombre Teresa.
Lo peor es que esto ni siquiera sucede siempre. Puede pasar una de cada 5 veces que
se ingresa al combo.
Este codigo le tengo puesto:
Data3.Recordset.FindFirst "ucase(nombre) = '" & (Combo1.Text) & "'"
y el procedimiento:
Sub BuscaCombo(ByRef KeyAscii As Integer)
If KeyAscii < 32 Then Exit Sub
Dim Posic As Long, Buscar As String
On Error Resume Next
With Screen.ActiveControl
If .SelLength = 0 Then
Buscar = .Text & Chr$(KeyAscii)
Else
Buscar = left$(.Text, .SelStart) & Chr$(KeyAscii)
End If
Posic = SendMessage(.hWnd, &H14C, -1, ByVal Buscar)
If Posic <> -1 Then
.ListIndex = Posic
.SelStart = Len(Buscar)
.SelLength = Len(.Text) - .SelStart
KeyAscii = 0
End If
End With
On Error GoTo 0
End Sub
Alguien sabe por qué me pasa eso?
Gracias.
