close and reset view

[SueBK]

I have a form, let's call it "Risks". On the form view there is a command button. It opens the same form but in datasheet view and filtered against certain criteria.

I would like to create an "on close" command for the form that says "if this form is in datasheet view and is closed, then actually don't close it, but re-set the view to form view".

Is it possible?

 

[Galaxiom]

If Me.CurrentView = 2 then
Me.CurrentView = 1
Else: DoCmd.Close
End If

 

[John Big Booty]

Try the following on you on close event;

If Me.CurrentView = 2 Then[COLOR="SeaGreen"] ' 0 = Design view, 1 = Form View, 2 = DatasheetView[/COLOR]
     DoCmd.OpenForm "Frm_Name", acNormal
     Exit Sub
End if

 

[John Big Booty]

Sorry just been playing, you will need to put my code on a button that closes the form, as you can't change the form view during the OnClose event.

 

[John Big Booty]

If Me.CurrentView = 2 then
Me.CurrentView = 1
Else: DoCmd.Close
End If

Sorry Me.CurrentView only allows you to determine the current form view, it does not allow you to force changes of the current form view, that must be done using the DoCmd.OpenForm command.

 

[SueBK]

So, really, the easiest way is to copy my form and call it "Risk2" or something? 'Cause the datasheet view can't have command buttons.

 

[John Big Booty]

You could embed your Form Risk in an unbound Main form, on which you could have your control buttons. These buttons could then control the view of your From Risk.

 

[John Big Booty]

The code would look something like;

    If Forms!FRM_Main!FRM_SubForm.Form.CurrentView = 2 Then [COLOR="Green"]' 0 = Design view, 1 = Form View, 2 = DatasheetView[/COLOR]
        Me.FRM_SubForm.SetFocus
        DoCmd.RunCommand acCmdSubformFormView
        Exit Sub
    End If

    DoCmd.Close