2450 error. A97 fails to find saved form?

[MLH]

I seem to remember the code below working before.
But, today, it is not. Instead, I get a 2450 error complaining
that it cannot find the named form. This is true regardless
of which form name I enter. Is perplexing.

Private Sub ListControlsBttn_Click()
Dim i As Integer, intHowmany As Integer, WhichForm As String

Msg = "Enter form name."
Title = "Form Name?"
Defvalue = "frmListThings"
WhichForm = InputBox$(Msg, Title, Defvalue)
If WhichForm = "" Then Exit Sub
For i = 0 To Forms(WhichForm).Count - 1
intHowmany = intHowmany + 1
Debug.Print intHowmany; ") "; Forms(WhichForm)(i).Name
Next i

End Sub

[Tim Marshall]

MLH wrote:

I seem to remember the code below working before.
But, today, it is not. Instead, I get a 2450 error complaining
that it cannot find the named form. This is true regardless
of which form name I enter. Is perplexing.

2450 shows up when Access can't find that particular form when it is open.

For example, something like:

msgbox Forms.frmV.caption

will raise 2450 if frmV is not open, even if it is a legitimate form.

The reason you code is failing is because, I would imagine, the form
name you enter is of a form that is not open. The Forms collection
refers to all of the currently _OPEN_ forms in a Microsoft Access database.

Off the bat, I'm not sure how you'd refer to the forms in an mdb that
were closed. Probably through a select statement on the msysobjects or
similar table.

HTH! 8)
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[MLH]

<snip>

The reason you code is failing is because, I would imagine, the form
name you enter is of a form that is not open. The Forms collection
refers to all of the currently _OPEN_ forms in a Microsoft Access database.

Off the bat, I'm not sure how you'd refer to the forms in an mdb that
were closed. Probably through a select statement on the msysobjects or
similar table.

Sure enough, you're right. I must-a-been working on this project and
dropped it in an unfinished state. I suppose I could open the form
using the acDesign and acHidden parms and walk the controls collection
while the form was open, closing it when done.

Unless someone suggests a better idea here, will do that. Meanwhile,
seeking further comments...

[MLH]

Unless someone has a more elegant approach, I tried
the following and it works...

100 Msg = "Enter form name."
110 Title = "Form Name?"
120 Defvalue = "frmListThings"
130 WhichForm = InputBox$(Msg, Title, Defvalue)
140 DoCmd.OpenForm WhichForm, acDesign, , , , acHidden
150 If WhichForm = "" Then Exit Sub
160 For i = 0 To Forms(WhichForm).Count - 1
170 intHowmany = intHowmany + 1
180 Debug.Print intHowmany; ") "; Forms(WhichForm)(i).Name
190 Next i
200 DoCmd.Close acForm, WhichForm, acSaveNo

[Randy Harris]

* MLH:

Unless someone has a more elegant approach, I tried
the following and it works...

100 Msg = "Enter form name."
110 Title = "Form Name?"
120 Defvalue = "frmListThings"
130 WhichForm = InputBox$(Msg, Title, Defvalue)
140 DoCmd.OpenForm WhichForm, acDesign, , , , acHidden
150 If WhichForm = "" Then Exit Sub
160 For i = 0 To Forms(WhichForm).Count - 1
170 intHowmany = intHowmany + 1
180 Debug.Print intHowmany; ") "; Forms(WhichForm)(i).Name
190 Next i
200 DoCmd.Close acForm, WhichForm, acSaveNo

I'd put the check for no value entered (line 150) ahead of the open
(line 140). I'd also add some error trapping in case the user enters a
"WhichForm" which isn't actually the name of a form.

--
Randy Harris
tech at promail dot com
I'm pretty sure I know everything that I can remember.