Re: [MS_AccessPros] User clicks the X (close) button on a form in the upper-right hand corner and it closes.

 

I have used the Unload event but this has issues in certain cases too.  The easiest solution is to take away to 'X' to close.  From the Property Sheet:

Form > Close Button --> No

... then the user HAS to close by clicking the button (or whatever) than runs your code ~ unless they close with the 3-finger salute ;) or their machine or Access crashes

Warm Regards,

Crystal

Stop Watch for Access
http://www.rogersaccesslibrary.com/forum/stop-watch_topic612.html

 *

   (: have an awesome day :)

 *

On Sunday, December 14, 2014 10:05 AM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

Norbert-

I understand the purpose of the NotInList code, but as written, it will not work.  You *must* open the client edit form acDialog, but as coded with comments, it won't do that, so the code will fail.

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications 

SQL Queries for Mere Mortals 

http://www.viescas.com/ 

(Paris, France)

On Dec 14, 2014, at 3:45 PM, drnorbert@msn.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

John,

Some comments out are the result of the users changing their mind in this case first they want all upper case (  'Me.ActiveControl = SetUpper(Me.ActiveControl)) and later on they changed their mind.

I live it comment out in case they change their mind again.

As per your suggestion I am planning to eliminate all comments out with FMS CodeTools unless you have a different recommendation.

In 2009 you recommended me to clean a corrupted form using:

Application.SaveAsText acForm, "frmMaster", "F:\ISMA\frmMaster.txt"
Application.LoadFromText acForm, "frmMaster", "F:\ISMA\frmMaster.txt"  

I did it and seems like got rid of some of the strange code.

This code: Private Sub ClientName_NotInList(NewData As String, Response As Integer)

is behind a combo the purpose is that if no Client found will open the frmClient and the user can add a new Client.

Norbert

__._,_.___

---

Posted by: Crystal <strive4peace2008@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (21)

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___