Sveinbjorn El Rojo

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

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

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

Te dejo los enlaces a otras respuestas sobre este mismo tema: ¿Cómo crear un campo autonumérico personalizado y con el año actual? Cómo se programa en Microsoft Access un número autonumérico con una condición (por ej. Que se pueda duplicar pasado un...

Si observaciones es un campo de tipo texto, sería: StrAgregaFechaBaja = "UPDATE CLIENTES SET Observaciones = 'Fecha de baja: " & FechaBaja & "' WHERE Num_Cliente = " & txtModAfiliado(0).Text & ""

Muy sencillo: si el cuadro de texto en el que quieres poner la fecha y hora se llama (propiedades -> Otras -> Nombre) FinActividad, en el código asociado al evento "al hacer clic" del botón pones: Me.FinActividad=Now() Si tienes dos campos, uno para...

Si quieres controlar todos los posibles "fallos" del encadenamiento (que empiece o acabe con /, que aparezcan dos o más / seguidas) puedes pegar en el módulo de tu formulario este procedimiento: Private Sub encadena() Dim encadena As String encadena...

Si tu formulario es independiente de la tabla tbl_Fabricacion, como dices, no te guarda los valores que escribas en él en la tabla a menos que se lo indiques expresamente, ya sea por medio de un recordset, una consulta de datos...