Eduardo Pérez Fernández

Debe programar el evento Después de actualizar del campo folio y hacer un UDPATE, algo como: CurrentDb.Execute "UPDATE tabla2 SET folio=" & Me.Folio & " WHERE idfolio=" & Me.idfolio CurrentDb.Execute "UPDATE tabla3 SET folio=" & Me.Folio & " WHERE...

Mejor hágalo en la consulta adicione una columna, por ejemplo, categoria:IIF([permiso]=1;"Administrador";"Usuario") Permiso es nombre del campo con valor 1 o 2. Adicione el campo "Categoria" al origen de datos del subformulario.

Víctor para la próxima es conveniente incluir la captura de errores, algo como On Error Goto hay_error: 'Aquí va el código hay_error_exit: exit sub hay_error: Msgbox "Ocurrió el error " & Err.Descripcion,vbCritical,"Error....." Resume hary_error_exit

Excelente su función bastante interesante amigo Dante, con su permiso me permito ampliar la función para otros parámetros. Function CuantosDiferentes(dato As Variant) As String 'Función para contar número de digitos diferentes hay 'en un número o...

Que respuesta tan incoherente, indica la falta de conocimientos en VBA. Copie este código en un módulo Public Function FuenteInstalada(sFuente As String) As Boolean 'Esta referencia ya debería estar configurada por defecto ' Herramientas >...

Debe crear una cinta en blanco para fijarla por defecto al iniciar la aplicación. Por cada rol crea una cinta. Después de loguearse el usuario y de acuerdo con el rol oculta la cinta por defecto y activa la del usuario. Algo como: DoCmd. ShowToolbar...

Si utiliza una tabla para el nombre de los adjuntos, este fragmento de código le sirve Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("Select EMail from tblEmail") If rs.RecordCount > 0 Then With rs Do...

¿Por qué no lo hace en Access que más practico para esta clase de información?

Lo hago pero Re vinculando permanentemente, observe este ejemplo:} HOJA DE EXCEL TABLA VINCULADA A EXCEL FORMULARIO PARA MOSTRAR LA TABLA EVENTOS DEL FORMULARIO Private Sub btnVincula_Click() ViculaExcelDAO Me.Requery End Sub Private Sub...

Revise esta parte Me.curp & "' & " And FOL_FILIACION Is Null Or FOL_FILIACION = ""