| ebolo |  |
|
Re: Cuadros Combinados en Access - 2005-07-22 17:31 - Respuesta 2
Hola lunasoft, puedes hacer varias cosas, a mi en particular, eso de usar el ratón para elegir me es un poco rollo. Lo que suelo hacer es verificar si existe ese registro en el cuadro combinado, si no existe pues le mando otra vez que lo eliga, poniéndole un mensaje y desplegándole el cuadro combinado, más o menos esto:
Code:
nulo;BRnulo;nulo;BRnulo;Private Sub Cuadro_combinado33_AfterUpdate()
nulo;BRnulo;nulo;BRnulo; If Me.Cuadro_combinado33.ListIndex=-1 then
nulo;BRnulo;nulo;BRnulo; MsgBox nulo;Elige un Registro Adecuadonulo;, vbInformation, nulo;¡¡ADVERTENCIA!!nulo;
nulo;BRnulo;nulo;BRnulo; Me.OTROCONTROL.SetFocus
nulo;BRnulo;nulo;BRnulo; Me.Cuadro_combinado33.SetFocus
nulo;BRnulo;nulo;BRnulo; Me.Cuadro_combinado33 = nulo;nulo;
nulo;BRnulo;nulo;BRnulo; SendKeys nulo;{F4}nulo;
nulo;BRnulo;nulo;BRnulo; End If
nulo;BRnulo;nulo;BRnulo;End Sub
nulo;BRnulo;nulo;BRnulo;
Ahora si quieres que no se puede escribir en el cuadro combinado, que a mí no me gusta, pon ésto:
Code:
nulo;BRnulo;nulo;BRnulo;Private Sub Cuadro_combinado33_KeyPress(KeyAscii As Integer)
nulo;BRnulo;nulo;BRnulo; KeyAscii = 0
nulo;BRnulo;nulo;BRnulo;End Sub
nulo;BRnulo;nulo;BRnulo;
Tienes que generar los eventos dentro de las propiedades del cuadro combinado.
Saludos.
'Edito porque no salía bien una cosa.
[ Este mensaje fué editado por: ebolo el 22-07-2005 a las 17:54] | |
|
|
