Solved

Switching between form views using acCmdSubformDatasheet

Posted on 2009-07-01
8
1,094 Views
Last Modified: 2013-11-28
Hi,

Form:                  surveyGroup
Subform             survey
sub-subform       boatTransects

I have a button on the surveyGroup form that switches the view of 'survey' from data sheet to subform view.

The following code works, but when I click the mouse 'flashing cursor'  into a textbox on 'boatTransects' and the button is then clicked, the 'boatTransects' form toggles between subform view and datasheet view NOT the 'survey' form.

What I need to do is get the reference right so that the focus is always on the 'survey' form and therefore gets its view changed regardless of where the cursor is clicked on the other sub-subforms.

Thanks


Private Sub btnView_Click()
If Forms!surveyGroup.survey.Form.surveyTypeID.Value = 2 Then
  'MsgBox "is Land"
  Me.survey.Form.subform_boatTransects.Visible = False
  Me.survey.Form.subform_LandSightings.Visible = True
 
'Swaps the view 
   Me.survey.SetFocus
    DoCmd.RunCommand acCmdSubformDatasheet
    Me.surveyDate.SetFocus
Else
  'MsgBox "is Boat"
  Me.survey.Form.subform_boatTransects.Visible = True
  Me.survey.Form.subform_LandSightings.Visible = False
 
  'Swaps the view 
  Me.survey.SetFocus
  DoCmd.RunCommand acCmdSubformDatasheet
 Me.surveyDate.SetFocus
End If
End Sub

Open in new window

0
Comment
Question by:davecocks
  • 5
  • 3
8 Comments
 
LVL 39

Expert Comment

by:thenelson
ID: 24753514
try this:
  Me.surveyGroup.SetFocus
  Me.survey.SetFocus
  DoCmd.RunCommand acCmdSubformDatasheet
0
 
LVL 39

Expert Comment

by:thenelson
ID: 24753525
If that doesn't do it try this:
  Me.surveyGroup.SetFocus
  Me.survey.SetFocus
  Me.survey.Form.SetFocus
  DoCmd.RunCommand acCmdSubformDatasheet
0
 
LVL 1

Author Comment

by:davecocks
ID: 24761816
Hey,
Thanks for the reply.     I tried both but no joy.

access didin't like       Me.surveyGroup.Setfocus         (method or group not found)
I tried                          Forms!surveyGroup.Setfocus      (worked)

                                  Me.survey.Form.SetFocus      (run time error 2449 invalid method in expression)
I tried     Forms!surveyGroup.survey.Form.SetFocus   (run time error 2449 invalid method in expression)

That left        Forms!surveyGroup.SetFocus
                      Me.survey.SetFocus

Which worked but didn't solve the problem of of the other forms changing.  

Any other ideas?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 39

Accepted Solution

by:
thenelson earned 500 total points
ID: 24761859
Me.surveyGroup.Setfocus   Oops, Sorry.   Me.Bad

1. Try setting the focus to a control in survey:
  Me.survey.SetFocus
  Me.survey!MyControl.SetFocus
  DoCmd.RunCommand acCmdSubformDatasheet

2. Is survey the name of the subform container or the name of the form in the container? If they have the same name, try changing the container to ctnSurvey and use
Me.ctnSurvey.SetFocus
DoCmd.RunCommand acCmdSubformDatasheet
0
 
LVL 39

Expert Comment

by:thenelson
ID: 24762056
I got it.  Place:
DoCmd.RunCommand acCmdSubformDatasheet
in the on enter event of the container for survey SubForm.  

So it only fires when You want it to create a public variable in the main form surveyGroup:

In surveyGroup:
Public CreateDataSheet As Boolean

In survey:
Private Sub ctnsurvey_Enter()
If CreateDataSheet Then DoCmd.RunCommand acCmdSubformDatasheet
CreateDataSheet = False
End Sub

In your Code:
CreateDataSheet = True
Me.survey.SetFocus



0
 
LVL 1

Author Closing Comment

by:davecocks
ID: 31598710
You.Great!!!   1) worked like a charm!!!!  That's brilliant thanks mate!
0
 
LVL 1

Author Comment

by:davecocks
ID: 24762113
Didn't refresh my web page fast enough!  Thanks for posting another solution as well !!
0
 
LVL 39

Expert Comment

by:thenelson
ID: 24762228
I ran into a problem with 1 so that's why I came up with another.

Also figured out what was going on. When you enter a subform, the control in it that last had focus still has the focus. When you clicked on the boatTransects subform, it's container got the focus in the subform. Clicking on the button changed the focus to surveyGroup main form but when you changed the forces to survey, the boatTransects subform container still had the focus within survey.

You're welcome.  Glad to help and thank you very much for the points with "A" grade!  It was a fun one!

Happy Computing!

Nelson
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question