Get focus back on Inventor with VBA

[Anonymous]

I've created a VBA macro that is initiated from Inventor.  The macro calls for a FileMaker script to be run on the user's machine.

After the FileMaker script runs, Inventor gets the result and then displays a dialog box where the user selects "yes" or "no".  

I can't seem to get the focus back onto Inventor after that script runs without manually clicking back into the Inventor window (focus stays with FileMaker after the script runs).  I'd like to be able to hit "enter" to automatically select "yes" on the dialog box, but I have to get focus back on the Inventor window for that to happen.

Anyone know how to get VBA to steal focus back to Inventor?

Windows 10 Pro

VBA 7.1

Inventor 2017

FileMaker Pro 16

[Mark.Lancaster]

@Anonymous

Programming questions and needs should be posted in the Inventor Customization forum https://forums.autodesk.com/t5/inventor-customization/bd-p/120 for best results.  I will have the moderator relocate it there to better suit your needs.

[bradeneuropeArthur]

This dialog box is a userform?
Than you need to use showdialog instead of show.
Regards

[Anonymous]

Not sure I'm quite with you yet...

Yes, I've got a userform generated through VBA in Inventor.  It's just a yes/no msgbox.

But an entirely different program (FileMaker) seems to take the focus and won't give it back.

Here are the two relevant lines of my code.  The first calls the FileMaker program.  The second generates the msgbox in Inventor.

***

FMApp.Documents("AH.fmp12").DoFMScript ("InventorRevQuery")

ReadyToRelease = MsgBox("Preparing to release revision '-' of " & PartNumber & "." & vbNewLine & "Do you wish to proceed?", vbYesNo + vbExclamation, "Ready to Release?")

***

Having VBA generate the msgbox doesn't steal the focus back from FileMaker.  Is there VBA code that will do that?

[bradeneuropeArthur]

Then Create your own defined messagebox.

please find attached the VBA Code.

Create a UserformX

and a ModuleX

'The Code For the UserFormX
Private Sub CommandButtonNo_Click()

MsgBox "Do This When NO"
UserFormX.Hide
End Sub

Private Sub CommandButtonYes_Click()

MsgBox "Do This When Yes"
UserFormX.Hide
End Sub

'The Code For the ModuleX

Public Sub main()

UserFormX.Label1.Caption = "Preparing to release revision '-' of " & PartNumber & "." & vbNewLine & "Do you wish to proceed?"

UserFormX.Show (Modal)

End Sub