 category macro descripciu8c3b3n descripciu8c3b3n descripciu8c3b3n funciu8c3b3n para aplicar ante acciu8c3b3n deu800 eliminar registro enu800 tabla vidquoten1 yu800 tabla vidquoten2 dentro deu800 form presupuesto composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n form presupuesto cu8c3b3digo cu8c3b3digo cu8c3b3digo function confirmadeletepresupuesto oevent asu800 object dimu800 oestado asu800 boolean select case oeventu82esourceu82emodelu82ename case cabecera oform oeventu82esourceu82emodel oestado oformu82egetbyname txtvidquoteestado .currentvalue ifu800 oestado then omensaje omensaje omensaje & nou800 esu800 posible eliminar unu800 presupuesto aprobado msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation atenciu8c3b3n confirmadeletepresupuesto false else omensaje omensaje omensaje & seu800 procederu8c3a1 au800 eliminar elu800 presupuesto seleccionado. u8c2bfdesea continuar ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then 'msgbox eliminu8c3b3 confirmadeletepresupuesto true else confirmadeletepresupuesto false endu800 ifu800 endu800 ifu800 case productos oform oeventu82esourceu82emodelu82eparent osubform oeventu82esourceu82emodel oestado oformu82egetbyname txtvidquoteestado .currentvalue ifu800 oestado then omensaje omensaje omensaje & nou800 esu800 posible eliminar productos deu800 unu800 presupuesto aprobado msgbox splitmsg omensaje 40u800 mb_ok mb_iconexclamation atenciu8c3b3n confirmadeletepresupuesto false else omensaje omensaje omensaje & seu800 procederu8c3a1 au800 eliminar elu800 producto seleccionado. u8c2bfdesea continuar ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then 'msgbox eliminu8c3b3 confirmadeletepresupuesto true else confirmadeletepresupuesto false endu800 ifu800 endu800 ifu800 endu800 select endu800 function bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20120909 alta deu800 macro usou800 usou800 usou800 form presupuesto evnt confirmdelete 