I have no trouble
Expand|Select|Wrap|Line Numbers
- '------------------------------------------------------------
- ' Module : Create_the_Employee_Tables_and_Forms
- ' DateTime : 10/02/2007
- ' Author : John C Devonshire
- ' Purpose : Create the Employee Tables and Forms
- '------------------------------------------------------------
- Sub Create_the_Employee_Tables_and_Forms()
- '**** Resetting switches
- On Error GoTo Err_Create_the_Employee_Tables_and_Forms
- strNameSub = "Create_the_Employee_Tables_and_Forms"
- 'Call AutoComments_Sub
- DoCmd.SetWarnings False
- If intNumber_Next < 6 Then
- '*************************************************************
- '**** WE MUST MAKE SURE THE INPUT TABLES ARE CLEARED OF DATA *
- '*************************************************************
- Call Clear_New_User_Table
- strNameSub = "Create_the_Employee_Tables_and_Forms"
- '*************************************************************
- '**** CREATE THE FORMS AND TABLES BY USER NUMBER *
- '*************************************************************
- strUserNumber_TMP(intNumber_Current) = strUserNumber & "_" & intNumber_Next & "_TMP"
- DoCmd.CopyObject , strUserNumber_TMP(intNumber_Current), acTable, "EDU_New_User_" & intNumber_Next & "_TBL"
- strUserNumber_FRM(intNumber_Current) = strUserNumber & "_" & intNumber_Next & "_FRM"
- DoCmd.CopyObject , strUserNumber_FRM(intNumber_Current), acForm, "EDU_New_User_" & intNumber_Next & "_FRM"
- Else
- DoCmd.CopyObject , strUserNumber_TBL, acTable, "EDU_Returning_User_TBL"
- End If
- DoCmd.SetWarnings True
- DoCmd.Restore
- Call Get_Forms_And_Tables
- Exit_Create_the_Employee_Tables_and_Forms:
- Exit Sub
- Err_Create_the_Employee_Tables_and_Forms:
- MsgBox err.Number
- MsgBox err.DESCRIPTION
- Call AutoErrorMsgbox_Sub
- Resume Exit_Create_the_Employee_Tables_and_Forms
- End Sub
and no trouble with the table when there are multiusers
but error 2501 appears with the form copy in multiuser envirnoment
What am I missing
Thanks