Página 1 de 1

[RESUELTO] error de basic

NotaPublicado: Lun Dic 02, 2019 8:58 pm
por sherlockh
hola, buenas tardes desearía a ver si me podéis ayudar al aplicar una macro de un combobox con imagenes me aparece este error lo he revisado, funciona perfecto, pero salta el error cada vez que ejecuto la macro,, además necesitaría que se limpiase al cambiar de registro. Dejo la base en la que trabajo, en la que hay un poco de todos porque muchas ideas son vuestras.

Captura2.PNG



https://drive.google.com/drive/folders/ ... sp=sharing

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 2:53 am
por mauricio
La imagen no se alcanza a ver...

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 4:22 pm
por RMG
Hola,

Como dice Mauricio, la imagen no se ve bien, pero he descargado el ejemplo y el problema es que tienes asignada una macro al formulario alergenos, dentro de recetas, pasa todos los datos de los combobox a recetas y eliminas alergenos, ya que este formulario por lo que intuyo, no vas a cambiar de registro. Después pones esta macro tras cambio registro en recetas, para que ponga todo a blanco.
Además de este formulario innecesario tienes otros que no hacen falta, cuanto de más recursos hagas uso en la BD, más lenta funcionará.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub ImagenBlancoCbo (Evento)
Evento.Source.getByName("img1").ImageURL = ""
Evento.Source.getByName("cbo1").Text = ""
Evento.Source.getByName("img2").ImageURL = ""
Evento.Source.getByName("cbo2").Text = ""
Evento.Source.getByName("img3").ImageURL = ""
Evento.Source.getByName("cbo3").Text = ""
Evento.Source.getByName("img4").ImageURL = ""
Evento.Source.getByName("cbo4").Text = ""
Evento.Source.getByName("img5").ImageURL = ""
Evento.Source.getByName("cbo5").Text = ""
Evento.Source.getByName("img6").ImageURL = ""
Evento.Source.getByName("cbo6").Text = ""
End Sub


Saludos

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 6:19 pm
por sherlockh
Perdón, creo que la he mejorado algo. He leído varios recursos del foro pero mi formulario si existe.


Captura4.PNG



pero, si no se lee todavia es Error de Basic
se ha producido una excepcion.
Type.com.sum.star.container. NoSuchElementException
Message.
y va a la linea txtImagen = Evento.Source.getByName("alergeno")

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 6:26 pm
por mauricio
El formulario tal vez, lo que dice el error es que alergeno es el que no existe. Dependiendo en que evento hayas relacionado la macro, Evento.Source pueden ser diferentes objetos.

¿Ya revisaste lo que te comento mi amigo RMG?

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 6:28 pm
por sherlockh
Estoy en ello

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 6:34 pm
por RMG
Hola,

No has entendido lo que te explico. El mensaje de error es por que no encuentra el control (container), en este caso el campo texto alergeno, y esto sucede por que has puesto la macro del formulario FormALERGENOS (tras cambio registro) a un formulario interno en FormRECETAS llamado SubformALERGENOS. Este subformulario es el que hace que se dispare el error de la macro ya que no encuentra el control "alergeno". Quitale esa la macro y lo comprobarás.

Saludos

Re: error de basic

NotaPublicado: Mar Dic 03, 2019 8:05 pm
por sherlockh
Excelente, va perfecto