Dlookup con varios criterio
Fabricio
Me explico; el script adjunto lo que debe hacer es direccionar la hora
a un campo dependiendo si un trabajador ya se registro antes o no
entonces buscara el trabajador que es un numero y la fecha en una
tabla que se llama asistencia si en la tabla el trabajador no figura
en la fecha de hoy entonces marcara hora de entrada y si ya se
registro el dia de hoy entonces marcara salida. El script es como
sigue pero no me funciona, me bota "error no coinciden los tipos".
En la funcion Dlookup de deben de cumplirse dos criterios al mismo
tiempo el [Trabajador] y [Fecha]
Para esto:
La tabla se llama Asistencia
Los Campos: idregistro, trabajador, fecha, entrada, salida
El script lo aplico en un formulario que se llama tambien Asistencia y
tambien llevan controles con los mismos nombres(trabajador, fecha,
entrada, salida) todos los controles son cuadros de texto y el script
esta en el cuadro de texto [Trabajador].
Private Sub Trabajador_AfterUpdate()
If DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " & Me!
[Trabajador]" And "[fecha]=#&Date()&#") = Me![Trabajador] Then
Me![Nombres] = DLookup("[Nombres]", "Trabajadores",
"[IdTrabajador]=" & Me![Trabajador])
Me![Apellidos] = DLookup("[Apellido Paterno]&' '&[Apellido
Materno]", "Trabajadores", "[IdTrabajador]=" & Me![Trabajador])
Me![OLEDependiente12] = DLookup("[Fotografia]", "Trabajadores",
"[IdTrabajador]=" & Me![Trabajador])
Me![Fecha] = Date
Me![Salida] = Time()
Else
Me![Nombres] = DLookup("[Nombres]", "Trabajadores",
"[IdTrabajador]=" & Me![Trabajador])
Me![Apellidos] = DLookup("[Apellido Paterno]&' '&[Apellido
Materno]", "Trabajadores", "[IdTrabajador]=" & Me![Trabajador])
Me![OLEDependiente12] = DLookup("[Fotografia]", "Trabajadores",
"[IdTrabajador]=" & Me![Trabajador])
Me![Fecha] = Date
Me![Entrada] = Time()
End If
End Sub
Ju@nK
DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " & Me!
[Trabajador]" And "[fecha]=#&Date()&#")
...
Tienes mal las comillas, prueba
DLookup("[Trabajador]", "Asistencia", "[Trabajador] = " & Me![Trabajador] &
" And [fecha]=#" & Date() & "#")
y si trabajador es un string, debes poner comillas simples tambien:
DLookup("[Trabajador]", "Asistencia", "[Trabajador] = '" & Me![Trabajador] &
"' And [fecha]=#" & Date() & "#")
"Fabricio" <fabri...@gmail.com> escribi� en el mensaje de
noticias:1dcc586c-18fb-4527...@a13g2000vbf.googlegroups.com...
--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/10
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.es
�Que es un MVP?, ent�rate en http://mvp.support.microsoft.com
**
Fabricio
> En la parte ...
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " & Me!
> [Trabajador]" And "[fecha]=#&Date()&#")
> ...
>
> Tienes mal las comillas, prueba
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador] = " & Me![Trabajador] &
> " And [fecha]=#" & Date() & "#")
>
> y si trabajador es un string, debes poner comillas simples tambien:
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador] = '" & Me![Trabajador] &
> "' And [fecha]=#" & Date() & "#")
>
> noticias:1dcc586c-18fb-4527-9a4c-7667f68e2...@a13g2000vbf.googlegroups.com...
> Correos personales o preguntas particulares en mi grupohttp://groups.google.es/group/juank?hl=eswww.juank.es
> **
Gracias probare con eso, [Trabajador] no es un string es un campo de
la tabla "Asistencia".
Fabricio
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " & Me!
> [Trabajador]" And "[fecha]=#&Date()&#")
> ...
>
> Tienes mal las comillas, prueba
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador] = " & Me![Trabajador] &
> " And [fecha]=#" & Date() & "#")
>
> y si trabajador es un string, debes poner comillas simples tambien:
>
> DLookup("[Trabajador]", "Asistencia", "[Trabajador] = '" & Me![Trabajador] &
> "' And [fecha]=#" & Date() & "#")
>
> noticias:1dcc586c-18fb-4527-9a4c-7667f68e2...@a13g2000vbf.googlegroups.com...
> Correos personales o preguntas particulares en mi grupohttp://groups.google.es/group/juank?hl=eswww.juank.es
> ¿Que es un MVP?, entérate enhttp://mvp.support.microsoft.com
> **
Hola nuevamente gracias por tu tiempo:
Hice lo que me sugeriste pero la linea se pone en rojo, pero si coloco
las comillas asi:
(El script no arroja errores pero no funciona la condicionalidad de la
funcion IF, a pesar que las condiciones de trabajador y fecha se
cumplen, es decir solo me arroja el resultado de luego de la sentencia
ELSE )
If DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " & Me!
[Trabajador]&" And [Fecha] = "#&Date()&#") = Me![Trabajador] Then
Patxi Sanz
Me![Trabajador]&" And [Fecha] = "#&Date()&#")
El igual (=) que hay detr�s de "[Trabajador]" est� fuera de las comillas,
con lo que Access estiende que est�s haciendo una comparaci�n, pero fuera
del DLookup.
Adem�s, unes los & con las palabras anteriores y posteriores, con lo que
vuelves loco a Access. Si quieres unir las palabras, deja un espacio antes y
despu�s de cada &.
Y si quieres poner almohadillas (#) a una fecha, ind�calas dentro de las
comillas para que Access sepa que es parte del texto, no fuera para que
Access no sepa que hacer con ellas.
Y ya que estamos, las fechas siempre en formato americano, o en n�mero.
If DLookup("[Trabajador]", "Asistencia", "[Trabajador] = " & Me![Trabajador]
& " And [Fecha] = #" & Format(Date(), "mm/dd/yyyy") & "#") = Me![Trabajador]
Then
P.D.: si Trabajador es un texto, hay que agregar m�s comillas para que
Access sepa que es eso: un texto.
--
Un saludo,
Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/
Ju@nK
y repasa todo para ver que tienes bien las comillas, que se te desmadran.
Nota: Cuando digo (decimos) "un string" queremos decir que es un Campo de
tipo string, dicho en castellano, de tipo Texto.
--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/10
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
�Que es un MVP?, ent�rate en http://mvp.support.microsoft.com
**
"Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribi� en el mensaje
news:EFD8D7F2-FB37-4A69...@microsoft.com...
Fabricio
> El = esta en donde cuadre fuera y dentro, prueba como te lo puso Patxi Sanz
> y repasa todo para ver que tienes bien las comillas, que se te desmadran.
>
> Nota: Cuando digo (decimos) "un string" queremos decir que es un Campo de
> tipo string, dicho en castellano, de tipo Texto.
>
> --
> --
> **
> Salu2/Regards
> Ju@nK [MVP Access] 2006/10
> Correos personales o preguntas particulares en mi grupohttp://groups.google.es/group/juank?hl=eswww.juank.tk
> **
> "Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribi en el mensajenews:EFD8D7F2-FB37-4A69...@microsoft.com...
>
>
>
> > If DLookup("[Trabajador]", "Asistencia", "[Trabajador]" = " &
> > Me![Trabajador]&" And [Fecha] = "#&Date()&#")
>
> > El igual (=) que hay detr s de "[Trabajador]" est fuera de las comillas,
> > con lo que Access estiende que est s haciendo una comparaci n, pero fuera
> > del DLookup.
>
> > Adem s, unes los & con las palabras anteriores y posteriores, con lo que
> > vuelves loco a Access. Si quieres unir las palabras, deja un espacio antes
> > y despu s de cada &.
>
> > Y si quieres poner almohadillas (#) a una fecha, ind calas dentro de las
> > comillas para que Access sepa que es parte del texto, no fuera para que
> > Access no sepa que hacer con ellas.
>
> > Y ya que estamos, las fechas siempre en formato americano, o en n mero.
>
> > If DLookup("[Trabajador]", "Asistencia", "[Trabajador] = " &
> > Me![Trabajador] & " And [Fecha] = #" & Format(Date(), "mm/dd/yyyy") & "#")
> > = Me![Trabajador] Then
>
> > P.D.: si Trabajador es un texto, hay que agregar m s comillas para que
> > Access sepa que es eso: un texto.
>
> > --
> > Un saludo,
>
> > Patxi Sanz
> > Tudela (NA)
> >http://www.pasa.es.tt/
Gracias chicos por su ayuda el codigo ya esta funcionando de las mil
maravillas, solo queria agraderceles y si me pueden recomendar alguna
web donde aprender el uso de las almodillas, las comillas para poder
practicar mas acerca de las sintaxis de las funciones tipo dlookup y
otras mas.
Atentamente.
Fabricio, gracias me fueron de mucha ayuda sus consejos en especial a
ti Patxi Sanz.
Ju@nK
--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
�Que es un MVP?, ent�rate en http://mvp.support.microsoft.com
**
"Fabricio" <fabri...@gmail.com> escribi� en el mensaje
news:534dc96c-7d12-4185...@d27g2000yqf.googlegroups.com...
Patxi Sanz
grupo, hay muchos con ejemplos de uso de comillas y almohadillas.