Buenos dias amigos, 

avanzando con mi formulario de suministros me encuentro con el error de que no se encuentra el objeto

he configurado un segundo userform "UserForm2" el cual se activa cuando hago clik en elemento del LISTBOX " LBProductos" y me permite escribir la cantidad del producto que deseo agregar. Hasta ahi funciona

Pero al seleccionar el Boton "CONFIRMAR", para cargar la cantidad de ese producto seleccionado en el UserForm1 me dice que no se encuenta el objeto, y no encuentro la forma de resolverlo.

La secuencia seria: _1 busco el producto en el USERFORM1, al hacer doble click sobre el producto

                                -2 se activa el userform2 y escribo el textbox "TXTCANTIDAD" la cantidad que deseo seleccionar.

                                -3 al presionar el Boton "CONFIRMAR" me introduzca el producto seleccionado y la cantidad en el ListBox "LBPedidos"

                                -4 se cierre el UserForm2 para seguir elegiendo productos o bien se cierre el pedido...

suministros Romi.xlsm

Me podrian ayudar?

Millones de gracias de ante mano

Hace 2 horas, roa30 dijo:

Me podrian ayudar?

Primero ten en cuenta que para que funcione, AMBOS FORM deben tener la propiedad "ShowModal" en FALDE. Solo cambia el código del botón del UserForm2 a:
 

Private Sub CONFIRMAR_Click()


CANT = TXTCANTIDAD.Value
UserForm1.LBPedidos.List(UserForm1.LBPedidos.ListCount - 1, 4) = CANT
     
UserForm2.Hide
UserForm1.Show

End Sub

 

Hace 2 horas, Haplox dijo:

Primero ten en cuenta que para que funcione, AMBOS FORM deben tener la propiedad "ShowModal" en FALDE. Solo cambia el código del botón del UserForm2 a:
 

Private Sub CONFIRMAR_Click()


CANT = TXTCANTIDAD.Value
UserForm1.LBPedidos.List(UserForm1.LBPedidos.ListCount - 1, 4) = CANT
     
UserForm2.Hide
UserForm1.Show

End Sub

 

@HaploxMuchisimas gracias. funciono perfecto!!!! gracias! gracias!

No sabia lo de la propiedad show modal, tengo que interiorizarme mas sobre eso, pero tu ayuda en el código funciono perfecto! gracias!

No estoy de acuerdo con esta afirmación:

Cita

Primero ten en cuenta que para que funcione, AMBOS FORM deben tener la propiedad "ShowModal" en FALSE. 

 

Private Sub CONFIRMAR_Click()
   With UserForm1.LBPedidos
     .List(.ListCount - 1, 4) = TXTCANTIDAD
     Unload Me
   End With
End Sub

 

 

 

Editado el el 7 de julio3 años por Antoni

Hace 2 horas, Antoni dijo:

No estoy de acuerdo con esta afirmación:

 

Private Sub CONFIRMAR_Click()
   With UserForm1.LBPedidos
     .List(.ListCount - 1, 4) = TXTCANTIDAD
     Unload Me
   End With
End Sub

 

 

 

Hola @Antonimuchisimas gracias!

funciona excelente!!!!!

 

 

En 7/7/2021 at 20:04 , Antoni dijo:

No estoy de acuerdo con esta afirmación:

Hace 2 horas, Haplox dijo:

La propiedad ShowModal solo afecta a la forma de trabajar con los formularios.

A True, solo puedes trabajar con el último formulario mostrado, a False puedes trabajar con cualquier formulario mostrado, se pueden modificar los valores y las propiedades de cualquiera de ellos, ya sea desde otro formulario o desde una macro, estén mostrados o no, con independencia de la forma en que se muestren. ?

Editado el el 10 de julio3 años por Antoni

Hace 14 minutos , Antoni dijo:

La propiedad ShowModal solo afecta a la forma de trabajar con los formularios.

???.... ¡¡¡Ayyy... qué haríamos sin ti!!!