Eduardo Pérez Fernández

Le dejo este código Sub EnviarCorreoConInformeAdjunto() Dim db As DAO.Database Dim rs As DAO.Recordset Dim oApp As Object 'Aplicación Outlook Dim oMail As Object 'Correo electrónico Dim strSQL As String Dim strTempPath As String Dim strReportName As...

Estoy de acuerdo con Enrique cambie el campo booleano "Pagado" por un campo fecha, así puede totalizar solo los de determinada fecha o adicione un campo para registrar la fecha cuando activo la casilla a true, aunque no es lo ideal.

Siga el ejemplo de este procedimiento y reemplace los datos por los de su formulario Sub CubicarCampos() Dim valor1 As Double Dim valor2 As Double Dim valor3 As Double Dim valor4 As Double Dim resultado As Double ' Asigna los valores de los campos...

¿No comprendo para que usa VarType?. Almacene en una variable el nombre, lo obtiene en el evento Después de actualizar del cuadro combinado, posteriormente lo concatena con el mensaje o lo utiliza como título del mensaje.

Le recomiendo NO utilice macros es un desastre. En su caso debe almacenar en una variable de cadena, puede ser pública la lista de libros del usuario, esto lo hago con DAO recorriendo el recordset y concatenando los libros del usuario. Tome como guía...

Acá le dejo la parte principal, trate de adaptarlo a sus necesidades y no olvide cambiar la ruta de la variable strDirectorio por la carpeta donde tiene sus PDF. Sub EnviaEmailAdjuntosPDF() Dim OutlookApp As Object Dim OutlookMail As Object Dim...

Personalmente no encuentro sentido a su pregunta ¿Puede ampliar la información?

Pruebe con este código Private Sub btnImprimir_Click() ' Bloquear los controles del formulario Dim ctrl As Control For Each ctrl In Me.Controls ctrl.Enabled = False Next ctrl ' Imprimir el informe DoCmd.OpenReport "NombreInforme", acViewPreview '...

Es problema muy grave por mal diseño de las tablas, si quiere envíeme la base de datos con información ficticia a [email protected] y le presento una posible solución.

Puede crear una consulta y utilizarla como origen de datos de un informe. Ingrese en la cuadricula de diseño los siguiente SELECT * FROM tblusuarios WHERE DatePart('m', fecharegistro) = Month(Date()) AND DatePart('d',fecharegistro) = Day(Date());...