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
            VBA: Kill Dir
            30/03/2022
            VBA: posicionar formulario con OpenArgs
            01/04/2022
            Mostrar todos

            Diseño: utiliza emoticonos en tus aplicaciones

            Publicado por Luis Viadel
            Categorías
            • Destellos formativos
            Etiquetas
            • Access
            • Diseño
            • EMOJI
            • VBA
            Option Compare Database
            Option Explicit
            
            'Código del form "frmEmoji"
            
            Private Sub Form_Open(Cancel As Integer)
            Dim rstTable1 As DAO.Recordset
            Dim i As Integer, j As Integer
            Dim ctrl As Control
            
            j = 1
            
            For i = 131 To 150
                Set rstTable1 = CurrentDb.OpenRecordset("SELECT * FROM emoticonos WHERE idemoti=" & i)
                    For Each ctrl In Me.Controls
                        If TypeOf ctrl Is TextBox Then
                            If j < 10 Then
                                If ctrl.Name = "e0" & j Then ctrl.Value = "<p>" & rstTable1!htmlcode & "</p>"
                            Else
                                If ctrl.Name = "e" & j Then ctrl.Value = "<p>" & rstTable1!htmlcode & "</p>"
                            End If
                        End If
                    Next ctrl
                    rstTable1.Close
                Set rstTable1 = Nothing
                j = j + 1
            Next i
            
            End Sub
            
            Private Function ponericono()
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Fuente            : https://access-global.net/diseno-utiliza-emoticonos-en-tus-aplicaciones
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Título            : ponericono
            ' Autor             : Luis Viadel | https://cowtechnologies.net
            ' Actualizado       : 28/03/2022
            ' Propósito         : al seleccionar un icono del formulario, este se escribe en el formulario de mensajes, tomando el texto que hay en el texbox
            '                     y añadiéndolo el icono, según el código HTML del mismo.
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            
            Dim ctrl As Control
            Dim str1 As String, str2 As String
            
            Set ctrl = Screen.ActiveControl
            str1 = Right(ctrl.Name, 2)
            
            str2 = "e" & str1
            
            For Each ctrl In Form_frmEmoji.Controls
                If ctrl.Name = str2 Then
                    str1 = Right(ctrl.Value, Len(ctrl.Value) - 3)
                    str1 = Left(str1, Len(str1) - 4)
                    str2 = Form_frmEmojiEscribir.txtmensaje.Value
                    str2 = Left(str2, Len(str2) - 6)
                    
                    Debug.Print str2 & str1 & "</div>"
                    If IsNull(Form_frmEmojiEscribir.txtmensaje.Value) Then
                        Form_frmEmojiEscribir.txtmensaje.Value = "<div>" & str1 & "</div>"
                    Else
                        Form_frmEmojiEscribir.txtmensaje.Value = str2 & str1 & "</div>"
                    End If
                    Form_frmEmojiEscribir.Refresh
                    DoCmd.Close acForm, "frmEmoji"
                    Exit Function
                End If
            Next
                
            End Function
            
            ¡Ver en el repositorio!
            Icono

            Incorpora emojis en tus aplicaciones

            1 archivo(s) 448.20 KB
            ¡Descarga el ejemplo!
            Compartir
            29
            Luis Viadel
            Luis Viadel

            Entradas relacionadas

            30/03/2023

            Tratamiento de errores: compilación condicional


            Leer más
            29/03/2023

            Tratamiento de errores: errores personalizados


            Leer más
            28/03/2023

            Tratamiento de errores: Resume


            Leer más

            5 Comments

            1. òScarFC dice:
              01/04/2022 a las 11:13 pm

              Brutal!!
              Gracias Luís por la ayuda prestada, no esperaba tanto!! 😀🏆🥇

              Responder
              • Luis Viadel dice:
                02/04/2022 a las 12:07 am

                Gracias a ti por ofrecernos nuevos retos.

                Responder
            2. òScarFC dice:
              03/04/2022 a las 11:06 am

              Después de un largo análisis del código, aporto corrección de un error.
              Tal cual está, no permite intercalar texto con e-mojis.
              Para corregir esto cambiar las lineas donde aparece:
              Form_frmEmojiEscribir.txtmensaje.Value
              por:
              Form_frmEmojiEscribir.txtmensaje.Text

              Saludos

              Responder
            3. Francisco dice:
              08/12/2022 a las 11:56 pm

              Hola, el ejemplo no se puede descarga.

              Saludos

              Responder
              • Luis Viadel dice:
                10/12/2022 a las 9:18 am

                Muchas gracias de nuevo, Francisco. Ya hemos arreglado el enlace. Un saludo.

                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 BD Botones ComboBox Consultas CountOfLines CStr Diseño DoCmd Excel Exportar Fecha FileSystemObject Filtros For Each...Next Formulario Formularios Funciones Funciones de dominio GetFolder GetWindowRect Google maps Informes InStr Kill Left Listbox Mid Módulos Node ProcCountLines Procedimientos ProcOfLine References Replace Ribbon RunCommand Seguridad Split SysCmd Tablas TreeView VBA VBIDE

            ÚLTIMAS ENTRADAS

            • 0
              Tratamiento de errores: compilación condicional
              30/03/2023
            • 0
              Tratamiento de errores: errores personalizados
              29/03/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