Doble click
Hola experto TELEMACO, solicito tu ayuda para lo siguiente:
Tengo un formulario llamado Empleados con un subformulario llamado Pedidos, en este subformulario al recibir foco el campo llamado precio unitario se abre un formulario llamado Precios.
Como le hago para que al dar doble clic en el campo Precio del formulario Precios la cantidad que copie en el campo del subformulario Pedidos.
Te agradeceré mucho tu ayuda.
Saludos cordiales, desde México
Tengo un formulario llamado Empleados con un subformulario llamado Pedidos, en este subformulario al recibir foco el campo llamado precio unitario se abre un formulario llamado Precios.
Como le hago para que al dar doble clic en el campo Precio del formulario Precios la cantidad que copie en el campo del subformulario Pedidos.
Te agradeceré mucho tu ayuda.
Saludos cordiales, desde México
1 Respuesta
Respuesta de telemaco
1
Primero hay que trabajar con el evento doble click del campo precio en precios... entonces ve a propiedades de la caja de texto precio, ve a eventos y busca doble click, da click en el botón de los puntos suspensivos y selecciona generador de código..
*********************
if not isnull(("Empleados").Pedidos.form.Precio.Precios.Form.Precio) then
forms("Empleados").Pedidos.form.Precio = ("Empleados").Pedidos.form.Precio.Precios.Form.Precio
end if
***********************
Bueno parece enredado.. lo que pasa es que toca jerarquizar la llamada al formulario, es decir, para invocar el formulario precios, como esta en pedidos y este a su vez en empleados, toca nombrar los formularios(subformularios) con la palabra form, y luego el campo a que nos referimos... ahora no se si es un subformulario PRECIOS o un cuadro combinado, en este caso en vez del dlble clic tocaría el evento afterupdate (después de actualizar)... y quedaría así:
******************
if not isnull(("Empleados").Pedidos.form.Precio.Precios) then
forms("Empleados").Pedidos.form.Precio = ("Empleados").Pedidos.form.Precio.Precios
end if
****************
Att:telemaco
Me comentas como te fue.. sino te sigo ayudando...
Ahjhh... disculpa la demora en contestar... es que estaba en unas mini vaciones... por así decirlo...
*********************
if not isnull(("Empleados").Pedidos.form.Precio.Precios.Form.Precio) then
forms("Empleados").Pedidos.form.Precio = ("Empleados").Pedidos.form.Precio.Precios.Form.Precio
end if
***********************
Bueno parece enredado.. lo que pasa es que toca jerarquizar la llamada al formulario, es decir, para invocar el formulario precios, como esta en pedidos y este a su vez en empleados, toca nombrar los formularios(subformularios) con la palabra form, y luego el campo a que nos referimos... ahora no se si es un subformulario PRECIOS o un cuadro combinado, en este caso en vez del dlble clic tocaría el evento afterupdate (después de actualizar)... y quedaría así:
******************
if not isnull(("Empleados").Pedidos.form.Precio.Precios) then
forms("Empleados").Pedidos.form.Precio = ("Empleados").Pedidos.form.Precio.Precios
end if
****************
Att:telemaco
Me comentas como te fue.. sino te sigo ayudando...
Ahjhh... disculpa la demora en contestar... es que estaba en unas mini vaciones... por así decirlo...
