Visual Basic - AYUDA!!Porfis!!

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA!!Porfis!!

Publicado por Juan (10 intervenciones) el 27/01/2004 12:52:07
Estoy empezando en esto de la programación, por eso me gustaria obtener una respuesta
bastante detallada de lo que busco:

Tengo el siguiente codigo para realizar una busqueda mediante un command button:

" Private Sub Command5_Click()
If Data1.Recordset.NoMatch = True Then MsgBox ("NO SE PUEDE ENCONTAR EL REGISTRO. VUELVE A INTRODUCIRLO!"), vbInformation, "AVISANDO!"
Data1.Recordset.FindFirst "POLIZA ='" & Text18.Text & "'"
Frame3.Visible = True
End Sub "

Lo que yo queria es que situandome en el Text y escribiendo el registro a buscar, con tan
solo pulsar ENTER me realice la busqueda y me muestre los demás registros.
Resumiendo: sustituir un Command Button por un simple ENTER.

Muchas gracias a todos.
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:AYUDA!!Porfis!!

Publicado por kinoscar (233 intervenciones) el 27/01/2004 14:27:34
segun tu codigo estas evaluando si encontro o no lo que estas buscando antes de realizar la busqueda por tanto el nomatch debe ir despues del finfirst y antes del findfirst debe ir un movefirst para asegurarte que vas a empezar a buscar desde el primer registro,
para que el codigo se ejecute al presionar enter debes poner esto en el evento keypress del text

if keyascii=13 then
'codigo del command5
endif

aunque tambien puedes hacer esto

if keyascii=13 then command5_click
con esto ejecutas el codigo del evento click del command5 sin tener que escribirlo ni copiarlo

el keyascii=13 equivale a la tecla enter.

espero te sirva
suerte
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