Sveinbjorn El Rojo

Si con lo que se trató en este otro foro te sirve, yo creo que sí: http://nksvaccessolutions.com/Foro/viewtopic.php?f=7&t=410

Partiendo de que lo que te comenta Jacinto (un saludo, por cierto) para evitar los mensajes es totalmente correcto, aunque yo prefiero usar CurrentDb. Execute que DoCmd. RunSQL, y me ahorro los SetWarnings... comentarte dos cosas sobre los mensajes...

Modifica en el módulo de clase el procedimiento Cerrar, así: Public Function Cerrar() On Error Resume Next app_word.Visible = True app_word.ActiveDocument.SaveAs FileName:="NombreDocumento.doc" app_word.Quit Set app_word = Nothing Set documento_word...

Sí puedes, pero no en un control "imagen" (se verá una imagen fija, no la animación), sino en un control "navegador web". Para que te cambie el gif con cada registro, has de programar el evento "Al activar registro" del formulario con un código como...

Los enlaces de esta respuesta que di el otro día, en ellos lo tienes explicado con detalle: Campo numérico que incremente y reinicie por año Fíjate sobre todo en los enlaces 1, 3 y 4. En cuanto a tu segunda pregunta, si guardas los registros en un...

Prueba con: DoCmd.ApplyFilter , "Nz([Cpo1],'')= ''" Porque no es lo mismo un valor Nulo (vacío) que una cadena vacía (''). De esta forma que te digo, analizas los dos supuestos a la vez, convirtiendo los Nulos a cadenas vacías Y si Cpo1 no es un...

Clic derecho encima de la carpeta que quieres ocultar -> Propiedades -> Pestaña general y en la parte inferior, en el apartado Atributos, marcas la casilla "Oculto". Aceptas y listo, carpeta oculta. Puedes hacer lo mismo para los archivos individualmente.

Para crear una tabla con dos claves, usa: CurrentDb.Execute "CREATE TABLE 1010_MES_CARGA (anio int NOT NULL,mes int NOT NULL,CONSTRAINT PK_clave PRIMARY KEY (anio,mes));" y luego haz el traspaso de registros: CurrentDb.Execute "INSERT INTO...

Pon esto en el código de tu botón (tendrás que modificar la extensión del archivo, yo supuse que era un excel): Const ruta1 As String = "C:\TARIFADOR\" Const ruta2 As String = "C:\TARIFADOR\DATOS" Dim fso As Object Dim fsa As Object Set fso =...

Con este código en el botón de tu formulario hace lo que quieres para el registro activo: Dim i As Integer For i=1 to Me.Cantidad CurrentDb.Execute "INSERT INTO [T - Inventario] (Ctd,IdSetCompra,IdProducto) VALUES(1," & Me.Id & "," & Me.Producto &...