Jacinto Trillo Jareño

Diego: Si lo que quieres es que se vayan introduciendo los caracteres de un IBAN>> https://nksvaccessolutions.com/Foro/viewtopic.php?t=75 Los formatos generales los tienes en>>...

Antonio: Si lo que quieres es que "Si No es Nulo", que siga >> If Not IsNull(mail) Then DoCmd.OpenReport "Fichas", acPreview, , "Ficha=forms!Fichas!Ficha" DoCmd. SendObject acSendReport, "Fichas", "PDFFormat(*.pdf)", "'" & mail & "'",,, "Envio...

Antonio: veo que ésta pregunta está pendiente y te sugiero varias soluciones>> En Mediafire tengo un par de ejemplos que son: http://www.mediafire.com/file/ccja396gccjzwfu/EMailConOutLook.rar/file...

Diego: Si normalmente funciona, imagino que no reemplaza algunos caracteres no aceptados. Comienza por tomar nota de los "Nombres que no funcionan", y mira si contienen algún carácter "extraño". Mira si ese carácter está en los que hay en Replace...

En un Formulario que tengas pones un Botón que voy a llamar>> BtnLunesAño Private Sub BtnLunesAño_Click() Dim StrSQL As String Dim I As Integer StrSQL = "DELETE * FROM TblLunesAño;" CurrentDb.Execute StrSQL StrSQL = "" Dim F As Date For F =...

Diego: Bote pronto y sin un análisis detallado, las variables de VBA y Win64 cambian algunas a LongTpr. Las API evidentemente cambian, pero creo que ya lo has hecho. Debe quedar así: Supongo te daría un Error de no coincidencia de tipos. #IfVBA7 And...

Jove: Prueba con :CStr([ImporteEntrega]) Saludos >> JTJ

Una pregunta antes de seguir mirando: Si los Registros que te ineresan son los de carpetas existentes: ¿Por qué no borras los registros de la Tabla y comienzas de cero? Solo te quedarían las carpetas que "SI" están >> Saludos >> JTJ

Seguro que sabes de diferentes métos de envío. El Send Object >> https://docs.microsoft.com/es-es/office/vba/api/access.docmd.sendobject Evidentemente hay otros, pero en algunos requiere activar la librería de Outlook. Para una mayor información >>...

Jobe: Para contribuir con otro punto de vista y programando el FormCurrent. Private Sub Form_Current() 'Necesitamos declarar 3 Variables Dim vAutonum As Variant, vUltimo As Variant Dim vAño As Long 'Le damos valor a la variable >> vAño el valor del...