Sveinbjorn El Rojo

Puedes hacerlo de varias formas: 1º/ Usando consultas SQLs en el evento apropiado: Si quieres añadir registro nuevo: CurrentDb.Execute "INSERT INTO T_ENTRADA (nIVA) VALUES (" & Me.IVA & ")" CurrentDb.Execute "INSERT INTO T_IVA (nIVA) VALUES (" & Me....

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...

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...

Puedes hacerlo al menos de dos formas: 1º/ Modifica las propiedades de tu formulario para que no admita nuevos registros (Propiedades -> Pestaña Datos -> Permitir agregar: NO) 2º/ En tu botón siguiente programar este código: If Me.CurrentRecord <...

Al trabajar con fechas en una SQL has de usar el formato americano para evitar este tipo de errores. Cambia tu línea por esta otra: CurrentDb.Execute ("INSERT INTO Extractos_Bancarios_Movimientos ( Id_Extracto, Fecha_Valor, Concepto, [Debe/Haber],...

Sin saber exactamente cómo es el código que usas, te propondría que antes de enviarlo por correo (con DoCmd. SendObject...) lo abras filtrado (con DoCmd. OpenReport...). De esta forma te debiera funcionar. Mira esta otra pregunta, la idea es la...

¿Probaste a compilar el código de tu aplicación? Podría ser que tengas algún error en alguna línea de código (en ese o en otro procedimiento). Para depurar, abres el editor de VBA, vas al menú Depuración y pulsas en la primera opción: "Compilar ..."

Ponlo así: Docmd.OpenForm "Ficha de Alumno", , , "idalumno = " & Me.idalumno Suponiendo que el campo idalumno es numérico y que realmente esos son los nombres que tienen en la tabla (el que va antes del signo=) y en el formulario (el que va después...

La fórmula que necesitas podría ser ésta: Me.Bultos= IIf(Me.Cantidad/ Int(Me.Cantidad) = 1, Me.Cantidad, Int(Me.Cantidad) + 1) Es decir, que si la división entre el campo Cantidad y su parte entera es 1 (lo que significa que el numero no tiene...