• Evento Key_Press - cambia...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: jguardon
  Hace 1 hora
  » Respuestas: 1
  » Vistas: 12
• format y operaciones mate...
  Foro: General
  Último mensaje por: vuott
  16-08-2022, 23:45
  » Respuestas: 8
  » Vistas: 136
• Usercontrol / Options - M...
  Foro: Controles/Librerías/Componentes
  Último mensaje por: gambix
  16-08-2022, 21:35
  » Respuestas: 5
  » Vistas: 113
• Bits
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tercoide
  16-08-2022, 15:17
  » Respuestas: 5
  » Vistas: 86
• Tablas foráneas referenci...
  Foro: Bases de Datos
  Último mensaje por: tincho
  15-08-2022, 23:36
  » Respuestas: 3
  » Vistas: 78

• Mensajes del foro:4,790
• Temas del foro:880
• Miembros:167
• Último miembro:alfonsoC3

Hola a todos.
¿Es posible cambiar la tecla pulsada en el evento Key_Press a "siempre mayúscula"?
Los ejemplos que encuentro son para detener el evento si la tecla no es la que se espera.
Pero si por ejemplo quiero que en un textbox independientemente de si el lock de mayúsculas esta activad o no siempre se agreguen letras mayúsculas, en caso que sea una minúscula la pulsada, que esta se convierta en mayúscula.
Los ejemplos habituales son de este tipo

PUBLIC SUB TextBox1_KeyPress()
 
IF key.Text <> upper(key.Text)
 
 
STOP EVENT
 
ENDIF
 
END

PUBLIC SUB TextBox1_KeyPress()
 
IF key.Text <> upper(key.Text)
 
' Ahora uso esto pero es posible modificar directamente el valor de la tecla
Last.Text = Last.Text & Upper(Key.Text)
Stop Event
 
'key.code = ? 'como conseguir el código de la mayúscula
' ¿Esto de aquí arriba se puede hacer ?
 
ENDIF
 
END

Hola.
Resulta que tengo una tabla "recipientes" con una lista de recipientes y en esta existen dos campos que apuntan a la tabla "unidades".
El caso es que al crear una vista salta un error de ambigüedad ya que le aparece mas de una vez el campo "unidades.name"

¿Como se puede sortear este inconveniente?

LEFT JOIN unidades ON recipientes.wtuom=unidades.idx
LEFT JOIN unidades ON recipientes.tuom=unidades.idx

CREATE TABLE "unidades" (
    "idx"    INTEGER,
    "name"    TEXT NOT NULL UNIQUE,
    "symbol"    TEXT,
    "type"    INTEGER,
    "basic"    TEXT,
    "other"    TEXT,
    FOREIGN KEY("type") REFERENCES "magnitudes"("idx"),
    PRIMARY KEY("idx" AUTOINCREMENT)
)
 
CREATE TABLE "recipientes" (
    "idx"    INTEGER,
    "tag"    TEXT NOT NULL UNIQUE,
    "wt"    REAL,
    "wtuom"    INTEGER,
    "temp"    REAL,
    "tuom"    INTEGER
    FOREIGN KEY("wtuom") REFERENCES "unidades"("idx"),
    FOREIGN KEY("tuom") REFERENCES "unidades"("idx"),
    PRIMARY KEY("idx" AUTOINCREMENT)
)
 
CREATE VIEW "view_recipientes" AS SELECT
    recipientes.idx AS idx,
    recipientes.tag AS tag,
    recipientes.wt AS wt,
    recipientes.wtuom AS wtuom,
    recipientes.temp AS temp,
    recipientes.tuom AS tuom,
    FROM recipientes
LEFT JOIN unidades ON recipientes.wtuom=unidades.idx
LEFT JOIN unidades ON recipientes.tuom=unidades.idx
ORDER BY recipientes.idx,recipientes.tag ASC

Hola amigos.
Finalmente logre crear un control que usando un solo byte permite manejar 8 opciones.
Gracias a Cogier y Vuott que me ayudaron con la codificación del byte con la cadena de texto, pero también a Jerry, Oliver, Fabien de la lista internacional.
Dejo aquí el código por si a alguien le interesa y por supuesto cualquier mejora en la simplificación del código, mejora de eficiencia, etc. es bienvenida.
Espero que les resulte igual de divertido que lo que me resulto a mi.
Este control esta hecho con la intensión de usarlo para editar un campo de una base de datos donde cada Bit es un grupo de trabajo y un usuario puede pertenecer a mas de un grupo, luego solo se gurda un solo Byte en la table.