Hola estimado, en el minuto 48:10 del video, no es necesario hacerlo en el diseñador en cada control para que reciba los eventos: Agregando esta línea de código en la clase, funcionará sin problemas. Así lo tengo yo en mi código donde se agrega funcionalidad a un botón usando las clases. m_ctlButton.OnClick = "[Event Procedure]" Este es el código completo de el procedimento: Public Property Set Button(ctlButton As Access.CommandButton) On Error GoTo Button_Error Set m_ctlButton = ctlButton m_ctlButton.OnClick = "[Event Procedure]" On Error GoTo 0 Exit Property Button_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Button of Módulo de clase clsButtonTouch" Modfs.WriteError Err.Number, Err.Description, "clsButtonTouch.Button" End Property Nota: este es el código de la propiedad de la clase donde se enlaza el control con la clase. Saludos.
me sale el mensaje: se ha producido el error '457' en tiempo de ejecución Esta tecla ya está asociada con un elemento de esta colección, en el evento Form_Load del formulario
Excelente video! Realmente lleva la programacion en access a otro nivel! Muchas gracias!
Muy interesante como siempre gracias Samuel,
Gracias a ti cambie mi forma de programar a clase,.
Muito bom. Exelente apresentação. Com certeza eleva o nivel da programação.
Estoy interesado en el curso, donde me puedo inscribir, un saludo desde Colombia
Hola estimado, en el minuto 48:10 del video, no es necesario hacerlo en el diseñador en cada control para que reciba los eventos: Agregando esta línea de código en la clase, funcionará sin problemas.
Así lo tengo yo en mi código donde se agrega funcionalidad a un botón usando las clases.
m_ctlButton.OnClick = "[Event Procedure]"
Este es el código completo de el procedimento:
Public Property Set Button(ctlButton As Access.CommandButton)
On Error GoTo Button_Error
Set m_ctlButton = ctlButton
m_ctlButton.OnClick = "[Event Procedure]"
On Error GoTo 0
Exit Property
Button_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Button of Módulo de clase clsButtonTouch"
Modfs.WriteError Err.Number, Err.Description, "clsButtonTouch.Button"
End Property
Nota: este es el código de la propiedad de la clase donde se enlaza el control con la clase. Saludos.
Hay algun lugar donde descargar estos ejemplos
en dónde se inscribe a sus cursos?
cuando daras el curso de clases?
Hola, nuestras reuniones son una vez al mes, puedes ver el calendario aqui: accessusergroups.org/calendar/
me sale el mensaje: se ha producido el error '457' en tiempo de ejecución
Esta tecla ya está asociada con un elemento de esta colección, en el evento Form_Load del formulario