Problemas con el método SetFocus Enlace directo a este mensaje aikrana 5 horas 57 minutos a las 11:03 Editar mensaje Editar Cita aikrana Cita Responder Respuesta Buenas,
Tengo alguna duda sobre el método SetFocus
En principio por lo poco que se de access (algo de programación entiendo, C++ y Python) me debería tener "foco" sobre un Cuadro de Texto al que apunto en la expresión:
Me.searchCode.SetFocus
Y mi pregunta, ya que existen diferentes configuraciones en la Hoja de Propiedades, hay alguna configuración para que SetFocus este activo y funcione correctamente, o algo que impida que el cursor se quede donde estoy apuntando con este método, ya que no va a este campo nunca, salta a otro ( en este caso al que puse en las condicionales al pasar por ellas, pero nunca va a "Me.searchCode.SetFocus" )
Saludos
VBA V.7.1
copio un poco de código:
Private Sub searchCode_Exit(Cancel As Integer)
Dim sql As String
Dim sql2 As String
If machine.Value = "UW-F4" Then
If Not IsNull(searchCode.Value) Then
sql = "Select Description From ErrorLogsUWF4 Where Error Like '" & Me.searchCode.Value & "' Order by id"
Me.List3.RowSource = sql
sql2 = "Select Unit From ErrorLogsUWF4 Where Error Like '" & Me.searchCode.Value & "' Order by id"
Me.Lista17.RowSource = sql2
searchCode.BorderColor = vbWhite
Else
If IsNull(searchCode.Value) Then
Me.searchCode.BorderColor = vbRed
Me.searchCode.SetFocus
End If
End If
End If
If machine.Value = "BRM-10" Then
If Not IsNull(searchCode.Value) Then
sql = "Select Description From ErrorLogsBRM10 Where Error Like '" & Me.searchCode.Value & "' Order by id"
Me.List3.RowSource = sql
sql2 = "Select Unit From ErrorLogsBRM10 Where Error Like '" & Me.searchCode.Value & "' Order by id"
Me.Lista17.RowSource = sql2
End If
End If
Me.searchCode.SetFocus
```
End Sub
Me.searchCode.SetFocus()
?