Sveinbjorn El Rojo

Yo tengo esta función: '-------------------------------------------------------------------------------------------- 'Función para calcular diferencias entre fechas en años, meses y días 'Creada por Sveinbjorn para TodoExpertos-2015...

Puedes ponerle la propiedad "Permitir agregar" de tus subformularios en No, y luego le añades un botón a cada subformulario con este código: Me.AllowAdditions=True o si se lo quieres añadir a tu formulario de cabecera:...

¿Cuál es el origen de la fila de tu cuadro de texto? Es directamente un campo o es una SQL del estilo "SELECT Apellidos FROM Tabla_Asignacion ...¿"? Si tu caso es el segundo, añádele la palabra DISTINCT después de SELECT, y ya sólo te saldrá una vez...

Lo que puedes hacer es una consulta de datos anexados para copiar los valores de la tabla Temporal a la de Cierre, y luego una consulta de eliminación para borrar la tabla Temporal. Si lo haces por medio de un botón, este es el código que has de...

Esto es lo que necesitas: Private Sub Fecha1_AfterUpdate() On Error GoTo Err_Fecha1_AfterUpdate Me.Fecha2 = WeekdayName(Weekday(Fecha1, vbMonday), False, vbMonday) Me.Quincena=IIF(Day(Me.Fecha1)<=15,1,2) Exit_Fecha1_AfterUpdate: Exit Sub...

Con la linea "DoCmd.GoToRecord,, acNewRec" vas a un registro nuevo, con lo que lo que tengas en los cuadros de texto dependientes automáticamente te queda registrado en la tabla. Para deshacer los cambios, has de usar "Me.Undo" para descartar los...

¿Por qué no usas consultas de actualización, en vez de recorrer el segundo recordset para cada registro del primero? Sería una cosa así: Private Sub CodNacimi_Click() Dim db As Database Dim rs1 As Recordset Dim VMuNac As String Dim miSQL As String...

¿No es lo mismo que preguntas aquí: ACCESS: ¿Mostrar ultimo registro automáticamente si se cumplen parámetros? El orden en que metas los registros no influye en el funcionamiento de las fórmulas/código.

A ver si pasando la ruta del archivo a una variable te lo abre, algo así: Private Sub Command61_Click() Dim abrir As Long dim miArchivo as String miArchivo="excel.exe Z:\Accounts Payable\T&E\SEGUIMIENTO\REPORTES T&E\PMI.xlsx" abrir = Shell(miArchivo,...

Para el primer problema que comentas (varias columnas que aparecen el id en vez de su valor), lo que debes hacer es cambiar el origen de los datos (propiedad "Origen de la fila" en la pestaña datos de las propiedades del cuadro combinado) del combo...