Default Forms

[BigCat]

Right now I have a series of forms that eventually the user can get to one form that produces a report in print preview. Once they are done with that though and close the print preview I want the original home screen to come back up for them.



Is there a way to do this?

Do I need to add some kind of listener that notices when the preview is closed and will pop the home screen back up?

[June7]

I do this with code in the Close event of the report to set focus back to a form.

[BigCat]

I am fairly new to alot of this. Could you give me more detail on what you are talking about please.

[nicknameoscar]

I think June7 is saying that in the Close Event of the report the user was viewing but is now closing you would have code looking something like this:

Forms!frmYourFormName.SetFocus

[BigCat]

ok, but can you put a close event on a report that is in print preview??

I have it opening in print preview because I don't want the user to see it in design view and the only other option would be acViewNormal and that would automaticaly print the report wouldn't it?

[nicknameoscar]

Sorry, I missed the print preview part. I don't know but will go research.

[nicknameoscar]

Well, dumb me. The report I use comes up in Print Preview. Never noticed. Anyway, I have code in the Close event and it works great. I actually check to see which of 2 forms could be open and then check if they are visible. If it isn't I make it visible.

 
Private Sub Report_Close()
If SysCmd(acSysCmdGetObjectState, acForm, "frmSplitDivision") > 0 Then
 
If Forms!frmSplitDivision.Visible = False Then
 
Forms!frmSplitDivision.Visible = True
 
End If
 
ElseIf SysCmd(acSysCmdGetObjectState, acForm, "frmV_BHSAReports") > 0 Then
 
If Forms!frmV_BHSAReports.Visible = False Then
 
Forms!frmV_BHSAReports.Visible = True
 
End If
 
End If

[BigCat]

I went into design mode and opened up the code and added the following, but then when I close the print preview it doesn't open my home screen.

Private Sub Report_Close()
If SysCmd(acSysCmdGetObjectState, acForm, "HomeScreen") > 0 Then
If Forms!HomeScreen.Visible = False Then
Forms!HomeScreen.Visible = True
End If
End If
End Sub

[nicknameoscar]

Do you close HomeScreen when you open the report? If you do then you would need to do something like the below. I only have the MsgBox statement in there so you can be sure the Close event is actually firing.

 
Private Sub Report_Close() 
 
MsgBox "Report_Close event fired"
 
If SysCmd(acSysCmdGetObjectState, acForm, "HomeScreen") > 0 Then
  
If Forms!HomeScreen.Visible = False Then
 
Forms!HomeScreen.Visible = True
 
End If
 
ElseIf SysCmd(acSysCmdGetObjectState, acForm, "HomeScreen") = 0 Then
 
DoCmd.OpenForm "HomeScreen"
 
End If
 
End Sub

[BigCat]

Thanks alot. Works Great.

[nicknameoscar]

Great! Glad it works.

I just noticed I had put the MsgBox statement in the wrong place. I hope that didn't cause you problems. It is correct now.