
 
 O p t i o n   C o m p a r e   D a t a b a s e 
 
 
 
 P r i v a t e   S u b   c m d D e l e t e _ C l i c k ( ) 
 
 O n   E r r o r   G o T o   E r r _ c m d D e l e t e _ C l i c k 
 
 
 
 
 
         D o C m d . R u n C o m m a n d   a c C m d S e l e c t R e c o r d 
 
         D o C m d . R u n C o m m a n d   a c C m d D e l e t e R e c o r d 
 
 
 
 E x i t _ c m d D e l e t e _ C l i c k : 
 
         E x i t   S u b 
 
 
 
 E r r _ c m d D e l e t e _ C l i c k : 
 
         M s g B o x   E r r . D e s c r i p t i o n 
 
         R e s u m e   E x i t _ c m d D e l e t e _ C l i c k 
 
         
 
 E n d   S u b 
 
 P r i v a t e   S u b   c m d A d d N e w _ C l i c k ( ) 
 
 O n   E r r o r   G o T o   E r r _ c m d A d d N e w _ C l i c k 
 
 
 
 
 
         D o C m d . G o T o R e c o r d   ,   ,   a c N e w R e c 
 
 
 
 E x i t _ c m d A d d N e w _ C l i c k : 
 
         E x i t   S u b 
 
 
 
 E r r _ c m d A d d N e w _ C l i c k : 
 
         M s g B o x   E r r . D e s c r i p t i o n 
 
         R e s u m e   E x i t _ c m d A d d N e w _ C l i c k 
 
         
 
 E n d   S u b 
 
 
 
 P r i v a t e   S u b   c m d P r o c e s s M R P _ C l i c k ( ) 
 
 O n   E r r o r   G o T o   c m d P r o c e s s M R P _ C l i c k _ E r r 
 
 
 
         D o C m d . O p e n F o r m   " f r m P r o c e s s M R P " ,   a c N o r m a l ,   " " ,   " " ,   a c A d d ,   a c D i a l o g 
 
         M e . c m d S a v e . E n a b l e d   =   T r u e 
 
 
 
 
 
 c m d P r o c e s s M R P _ C l i c k _ E x i t : 
 
         E x i t   S u b 
 
 
 
 c m d P r o c e s s M R P _ C l i c k _ E r r : 
 
         M s g B o x   " P l e a s e   e n t e r   I t e m   C o d e " ,   v b E x c l a m a t i o n ,   " M R P   M a n a g e r " 
 
         M e . c m d S a v e . E n a b l e d   =   F a l s e 
 
         R e s u m e   c m d P r o c e s s M R P _ C l i c k _ E x i t 
 
 
 
 E n d   S u b 
 
 
 
 P r i v a t e   S u b   c m d S a v e _ C l i c k ( ) 
 
 O n   E r r o r   R e s u m e   N e x t 
 
         D o C m d . G o T o R e c o r d   ,   ,   a c N e w R e c 
 
 M e . c m d S a v e . E n a b l e d   =   F a l s e 
 
         
 
 E n d   S u b 
 
 P r i v a t e   S u b   c m d C l o s e d _ C l i c k ( ) 
 
 O n   E r r o r   G o T o   E r r _ c m d C l o s e d _ C l i c k 
 
 
 
 
 
         I f   M e . D i r t y   T h e n   M e . D i r t y   =   F a l s e 
 
         D o C m d . C l o s e 
 
 
 
 E x i t _ c m d C l o s e d _ C l i c k : 
 
         E x i t   S u b 
 
 
 
 E r r _ c m d C l o s e d _ C l i c k : 
 
         M s g B o x   E r r . D e s c r i p t i o n 
 
         R e s u m e   E x i t _ c m d C l o s e d _ C l i c k 
 
         
 
 E n d   S u b 
 
 P r i v a t e   S u b   m e m P r o p e r t y N o t e s _ E n t e r ( ) 
 
         M e ! m e m P r o p e r t y N o t e s . S e l S t a r t   =   M e ! m e m P r o p e r t y N o t e s . S e l L e n g t h 
 
 E n d   S u b 
 
 
 
 P r i v a t e   S u b   C o m m a n d 2 0 1 _ C l i c k ( ) 
 
 
 
 E n d   S u b 
 
 
 
 P r i v a t e   S u b   F o r m _ B e f o r e U p d a t e ( C a n c e l   A s   I n t e g e r ) 
 
 ' P r o v i d e   t h e   u s e r   w i t h   t h e   o p t i o n   t o   s a v e / u n d o 
 
 ' c h a n g e s   m a d e   t o   t h e   r e c o r d   i n   t h e   f o r m 
 
 
 
         I f   M s g B o x ( " C h a n g e s   h a v e   b e e n   m a d e   t o   t h i s   r e c o r d . "   _ 
 
                 &   v b C r L f   &   v b C r L f   &   " D o   y o u   w a n t   t o   s a v e   t h e s e   c h a n g e s ? "   _ 
 
                 ,   v b Y e s N o ,   " D a t a   m o d i f i e d " )   =   v b Y e s   T h e n 
 
                         D o C m d . S a v e 
 
                 E l s e 
 
                         D o C m d . R u n C o m m a n d   a c C m d U n d o 
 
         E n d   I f 
 
 
 
 E n d   S u b 
 
 
 
 