Consulta funcion GoToControl

Hola
Podrías ver sí el valor devuelto por DLookup es nulo o una cadena
vacía

If Not IsNull(First) AND Fist<>"" Then ...

De todos modos, no nos comentas sí te da un error, o que es lo que
pasa. Ponle un punto de interrupción a esa sentencia y comprueba su
valor.

Salu2
José Mª Fueyo
[MS MVP Access]

Yo ingreso un valor que es nulo, y el programa pasa al siguiente
campo, cuando yo le digo que se quede en el mismo DoCmd.GoToControl
("Projecto")
Si pruebo que salte a cualquier otro campo, lo hace bien, no logro que
se quede en el mismo campo "Projecto" para que sea ingresado un valor
correcto.

Gracias


On Sep 9, 5:13 am, José Mª Fueyo wrote:

Hola
Podrías ver sí el valor devuelto por DLookup es nulo o una cadena
vacía

If Not IsNull(First) AND Fist<>"" Then ...

De todos modos, no nos comentas sí te da un error, o que es lo que
pasa. Ponle un punto de interrupción a esa sentencia y comprueba su
valor.

Salu2
José Mª Fueyo
[MS MVP Access]

Hola de nuevo
Utiliza el procedimiento de evento "Antes de
actualizar" (BeforeUpdate). Sí el valor no cumple los criterios,
establece la variable Cancel a true

Private Sub Projecto_BeforeUpdate()
Dim First As Variant
First = DLookup("[PrjName]", "dbo_OPRJ", "[PrjCode] = Forms!
Registro!Projecto")
If Not IsNull(First) Then
Forms!Registro!Text94 = First
Else
MsgBox "Projecto NO VALIDO"
DoCmd.GoToControl ("Projecto")
Cancel=true
End Sub

Salu2
José Mª Fueyo
[MS MVP Access]