silens
31 de Octubre del 2005

Private Sub BUSQUEDA_SECUENCIAL_Change()

BUSCAR_CLIENTE = "" ' Borro lo que hay en buscar cliente ya que voy a buscar en busqueda secuencial

With CodeContextObject


If BUSQUEDA_SECUENCIAL.SelStart <> 0 Then
DoCmd.GoToControl "razon"
DoCmd.FindRecord .BUSQUEDA_SECUENCIAL, acStart, acCurrent, acSearchAll
'acStart: indica que se buscará al principio del campo
'acCurrent: especifica que la búsqueda se limita al campo actual de cada registro
'acSearchAll: desde el registro activo hacia el final de los registros y luego desde el principio de los registros hasta el registro activo, de forma que se busque en todos los registros


BUSQUEDA_SECUENCIAL.SetFocus
BUSQUEDA_SECUENCIAL.SelStart = Len(BUSQUEDA_SECUENCIAL)
End If
End With

End Sub

he conseguido mover el cursor pero no puedo hacer
que deje un espacio, (BUSQUEDA SECUENCIAL)