Foro Foro de Access y VBA

Autor: sdgm Sujeto: Leer último carácter NO blanco de un documento Enviado: 05/Septiembre/2026 a las 16:24 Mira si puedes hacer algo con este código y combinarlo con lo que te comenta PRGA: Selection.EndKey Unit:=wdStory Do Until Asc(Selection) > 32 And Asc(Selection) < 122 Selection.MoveLeft Loop MsgBox "último caracter: [" & Selection & "] en la página " _ & Selection.Information(wdActiveEndPageNumber)

Autor: Mihura Sujeto: Modulo Verifactu Enviado: 05/Septiembre/2026 a las 09:55 Hola, Si que tengo dos soluciones implementadas: - por un lado una app independiente en la que introducimos los datos manualmente (o con un Excel / csv) y ya se encarga de todo con la AEAT, está app es un SIF - por otro un ActiveX del que se puede integrar en cualquier programa de Windows. Echa un vistazo a www.verifactudll.es Ahora mismo estoy fuera unos días, en cuanto vuelva me pongo en contacto contigo. Un saludo

Autor: thomasval Sujeto: Modulo Verifactu Enviado: 05/Septiembre/2026 a las 09:45 Hola, me puedes enviar el módulo por favor, muchas gracias, quiero instalarlo en una aplicación que tenemos en la asociación sin animo de lucro,

Autor: main Sujeto: Modulo Verifactu Enviado: 05/Septiembre/2026 a las 09:19 ME gustaría saber si tu mismo vas a darte de alta como colaborador de la AEAT para que algunas empresas de reducida dimensión y autónomos puedan gestionar verifactu desde sus aplicaciones en access,, si es que tienes homologado el software. Me queda poco para jublilarme.

Autor: main Sujeto: Modulo Verifactu Enviado: 05/Septiembre/2026 a las 09:07 Hola Mihura, me puedes enviar a mi tambíen el tema del MP de verfactu?

Autor: sdgm Sujeto: Combos con filtros Enviado: 04/Septiembre/2026 a las 22:45 Podrías resolverlo sólo con tres fórmulas, luego las ocultas o las proteges. Como punto de partida, necesitas localizar en la columna A de tu Hoja 2 dónde principian los submodelos del primer combo. En F2, pon la siguiente fórmula: =COINCIDIR(C2,Hoja2!A:A,0) Luego tienes que encontrar dónde terminan los submodelos. En F3 pon la siguiente fórmula: =CONTAR.SI(Hoja2!A:A,C2)+F2-1 Con ello ya puedes construir la referencia para el segundo combo y alimentarla con un Indirecto(): En F4 pon la siguiente fórmula: ="Hoja2!B"&F2&":B"&F3 Saludos...

Autor: pascual14 Sujeto: Crear código QR Enviado: 02/Septiembre/2026 a las 19:38 Hola, me contesto a mi mismo por si a alguien le puede servir. Podeis cerrar el hilo. Gracias. Public Function GenerarQR(TextoQR As String, RutaDestino As String) As Boolean On Error GoTo ErrorHandler Dim urlAPI As String Dim http As Object Dim stream As Object ' Generar QR en PNG urlAPI = "https://api.qrserver.com/v1/create-qr-code/?size=300x300&format=png&data=" & EncodeURL(TextoQR) Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0") http.Open "GET", urlAPI, False http.Send If http.Status = 200 Then Set stream = CreateObject("ADODB.Stream") stream.Type = 1 stream.Open stream.Write http.ResponseBody stream.SaveToFile RutaDestino, 2 stream.Close Set stream = Nothing Set http = Nothing GenerarQR = True Else GenerarQR = False End If Exit Function ErrorHandler: GenerarQR = False End Function

Autor: pascual14 Sujeto: Crear código QR Enviado: 01/Septiembre/2026 a las 10:34 Hola amigos, tengo un programa de gestión de residuos y sacan en octubre una normativa para que junto a una carta de porte, que se imprime en papel ahora, tenga que imprimir un código QR apuntando a una URL para que si les para la guardia civil, leyendo ese QR vaya a esa URL y puedan ver la carta de porte en PDF. Mi pregunta es ¿cómo puedo imprimir ese código QR en access? Gracias.

Autor: noise56 Sujeto: Problemas con apóstrofo Enviado: 31/Agosto/2026 a las 15:56 Hola Mihura. Perdona, he estado fuera y no he podido contestarte. Llevas razón, lo he vuelto a poner tal como me dices y funciona perfectamente. Muchas gracias, muy amables. Podemos cerrar este hilo. Saludos, un abrazo.

Autor: pascual14 Sujeto: Tabla dañada Enviado: 20/Agosto/2026 a las 18:34 ok, gracias por la ayuda. Veo que es complicado. Podéis cerra el hilo.