>Hi Barbara,
>
>Can you post all the code that launches form from a menu?

You want the entire MPR? Here it is.

*       *********************************************************
*       *                                                         
*       * 01/05/2005             MAIN.MPR               22:56:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2005 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1f41d5q4u OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1f41d5q4v OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1f41d5q4w OF _MSYSMENU PROMPT "\<Reports" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1f41d5q4x OF _MSYSMENU PROMPT "\<Utilities" COLOR SCHEME 3 ;
	KEY ALT+U, ""
DEFINE PAD _1f41d5q4y OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1f41d5q4u OF _MSYSMENU ACTIVATE POPUP file
ON PAD _1f41d5q4v OF _MSYSMENU ACTIVATE POPUP edit
ON PAD _1f41d5q4w OF _MSYSMENU ACTIVATE POPUP reports
ON PAD _1f41d5q4x OF _MSYSMENU ACTIVATE POPUP utilities
ON PAD _1f41d5q4y OF _MSYSMENU ACTIVATE POPUP help

DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF file PROMPT "Sche\<duled Maintenance"
DEFINE BAR 2 OF file PROMPT "\<Transfers"
DEFINE BAR 3 OF file PROMPT "\<Service"
DEFINE BAR 4 OF file PROMPT "\<Purchase History" ;
	SKIP FOR not INLIST(goApp.SecurityGroup,"Manager","Data Entry")
DEFINE BAR 5 OF file PROMPT "\-"
DEFINE BAR 6 OF file PROMPT "\<Locations"
DEFINE BAR 7 OF file PROMPT "Tool \<Master"
DEFINE BAR 8 OF file PROMPT "\<Categories" ;
	SKIP FOR upper(goApp.SecurityGroup) <> "MANAGER"
DEFINE BAR 9 OF file PROMPT "\<Units"
DEFINE BAR 10 OF file PROMPT "\-"
DEFINE BAR 11 OF file PROMPT "Locations Master" ;
	SKIP FOR upper(goApp.SecurityGroup) <> "MANAGER"
DEFINE BAR 12 OF file PROMPT "Berg Office Data Path" ;
	SKIP FOR upper(goApp.SecurityGroup) <> "MANAGER"
DEFINE BAR 13 OF file PROMPT "\-"
DEFINE BAR 14 OF file PROMPT "E\<xit" ;
	SKIP FOR _screen.formcount > 1
ON SELECTION BAR 1 OF file do form Maintenance
ON SELECTION BAR 2 OF file do form Transfers
ON SELECTION BAR 3 OF file do form Service
ON SELECTION BAR 4 OF file do form Purchase
ON SELECTION BAR 6 OF file do form Locations
ON SELECTION BAR 7 OF file do form ToolMast
ON SELECTION BAR 8 OF file do form Categories
ON SELECTION BAR 9 OF file do form Units
ON SELECTION BAR 11 OF file do form Locations with .T.
ON SELECTION BAR 12 OF file do form ToolConf
ON SELECTION BAR 14 OF file quit

DEFINE POPUP edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_cut OF edit PROMPT "Cu\<t" ;
	KEY CTRL+X, "CTRL+X"
DEFINE BAR _med_copy OF edit PROMPT "\<Copy" ;
	KEY CTRL+C, "CTRL+C"
DEFINE BAR _med_paste OF edit PROMPT "\<Paste" ;
	KEY CTRL+V, "CTRL+V"
DEFINE BAR _med_slcta OF edit PROMPT "Se\<lect all" ;
	KEY CTRL+A, "CTRL+A"

DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF reports PROMPT "Tool \<Transfer Report"
DEFINE BAR 2 OF reports PROMPT "Tool \<Search Report"
DEFINE BAR 3 OF reports PROMPT "Scheduled \<Maintenance Report"
DEFINE BAR 4 OF reports PROMPT "\-"
DEFINE BAR 5 OF reports PROMPT "\<Purchase History" ;
	SKIP FOR not inlist(upper(goApp.SecurityGroup) , "MANAGER", "DATA ENTRY")
DEFINE BAR 6 OF reports PROMPT "\<Inventory Reduction Report" ;
	SKIP FOR not inlist(upper(goApp.SecurityGroup) , "MANAGER", "DATA ENTRY")
ON SELECTION BAR 1 OF reports do form TransfersRpt
ON SELECTION BAR 2 OF reports do form ToolSearchRpt
ON SELECTION BAR 3 OF reports do form MaintRpt
ON SELECTION BAR 5 OF reports do form PurchHistRpt
ON SELECTION BAR 6 OF reports do form InvenReductionRpt

DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF utilities PROMPT "\<Pack and Reindex files" ;
	SKIP FOR _screen.formcount > 1
DEFINE BAR 2 OF utilities PROMPT "\<Error Log Report"
DEFINE BAR 3 OF utilities PROMPT "Regenerate Current Locations File"
ON SELECTION BAR 1 OF utilities ;
	DO _1f41d5q5e ;
	IN LOCFILE("TOOLS\SOURCE\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF utilities do form Err_Rpt
ON SELECTION BAR 3 OF utilities do form RecalcLocC

DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF help PROMPT "Help"
ON SELECTION BAR 1 OF help Help


*       *********************************************************
*       *                                                         
*       * _1F41D5Q5E  ON SELECTION BAR 1 OF POPUP utilities       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   39           
*       * Called By:  ON SELECTION BAR 1 OF POPUP utilities       
*       * Prompt:     Pack and Reindex files                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f41d5q5e
goApp.FileChk("TOP", .T.)
goApp.FileChk("OFFICE",.T.)