Como devolver el foco a un cuadro de texto
Publicado por Juan Carlos (18 intervenciones) el 24/06/2002 15:45:10
Hola Tengo un Problema en el codigo de mi formulario el cual es el Siguiente despues de actualizar le pido que busque y me muestre los siguientes datos
Private Sub Texto15_AfterUpdate()
If Not Me.Texto15 = " " Then
If Me.Texto15 = DLookup("[RUT]", "IDPERSONAL", "[RUT]= Texto15") Then
Me.Texto18 = DLookup("[Nombres]", "IDPERSONAL", "[RUT]= Texto15")
Me.Texto35 = DLookup("[Apellidos]", "IDPERSONAL", "[RUT]= Texto15")
Else
MsgBox (" EL RUT NO EXISTE ")
** Me.Texto15.SetFocus <------ Este es mi problema no devuelve el foco al texto15 me pueden ayudar **
Me.Texto15 = " "
Me.Texto35 = " "
End If
Private Sub Texto15_AfterUpdate()
If Not Me.Texto15 = " " Then
If Me.Texto15 = DLookup("[RUT]", "IDPERSONAL", "[RUT]= Texto15") Then
Me.Texto18 = DLookup("[Nombres]", "IDPERSONAL", "[RUT]= Texto15")
Me.Texto35 = DLookup("[Apellidos]", "IDPERSONAL", "[RUT]= Texto15")
Else
MsgBox (" EL RUT NO EXISTE ")
** Me.Texto15.SetFocus <------ Este es mi problema no devuelve el foco al texto15 me pueden ayudar **
Me.Texto15 = " "
Me.Texto35 = " "
End If
Valora esta pregunta


0