Logo_Access_global_380x114Favicon_Access_global_180x180Logo_Access_global_380x114Logo_Access_global_380x114
  • Home
  • University
    • Destellos formativos
  • Labs
  • TV
  • Secciones
    • El mundo de Access
    • Explorando VBA
      • Artículos sobre VBA
      • Un trocito de código
    • Entrevistas
      • Profesionales de Access
    • El rincón de Excel
    • Bases de datos
      • MS SQL
      • MySQL
      • postgreSQL
      • SQLite
    • Clases magistrales
    • Utilidades hechas con Access
  • Access en el mundo
  • ¿Quiénes somos?
  • Cómo colaborar
  • Eventos
✕
            No hay resultados Mostrar todos los resultados
            Access: Edge browser control
            23/05/2023
            Access: Plantillas (.accdt)
            25/05/2023
            Mostrar todos

            VBA: la forma más sencilla de crear un código QR

            Publicado por Luis Viadel
            Categorías
            • Clases magistrales
            Etiquetas
            • API
            • DeleteUrlCacheEntry
            • Google Chart
            • URLDownloadToFile
            Public Function QRGenerador(convertirQR As String) As String
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Fuente            : https://access-global.net/vba-la-forma-mas-sencilla-de-crear-un-codigo-qr/
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Título            : QRGenerador
            ' Autor original    : Luis Viadel | https://cowtechnologies.net | luisviadel@cowtechnologies.net
            ' Creado            : 10/2018
            ' Propósito         : obtener código QR en formato de imagen
            ' Argumento         : la sintaxis de la función consta de los siguientes argumentos:
            '                     Parte             Modo           Descripción
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            '                     convertirQR   Obligatorio      cadena de texto que queremos convertir en QR
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Referencia        : https://developers.google.com/chart?hl=es-419
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Test:             : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
            '                     portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
            '
            ' Private Sub btnQRTest_Click()
            '
            '   Me.QRImage.Picture = QRGenerador(Me.texto)
            '
            ' End Sub
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            Dim ruta As String
            Dim URLQR As String
            
                On Error GoTo LinError
                
                ruta = Application.CurrentProject.Path & "TempqrTemp.png"
                
                URLQR = "https://chart.googleapis.com/chart?chs=180x180&cht=qr&chl=" & convertirQR & "&choe=UTF-8"
            
            'Limpia la caché para que pueda descargar el nuevo fichero
                DeleteUrlCacheEntry URLQR
            'Descarga el fichero en la ruta indicada
                URLDownloadToFile 0, URLQR, ruta, 0, 0
            
                QRGenerador = ruta
            
                Exit Function
                
            LinError:
                MsgBox "Se ha producido un error"
                QRGenerador = vbNullString
                
            End Function
            
            ¡Ver en el repositorio!
            Compartir
            14
            Luis Viadel
            Luis Viadel

            Entradas relacionadas

            16/05/2023

            VBA: clsErrorHandler


            Leer más
            10/05/2023

            VBIDE: algunas estadísticas


            Leer más
            24/04/2023

            MsgBox personalizado


            Leer más

            2 Comments

            1. iván sarabia dice:
              24/05/2023 a las 8:22 pm

              yo tengo una forma de hacerlo solo con código vba. sin usar un servicio de terceros

              Responder
              • Luis Viadel dice:
                25/05/2023 a las 7:55 am

                Hola Iván, nos encantaría que nos mandases tu código si quieres que lo publiquemos. No obstante, la semana que viene mostraremos otra forma, si necesidad de Internet. Gracias por tu comentario.

                Responder

            Deja una respuesta Cancelar la respuesta

            Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

            ETIQUETAS

            Access API ComboBox Consultas CountOfDeclarationLines CountOfLines CStr DCount Diseño DoCmd Excel Fecha FileExists FileSystemObject Filtros For Each...Next Formulario Formularios Funciones Funciones de dominio GetFolder Google maps Informes InStr Kill Listbox Mid Mod Módulos Node ProcCountLines Procedimientos ProcOfLine References Replace Ribbon RunCommand Split Tablas TreeView VBA VBE VBIDE With...End With WizHook

            ÚLTIMAS ENTRADAS

            • 0
              VBA: crea códigos QR sin conexión a Internet
              31/05/2023
            • 0
              VBA: imprimir sin informes
              30/05/2023

            ¿QUIERES PUBLICITAR TU EMPRESA AQUÍ?

            SUSCRÍBETE A NUESTRO
            NEWSLETTER

            Recibirás información puntual sobre el mundo de Access y VBA

            ¡Próximamente!

            Promovemos el uso de Access y de la programación en VBA en todo el mundo

            Centro de conocimiento


            Toda la sabiduría de los mejores programadores de Access y VBA a tu alcance.

            Legal

            Política de privacidad

            Condiciones de uso

            Condiciones del redactor

            ®Access Global 2021 | All right reserved
                      No hay resultados Mostrar todos los resultados