Eduardo Pérez Fernández

Lo puede hacer de 2 formas: 1. Sobre la tabla 2. Clonando el formulario Siguiendo como lo está haciendo revise este fragmento del código Do Until rs.EOF rs.Edit rs!Total = (Me.C_bienes + Me.C_elementos + Me.c_seguridad) rs.Update intActualizado =...

Esto es para el ignorante JULIAN GONZÁLEZ debe ser más respetuoso y no utilizar una pregunta de una persona decente para insultar. Se refiere a que me hago pasar por Martha, miente grandemente, Pues qué pena le robaron la plata de la universidad y...

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?