zeith

Sveinbjorn El Rojo respondió: El error tiene su origen en que tienes mal diseñada la BD, en concreto las relaciones, y por eso no está bien diseñada la consulta, y te da error al hacer el formulario e intentar cambiar/añadir datos. Si te fijas, la consulta "Incidencias consulta"...

Sveinbjorn El Rojo respondió: Poniendo esto, te tendría que funcionar: Me.Texto54=Day(Me.Fecha_del.value) & " DE " & UCase(MonthName(Month(DMe.Fecha_del.valueate))) & " DEL " & Year(Me.Fecha_del.value)

Sveinbjorn El Rojo respondió: No estoy seguro al 100 %, pero si pones el código en el evento Al dar formato de la sección detalle del informe, igual es la solución. Te quedaría así: Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer) If IsNull(Me.Fechaal) Or...

Sveinbjorn El Rojo respondió: Un par de cosas: 1º/ No te hace falta crear el recordset, por lo que estas lineas te sobrarían: Dim rst As DAO.Recordset 'Creamos el recorset sobre la SQL Set rst = CurrentDb.OpenRecordset(miSql) Salida: 'Cerramos conexiones y liberamos memoria...

Sveinbjorn El Rojo respondió: El código lo estás poniendo en el evento incorrecto, tienes que ponerlo en el evento "Al dar formato" de la sección Detalle (Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)

lolvera2012 respondió: Te recomiendo que busques un libro de access básico, para que tengas mejor la idea de como hacer algunas cosas. Ahora, si viste el formulario de contactos que hace access de manera automática, lleva código VB y además programación con macros directo...