Problema con SetFocus al salir de una funcion publica access 2007

21/07/2010 - 23:48 por alfcedano | Informe spam
Saludos a todos. Me he pasado una hora leyendo en este grupo al cual
le debo casi todo lo que he aprendido y no encuentro manera de hacer
lo que expongo mas abajo.

Me he creado un formulario que simula un inputbox para pasarle el
contenido de un cuadro independendiente del mismo como criterio a una
consulta. Hasta ahi todo bien.

Pero quiero que cuando el usuario introduzca un dato incorrecto reciba
un mensaje de volver a introducir los datos y que el SetFocus se ponga
sobre el cuadro independiente del formulario, dicho control se llama
"Dato" y el formulario se llama FormInputBox.

Muchas gracias de antemano. Y no duden en hacerme cualquier
senalamiento sobre el codigo, pues no soy un experto programador.

P.D. Una otra pregunta: Ya este grupo no se puede configurar para leer
los mensajes desde WindowsMail, como uno lo hacia con Outlook? Yo
tengo Windows Vista.
Gracias.

He aqui mi codigo.



Public Function BautismoIndicePorLibro()
On Error GoTo errManejoError2501

Dim strCriterio As String
Dim strMensaje As String
Dim strTitulo As String

strNombreObjeto = "BautismoIndicePorLibro"
strMensaje = "Introduzca el LIBRO DE BAUTISMO a consultar..."
strTitulo = "< Programa Parroquial. Reporte de Bautismo por Libro

"




strCriterio = Forms!FormInputBox![Dato]
If IsNumeric(strCriterio) Then
strCriterio = "[BautismoLibro] LIKE '*" & strCriterio & "*'"
DoCmd.Close acForm, "FormInputBox", acSaveYes
'FALTA COMPROBAR QUE REPORTE NO ESTA ABIERTO..
DoCmd.OpenReport strNombreObjeto, acViewPreview, , strCriterio
Else
MsgBox "El tipo de Dato que introdujo no es correcto, intentelo de
nuevo"
Forms!FormInputBox.SetFocus 'Aqui no me da el Focus donde lo
quiero
Forms!FormInputBox!Dato.SetFocus 'Aqui no me da el Focus donde lo
quiero
Exit Function
End If
Exit Function

errManejoError2501:
If Err <> 2501 Then
MsgBox Err.Number & ": " & Err.Description
End If
End Function
 

Leer las respuestas

#1 José Mª Fueyo
22/07/2010 - 14:13 | Informe spam
Hola
Estos grupos de noticias, ya no están en funcionamiento. Por ello no
los puedes configurar en Windows mail o en OE.
Para exponer dudas y problemas, puedes ir a uno de estos dos sitios
(aparte de otros posibles foros externos a MS)

http://social.answers.microsoft.com...es/threads

http://social.msdn.microsoft.com/Fo...es/threads

Salu2,
José Mª Fueyo
[MS MVP Access]

Preguntas similares