Set name of the active form as a variable

[cbgraham_asu]

I have a custom switchboard. I want it to open a new menu and THEN
close the previous menu, so that the screen doesn't blink in between.
Here's the code I keep trying to tweak but which never works.

Const conCmdGotoMenu = 1
Dim stfrm As String

(...some in between stuff that works fine)

' Go to Menu

Case conCmdGotoMenu
Set stfrm = Me.Form
DoCmd.OpenForm rs![Argument]
DoCmd.Close acForm, "stfrm"

My problem is that "Set stfrm = me.form" doesn't work. Nothing else
I try does either. I'm at a loss. So how do I set the name of the
active form as a variable? This has to work as part of a public
function so that it can be called from various forms and work. I
could just do...

docmd.Close
Docmd.openform rs![Argument]

.....and it works okay, but the blink "annoys people." =S And now i
have to solve it just for the principal of the matter. Many Thanks!

 

[Guest]

I think you are doing it the hard way. Post the content of your Switchbord
Items table.

 

[cbgraham_asu]

Its not the just built in switchboard because the layout wouldn't
work. The main menu and submenus need to have different arrangements
and different buttons - so they are actually different forms. The
code is the same as for the switchboard, but there's no switchboard ID
on the switchboard items table b/c it's irrelevant. Here's the items
table.

ItemNo ItemText Command Argument
1 MENU - Main 1 MenuMain
2 MENU - Special reports 1 MenuReports
3 SEND FEEDBACK 2 FrmSuggestions
4 HELP 3 FrmHelp
5 EXIT 6
6 STATUS Open Orders 3 FrmOrders
7 STATUS Unpaid Invoices 3 FrmInvoices
8 RUN Open Order Report 4 RptOpenOrders
9 RUN Unpaid Invoice Report 4 RptInvoices
10 EXPORT Open Orders 3 FrmRPOrders
11 EXPORT Invoices 3 FrmRPInvoices
........etc......

 

[Guest]

I am afraid I can not help.

 

[James A. Fortune]

I have a custom switchboard. I want it to open a new menu and THEN
close the previous menu, so that the screen doesn't blink in between.
Here's the code I keep trying to tweak but which never works.

Const conCmdGotoMenu = 1
Dim stfrm As String

(...some in between stuff that works fine)

' Go to Menu

Case conCmdGotoMenu
Set stfrm = Me.Form
DoCmd.OpenForm rs![Argument]
DoCmd.Close acForm, "stfrm"

My problem is that "Set stfrm = me.form" doesn't work. Nothing else
I try does either. I'm at a loss. So how do I set the name of the
active form as a variable? This has to work as part of a public
function so that it can be called from various forms and work. I
could just do...

docmd.Close
Docmd.openform rs![Argument]

....and it works okay, but the blink "annoys people." =S And now i
have to solve it just for the principal of the matter. Many Thanks!

Instead of:

Case conCmdGotoMenu
Set stfrm = Me.Form
DoCmd.OpenForm rs![Argument]
DoCmd.Close acForm, "stfrm"

Try:

Case conCmdGotoMenu
stfrm = Me.Name
DoCmd.OpenForm rs![Argument]
DoCmd.Close acForm, stfrm

Note that it might be worthwhile to experiment with various slight
delays between the OpenForm and Close.

James A. Fortune
(e-mail address removed)