Propiedad Screen.PreviousControl (Access)

Utilice la propiedad PreviousControl junto con el objeto Screen para devolver una referencia al control que recibió por última vez el foco. Solo lectura.

Sintaxis

expresión. PreviousControl

Expresión Variable que representa un objeto Screen .

Comentarios

La propiedad PreviousControl contiene una referencia al control que recibió el enfoque por última vez. Después de establecer una referencia al control, puede acceder a todas las propiedades y métodos del control.

No se puede utilizar la propiedad PreviousControl hasta que más de un control de cualquier formulario haya recibido el enfoque después de abre un formulario. Microsoft Access genera un error si se intenta utilizar esta propiedad cuando sólo un control en un formulario ha recibido el foco.

Ejemplo:

En el ejemplo siguiente se muestra un mensaje si el último control que ha recibido el enfoque no era el cuadro de texto txtFinalEntry.

Public Function ProcessData() As Integer 
 
 ' No previous control error. 
 Const conNoPreviousControl = 2483 
 Dim ctlPrevious As Control 
 
 On Error GoTo Process_Err 
 
 Set ctlPrevious = Screen.PreviousControl 
 If ctlPrevious.Name = "txtFinalEntry" Then 
 ' 
 ' Process Data Here. 
 ' 
 ProcessData = True 
 Else 
 ' Set focus to txtFinalEntry and display message. 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value here." 
 ProcessData = False 
 End If 
 
Process_Exit: 
 Set ctlPrevious = Nothing 
 Exit Function 
 
Process_Err: 
 If Err = conNoPreviousControl Then 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value to process.", vbInformation 
 ProcessData = False 
 End If 
 Resume Process_Exit 
 
End Function

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.