Eduardo Pérez Fernández

Vaya respuesta NO necesita crear tablas extras y tampoco hace falta el evento Al activar registro, en su defecto es el evento Al descargar. Hay 2 formas: 1. Utilizando las propiedades del formulario 2. Utilizando una variable pública FORMA 1 Tiene la...

Pruebe con esta función (Guárdela en un módulo) Function sgte_doc(Optional dfecha As Date) As String Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Dim periodo As Integer If CLng(dfecha) = 0 Then periodo = Year(Date) Else periodo =...

También puede utilizar la función CInt(), por ejemplo Cint(Me. Campotexto) Es decir, Cint("01") retorna 1 como entero No obstante, sería conveniente saber cómo hace la consulta.

Debe hacer un Requery sobre la consulta para que refresque los registros. Ahora sea conveniente subiera una imagen del diseño de la consulta. Por ejemplo: Me. CboConsulta. Requery

Le recomiendo consultar estos links https://learn.microsoft.com/es-es/office/troubleshoot/access/lock-files-introduction https://es.accessrepairnrecovery.com/blog/access-ldb-o-laccdb-desbloqueo-de-archivos

Puede programar el evento Al abrir del formulario. Private Sub Form_Open(Cancel As Integer) If Me.Lista20.ListCount = 0 Then MsgBox "No hay registros", vbInformation, "Le informo" DoCmd.Close acForm, Me.Name End If End Sub

Cristian trate en lo posible utilizar una función algo como: Dice que Dias es un campo calculado, en este ejemplo es ndias=DifFecha("d"; Fecha();[Vencimiento]) Function mensaje(ndias As Integer) As String 'mensaje = IIf(ndias < 0, "Enviar email",...

Personalmente no me queda clara su pregunta.

Sería conveniente subiera una imagen de sus tablas y el diseño de la consulta para no entrar en improvisaciones.

Antes déjeme decirle que el campo PosClasif sobra en la tabla porque éste se obtiene mediante una consulta, no obstante, le preparé el ejemplo considerando el campo en la tabla. TABLA Hago una consulta para ordenar y con base en ésta hago la...