Spanish Cómo fijo el foco en un campo?

[aja]

Buenas tardes colegas,
molestando por una pavada pero no encuentro la forma de hacerlo.
tengo un campo Private EditDni As B4XView y lo estoy validando. Entonces quiero que quede el foco en el campo cuando no es válido.
Muchas gracias.

 

[angel_]

Prueba:

EditDni.RequestFocus

 

[aja]

Prueba:

EditDni.RequestFocus

Gracias Angel por contestar.
Es lo primero que intenté. Pero no me funciona.
Es una simple validació:
Private Sub EditDni_EnterPressed
Private Query As String
Private ResultSet1 As ResultSet

Query = "SELECT id, apeynom, tel1, tel2, tel3 FROM fiscales WHERE dni = " & EditDni.Text
'Log(Query)
ResultSet1 = SQL1.ExecQuery(Query)
ResultSet1.NextRow
If ResultSet1.RowCount = 0 Then
xui.MsgboxAsync("No Existe D.N.I.", "Error")
EditDni.RequestFocus

Else
num_fiscal = ResultSet1.GetString("id")
name_fiscal = ResultSet1.GetString("apeynom")
End If
ResultSet1.Close
End Sub

 

[angel_]

Debería funcionar pero sino prueba esta otra opción:

Dim sf As Object = xui.Msgbox2Async("No Existe D.N.I.", "Error", "OK", "", "", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
    EditDni.RequestFocus
End If

 

[aja]

Debería funcionar pero sino prueba esta otra opción:

Dim sf As Object = xui.Msgbox2Async("No Existe D.N.I.", "Error", "OK", "", "", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
    EditDni.RequestFocus
End If

Muchas gracias Angel, funcionó!!
Le saqué el if nomás, porq' en este caso no es necesario.
Muy amable de tu parte ayudar a los que somos principiantes en esto!
If ResultSet1.RowCount = 0 Then
Dim sf As Object = xui.Msgbox2Async("No Existe D.N.I.", "Error", "OK", "", "", Null)
Wait For (sf) Msgbox_Result (Result As Int)
'If Result = xui.DialogResponse_Positive Then
EditDni.RequestFocus
'End If