A ver si alguien me puede ayudar.
1º Tengo un módulo llamado DETEXTO14
2º Tengo un formulario Ficha1--->
Private Sub Form_KeyPress(KeyAscii As Integer)
TEXTO14 = KeyAscii
End Sub
3º Un cuadro de lista en el que aparecen todos clientes--->
Private Sub Lista12_AfterUpdate()
Dim BUSCAR
BUSCAR = Me.Lista12.Column(0) 'Este es el dato que busca
DoCmd.FindRecord BUSCAR, acEntire, False, , True
Me.Lista12.SetFocus
End Sub
4º y un cuadro de texto de busqueda-->
Private Sub Texto12_Change()
If TEXTO14 = 32 Then Texto12 = Texto12 & " "
If TEXTO14 = 8 Then Texto12 = Left(Texto12, Len(Texto12) - 1)
Me.Refresh
Me.Lista12.Requery
Me.Lista12.Selected(0) = True
Dim BUSCAR
BUSCAR = Me.Lista12.Column(0) 'Este es el dato que busca
If Not IsNull(BUSCAR) Then
DoCmd.GoToControl "IdFicha"
DoCmd.FindRecord BUSCAR, acEntire, False, , True
End If
Me.Texto12.SetFocus
End Sub
Qué estoy haciendo mal que no me deja poner espacios, p. ejemplo entre nombre y apellido?
Gracias de antemano.
