ohmygood

supongamos que ref es numerico: dim ref as double ref = 7000 DoCmd.ApplyFilter , "referencia like " & ref & "*" supongamos que ref es texto: dim ref as string ref = 7000 DoCmd.ApplyFilter , "referencia like '" & ref & "*'"

Supongo que te refieres al número de la semana. me.texto333 = format(date,"ww") Texto333 es el nombre de la caja de texto.

En el informe pones un objeto imagen o un marco independiente, supongamos que este objeto se llama imagen1 Luego en la sección donde tengas este objeto pones el siguiente código me.imagen1.picture = me.nombre_campo_ruta Pruébalo.

Las pones en una carpeta, y en la tabla en vez de poner la imagen, pones un campo texto lo puedes llamar al campo por ejemplo ruta_foto en este campo se escribirá la ruta completa donde se sitúa la imagen incluida la extensión Luego en el formulario...

Abre el editor de vba, o un módulo y ves al menú herramientas - referencias, si en la lista te pone falta o missing en alguna, desmárcala.

=int(DifFecha("a";[Fecha Nacimiento];Ahora())/365)

Siento decirte que esto no es posible.

Pues según la tecla que quieras utilizar se realiza de una forma o de otra... si lo que quieres es utilizar por ejemplo teclas tipo F1 F2 F3, etc.. debes utilizar una macro... tienes algo de esto en mi página web, échale un vistazo...

Puedes poner esta función en un modulo: Public Function emailvalido(validar As String) If InStr(1, validar, "@") > 0 Then If InStr(1, validar, ".") > 0 Then Else emailvalido = 2 Exit Function End If Else emailvalido = 2 Exit Function End If...

Supongo que ya lo tendrás solucionado pero por si acaso... if len(me.codcliente) > 0 then DoCmd.OpenReport "Clientes",acViewNormal,"", "[CodCliente] = [forms] ! [Nombre] ! [CodCliente] " else msgbox "introduzca el codigo del cliente... p favor..." end if