Error Evento

27/05/2010 - 22:07 por JoseMB | Informe spam

Buenas

Tengo este codigo que hay abajo y en un modulo standar el resto de acciones.

El problema es que al provocar un error queriendo, por ejemplo pulsar una
letra en un campo que solo admite fechas me aparece el error NO SE ENCONTRO
EL EVENTO

Private Sub Fecha_KeyPress(KeyAscii As Integer)

Select Case Tecla_Tipo

Case 1
KeyAscii = Teclas_Validas.Version_Fecha(KeyAscii)

Case 2
KeyAscii = Teclas_Validas.Version_Numeros(KeyAscii)

Case 3
KeyAscii = Teclas_Validas.Version_Letras(KeyAscii)

Case 4
KeyAscii = Teclas_Validas.Version_Moneda(KeyAscii)

Case 5
KeyAscii = Teclas_Validas.Version_Cadenas_Mayusculas(KeyAscii)

End Select

RaiseEvent KeyPress(KeyAscii)

End Sub

' Teclas_Validas es el nombre del Modulo.

¿Alguien sabe donde esta el problema?

Gracias por vuestra ayuda.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ignacio

28/05/2010 - 09:07 | Informe spam

¡Hola, JoseMB!

El evento no es KeyPress sino NombreObjeto_KeyPress, por ejemplo:
Form_KeyPress, Fecha_KeyPress, etc...

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

Responder a este mensaje

#2 JoseMB

28/05/2010 - 11:53 | Informe spam

Hola que tal

Tu explicacion es muy clara pero he cambiado esta linea asi:

RaiseEvent Fecha_KeyPress(KeyAscii)

y sigo teniendo el mismo problema

¿Y ahora?

Gracias por vuestra ayuda.

"Ignacio" wrote:

¡Hola, JoseMB!

El evento no es KeyPress sino NombreObjeto_KeyPress, por ejemplo:
Form_KeyPress, Fecha_KeyPress, etc...

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

.

Responder a este mensaje

#3 Patxi Sanz

28/05/2010 - 13:19 | Informe spam

Lo primero: además de indicar el mensaje de error, es bueno que indiques la
línea donde el VBA te marca el error.

Lo segundo: ¿para qué necesitas lanzar un nuevo evento? Dejando aparte que
no creo que hayas creado el evento (para RaiseEvent no sirven los eventos de
los controles que crea Access), ¿no sería suficiente con un Call?

Call Fecha_KeyPress(KeyAscii)

Aunque por otro lado, no entiendo que quieras llamar al mismo evento desde
él, vas a provocar una recursividad que no acabará nunca y te saltará otro
error de Espacio en pila insuficiente.

Un saludo,

Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/

Responder a este mensaje

#4 Ignacio

28/05/2010 - 14:27 | Informe spam

¿Qué tal, JoseMB?

No hace falta que llames a la instrucción RaiseEvent. Simplemente haz
la llamada directa al procedimiento:
Fecha_KeyPress(KeyAscii)

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida