Sveinbjorn El Rojo

Asóciale este código a tu botón, en vez de la macro del asistente: DoCmd.OpenForm "productor",,,"cedula=" & Me.cedula & " AND nfinca=" & Me.nfinca Un saludo. http://nksvaccessolutions.com/Foro/ http://nksvaccessolutions.com/academy/

Tienes mal la sintaxis, sería así: Me.PRECIO = DLookup("[P UNITARIO]", "02 Pedidos Partidas", "[NROLLO]='" & ORIGINAL & "' And [nPED]=" & PED) Si he entendido bien y NROLLO es un campo de texto, nPED numérico y ORIGINAL y PED son los cuadros de texto...

Normal que no te actualice: si trabajas con una copia del recordset (el recordsetclone) no lo estás haciendo con los datos que quieres actualizar (el recordset origen de tu subformulario, que será una tabla de tu BD). Es como si tienes un word, lo...

Fácil: Imagino que en tu botón tendrás algo como esto: Me.Factura=buscaArchivo pues tan solo tienes que cambiarlo por esto otro: Dim miArchivo As String miArchivo = BuscaArchivo Me.txtTest = Right(miArchivo, Len(miArchivo) - InStrRev(miArchivo, "\"))...

¿Y qué problema tienes para hacer esa consulta? Solo has de coger los campos que quieras de cada tabla y te sale. ¿Esa es la forma más adecuada de estructurar las tablas? Con la poca información que aportas en imposible de decir. Puede que sea la más...

Sí, hay una forma y muy sencilla: lanzar el informe desde un formulario en el que escribes el nombre del profesor en un cuadro de texto, y la consulta, en vez de usar el criterio [que profesor], la vinculas al cuadro de texto del formulario. Es muy...

Puedes hacerlo usando la función DCount(): If DCount("*";"NombreTabla","NombreCampo='" & Me.nombreCuadroTexto & "'")>0 Then MsgBox "Ese valor ya existe" Me.nombreCuadroTexto2="Ese valor ya existe" Me.NombreEtiqueta.Caption="Ese valor ya existe" End...

Sin saber lo que tienes es difícil sugerirte soluciones. Pero independientemente de eso, en la web de Neckkito tienes varios ejemplos sobre agendas explicados paso a paso y con una BD de ejemplo:...

Si el campo común en las tablas y en los formularios se llama realmente "txt_arete", el código sería así, si el campo es numérico: DoCmd.OpenForm "PESOS_INGRESO", acNormal,,"txt_arete=" & Me.txt_arete o así, si es de tipo texto: DoCmd.OpenForm...

Hazlo así: On error goto sol_err if not isfull(me.rutafoto2015) then me.foto2015.picture=me.rutafoto2015 else me.foto2015.picture="" end if Salida: Exit Sub sol_err: If Err.Number=2220 Then me.foto2015.picture="" Else Msgbox "Se ha producido el error...