DoCMD.Close not always working

[Canadiangal]

I have a command isn't working. It is a simply command to close the current form.

 Private Sub Command14_Click()
                DoCmd.Close
           End Sub

In order for me to close out this form I can't use the close button associated with command14. I have to right click on the form and go to design view. There is always another form opened behind it that is the main form for the program. Any ideas why the code doesn't work?

[pbaldy]

Close will close the active object. You can be specific:

DoCmd.Close acForm, Me.Name

[Canadiangal]

I tried that code as well. It still doesn't close. Any other ideas?

[Canadiangal]

I created a new form and copied that layout over. That button still refuses to work. My current code is

Private Sub Command14_Click()
   DoCmd.Close  acForm, Me.Name
End Sub

[pbaldy]

Are you sure the code is associated with the button? Make sure it says "Event Procedure" in the click event property of the button, and that clicking on the ellipsis takes you to that code.

[Canadiangal]

Are you sure the code is associated with the button? Make sure it says "Event Procedure" in the click event property of the button, and that clicking on the ellipsis takes you to that code.

Yes, I went to the design view o of the form. The button is called close. I view the code and that is what came up. I change it to the active form but it doesn't work. It also doesn't work to use the X to close out the form either. So must be some type of corruption. Perhaps I should delete out that button in it entirety and redo it. Either that or the form is corrupt

[pbaldy]

Can you attach the db here to play with?

[pbaldy]

By the way, you said the button was called "Close", but the event is associated with "Command14".

[Canadiangal]

If I right click on the form and pick close nothing happens. But it I right click on the form and say close all then both forms close; however, I only want the one form to close out. If the form is the only form open then the close button works just fine.

[Canadiangal]

That is just the label on the button. The event is Command14. It seems to be hung up then when the Main form of the survey program is opened behind it.

[pbaldy]

Can you attach it here? Might be something with popup/modal settings, but it would be nice to be able to play with it.

[Canadiangal]

How is it something so simple can cause grief. When the form opens the code to open the form had GotFocus instead of click. That was preventing it from closing.

So it was

 Private Sub Sommand28_GotFocus()
DoCmd.OpenForm "PreRep"
End Sub

I simply changed the GotFocus to click and now it works
Would there be any reason to keep the GotFocus?
I really should take some access programming classes. Any suggestions?

[pbaldy]

I can't imagine a use for the focus event of a button. Presumably you want the user to click it when they're ready, not have it execute just because they tabbed until they got to the button or something.

I'm not sure of any classes. I went to the school-of-hard-knocks.

Steve Bishop has youtube videos that I've heard are pretty good.

[Canadiangal]

Thank you for your time and help! I really appreciate it. Perhaps I will simply take some VBA classes. I'm self taught as well.

[pbaldy]

Happy to help!