Access - Bloquear Combobox

 
Vista:

Bloquear Combobox

Publicado por Raziel (61 intervenciones) el 11/07/2009 21:55:14
Hola a todos, la molestia de la presente es por lo siguiente...
Como puedo bloquear un combobox de modo que solo permita seleccionar los valores que despliega, ojo, solo por medio de seleccion y no por medio de tecleo del dato.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Bloquear Combobox

Publicado por Jefferson (1 intervención) el 11/07/2009 23:33:10
Pega este codigo a un Modulo

Function JJJT_SoloCombo(ByVal KeyAscii As Integer) As Integer
'Indico no permitir la entrada por medio del teclado
If InStr("0123456789/-", Chr(KeyAscii)) = 0 Or _
InStr("abcdefghijklmnñopqrABCDEFGHIJKLMNÑOPQRSTUVWXYZáéíóúÁÉÍÓÚ/-", Chr(KeyAscii)) = 0 Then
JJJT_SoloCombo = 0
Else
JJJT_SoloCombo = KeyAscii
End If
'Solo permito la tecla Enter y Borrado Atras
If KeyAscii = 8 Then JJJT_SoloCombo = KeyAscii ' borrado atras
If KeyAscii = 13 Then JJJT_SoloCombo = KeyAscii 'Enter
End Function

Y para llamar la Funcion, en el evento al Presionar una tecla :
KeyAscii = JJJT_SoloCombo(KeyAscii)

Espero te sea de utilidad
Pero realmente no entiendo para que quieres hacerlo asi....
Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Bloquear Combobox

Publicado por Raziel (61 intervenciones) el 13/07/2009 16:28:40
Pues pienso que el formulario se veria un tanto mas profesional.
Muchas gracias Quique y Jefferson.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Bloquear Combobox

Publicado por QUIQUE (293 intervenciones) el 11/07/2009 23:40:54
EN LAS PROPIEDADES DEL COMBO , DONDE DICE LIMITAR A LA LISTA LE PONES SI Y SOLAMENTE DEJA SELECCIONAR LO QUE ESTA EN TU CBO.

QUIQUE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar