Return to Subform after ActiveX Control Loads

I have code in the On Current event of a subform that loads a pdf associated with that record into an ActiveX control on the Main form.  The problem is that the focus moves from the subform to the ActiveX control and I can't get it back to the subform without clicking on that record again.  How can I either return to the record on the subform or never leave it in the first place?  Here's what I'm using (feel free to recommend a different method):

Private Sub Form_Current()

'Load Incorrect File
Dim sIncorrectScan_Path As String
sIncorrectScan_Path = "Q:\A_DPW\Images\SewerTieCards\" & [Address] & ".pdf"

Forms!DocumentManagementQC!AcroPDF7_Incorrect.LoadFile (sIncorrectScan_Path)
Forms!DocumentManagementQC!AcroPDF7_Incorrect.setShowToolbar (True)
Forms!DocumentManagementQC!AcroPDF7_Incorrect.setView ("Stretch")

End Sub

Open in new window



Thanks,
Jeff
wellesleydpwAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Jeffrey CoachmanConnect With a Mentor MIS LiasonCommented:
<I can't get it back to the subform without clicking on that record again.  How can I either return to the record on the subform or never leave it in the first place?>
What the need to move the focus back to the subform?

Besides your code *does* move the focus back to the subform control.

If you comment out your line:
    Forms!Addresses!Addresses_sf_Index!Address.SetFocus
Then close, ...then reopen the form, you will see that the focus is not in the subform control.

Then when you un-commented the line, then close, then re-open the form, ...you will see that the focus moves to (and highlights) the subform control.
(now the subform *control* has the focus)
0
 
peter57rCommented:
Have you tried adding a setfocus at the end?

me.sometextboxname.Setfocus
0
 
wellesleydpwAuthor Commented:
I tried that and also tried including a 2 second pause but neither worked.  Focus was still on the PDF.
0
Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

 
Jeffrey CoachmanMIS LiasonCommented:
Try using the webbrowser control instead...

Private Sub Form_Current()

'Load Incorrect File
Dim sIncorrectScan_Path As String
sIncorrectScan_Path = "Q:\A_DPW\Images\SewerTieCards\" & [Address] & ".pdf"
Me.WebBrowser7.Navigate url:=sIncorrectScan_Path

End Sub
0
 
wellesleydpwAuthor Commented:
Tried the WebBroswer control and it's behaving the same way.  My subform is on a tab control - would that affect it?
0
 
wellesleydpwAuthor Commented:
0
 
Jeffrey CoachmanMIS LiasonCommented:
It is not clear from your pdf  were your "subform" is...
I see a "Tab Control" though....

It is also not clear what you mean by:
<The problem is that the focus moves from the subform to the ActiveX control and I can't get it back to the subform without clicking on that record again. >

I put a msgbox on the Got Focus event of the Webrowser control and it IS NOT receiving the focus...
(Please try this yourself to verify)
But if you want to set the focus back to another control, simply use code to so so:
Me.SomeControl.SetFocus
Or
Forms!SomeForm!SomeControl.setFocus.


...else, just post a simply sample of this form and state clearly what you want to happen and when...
0
 
wellesleydpwAuthor Commented:
Thanks boag2000,
The subform is the datasheet on the tab control.

I'll try to be clear about the behavior:
The pdf loads in the on current event on the subform.  If I then press the down arrow, the pdf scrolls down (this is why I think the PDF has the focus).  

I tried your recommendation of putting a msgbox in the Got focus event.  The msgbox does appear right BEFORE the PDF loads.

I continue to try your recommendations.
Jeff
0
 
Jeffrey CoachmanMIS LiasonCommented:
<The subform is the datasheet on the tab control.>
Still confused, ... you cannot inset a subform into a form in Datasheet view.

How about  you just post a example of this DB...?

My test was using the webbrowser control and it did not get the focus....
0
 
wellesleydpwAuthor Commented:
Sorry for the delay I was at a conference the last two days.

I've posted an example of the form (you'll need 2 pdfs in C:\ named "1 Main Street" and "2 Main Street") for the webviewer to display them.

I've placed a msgbox in the got focus event of the  one field on the subform.

Thanks.
Jeff
DB.accdb
0
 
wellesleydpwAuthor Commented:
I've requested that this question be deleted for the following reason:

No good solution.<br /><br />Thank you.
0
 
Jeffrey CoachmanMIS LiasonCommented:
Solution and explanation posted in 37826279
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.