Report is cross printing

[wildthingcg]

I hope i can explain my problem concisely without having to be too wordy.



I have a form where Members select Jobs to be printed out to a Report.

1. Job(s) is/are selected and written to a table.
2. Member exits the form and returns to the Main Menu.
3. When the Member logs out from the Main Menu if there are Jobs in the table a Report is generated and printed.

A problem occurs when two Members log out at the same time, in that the Jobs for each of the Members is combined to one Report, rather than a separate Report for each Member. Is there some way to make sure these Reports queue separately in my code using the MemberID or somehow set a delay for the Report when the Member logs out?

I hope this makes sense. Thank you

[June7]

Sounds like this is not a split database. If you want to allow multiple users then need to split the database.

[wildthingcg]

The DB is split. Tables in BE everything else in FE.

[June7]

What actions are involved in 'logout'? Run the report before the logout actions. Show the logout procedure code.

[wildthingcg]

Here is the code:

Private Sub Btn_PrintExitLogOut_Click()
Dim Response As Integer

On Error GoTo ErrorHandler

DoCmd.OpenForm "WorkingListSub"
If Forms![WorkingListSub]![JobCardNbr] > 1 Then

DoCmd.OpenQuery "Members_Jobs_Save", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
DoCmd.OpenTable "MembersJobs", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdPasteAppend
DoCmd.SetWarnings True
ClearClipboard
DoCmd.Close acQuery, "Members_Jobs_Save"
DoCmd.Close acTable, "MembersJobs"
DoCmd.OpenReport "Jobs_Print_Jobs", acNormal
DoCmd.OpenTable "WorkingList", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDelete
DoCmd.SetWarnings True
DoCmd.Close acTable, "WorkingList"

Else

Call MsgBox("You Had No Jobs on Your List", vbExclamation Or vbDefaultButton1, "R.O.S.")

End If

DoCmd.Close acForm, "Members_AllJobs"
DoCmd.Close acForm, "WorkingListSub"
DoCmd.Close acForm, "MainMenu_Members"
DoCmd.OpenForm "FrontPage"

ExitErrorHandler:
Exit Sub

ErrorHandler:
CodeErrors.PErrorHandler

Response = acDataErrContinue
Resume ExitErrorHandler

End Sub


Thanks, Cheryl

[June7]

If multiple users (multiple open frontends) are writing (copy/paste) records to the 'jobs' table in the backend then of course all records are viewed by all users. This 'jobs' table sounds like a 'temp' table (records are purged at end of process). Temp tables need to be in the front end so that users activity will not conflict.

[wildthingcg]

Yes, it is a Temp table. I will move it to FE. Thanks for your help!