module code to close a form does not work

#1 (**permalink**) 28-Jul-2006, 08:34 AM

Hello

I have a form called NewPolicy. On this form is a button which calls some
VBA code. At the end of the code is the line:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13129-module-code-close-form-does-not.html

DoCmd.Close acForm, [Forms]![NewPolicy], acSaveNo

But this line does not close the form! What am I doing wrong?

Angus

*

#2 (**permalink**) 28-Jul-2006, 08:34 AM

The Close method is looking for the name of the object to close, not a
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13129
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13129
reference to it.

Try:

DoCmd.Close acForm, "NewPolicy", acSaveNo

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)

"Angus Comber" wrote in message
news:eHqaLGgpGHA.2400@TK2MSFTNGP03.phx.gbl...
> Hello
>
> I have a form called NewPolicy. On this form is a button which calls some
> VBA code. At the end of the code is the line:
>
> DoCmd.Close acForm, [Forms]![NewPolicy], acSaveNo
>
> But this line does not close the form! What am I doing wrong?
>
> Angus
>
>

#3 (**permalink**) 28-Jul-2006, 08:34 AM

On Wed, 12 Jul 2006 23:21:10 +0100, "Angus Comber"
wrote:

>Hello
>
>I have a form called NewPolicy. On this form is a button which calls some
>VBA code. At the end of the code is the line:
>
>DoCmd.Close acForm, [Forms]![NewPolicy], acSaveNo
>
>But this line does not close the form! What am I doing wrong?
>
>Angus
>

You're not passing the *name of the form as a text string* in the
second argument of the Close event - you're passing the Form as an
object.

Use either

DoCmd.Close acForm, "NewPolicy", acSaveNo

or (more flexibly)
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13129
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13129

DoCmd.Close acForm, Me.Name, acSaveNo

John W. Vinson[MVP]