Re: [MS_AccessPros] AutoExec or something else?

 

So here is my code and it is not deleting the records and appending the records. I deleted 100 records and it is still the same. I added some msgbox's to see how it is working. 

Private Sub Form_Load()

' Enable error handler.

    On Error GoTo Error_ErrorHandler

        

    Dim db As DAO.Database

Set db = CurrentDb

    db.Execute "qryDeleteAllFromSupervisorTable", dbFailOnError

    MsgBox "Hi"

    db.Execute "qryAppendSupervisorTable", dbFailOnError

     

        

MsgBox "Hi"

Exit_ErrorHandler:

    Exit Sub

Error_ErrorHandler:

    Resume Exit_ErrorHandler

End Sub

 

Jim Wagner

---

On Wednesday, February 5, 2014 9:06 AM, Glenn Lloyd <argeedblu@gmail.com> wrote:

 

Jim,

 

If you use the code John suggested, you also will not need to fiddle with SetWarnings. You can delete both of those DoCmd statements.

 

Glenn

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
Sent: Wednesday, February 5, 2014 11:00 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] AutoExec or something else?

 

 

Jim-

 

Don't use OpenQuery.  Use:

 

Dim db As DAO.Database

 

    Set db = CurrentDb

    db.Execute "first query", dbFailOnError

    db.Execute "second query", dbFailOnError

 

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 Feb 5, 2014, at 4:45 PM, Jim Wagner <luvmymelody@yahoo.com> wrote:

John,

 

I put the code in the On Open event and only the first query ran. The second query did not run. If I put the code behind a button on the form, both queries run. I added msgbox's to see if it gets past the 1st and second queries but the second msgbox never appears.  Below is my code. 

 

Private Sub Form_Open(Cancel As Integer)

' Enable error handler.

    On Error GoTo Error_ErrorHandler

        DoCmd.SetWarnings False

     DoCmd.OpenQuery "qryDeleteAllFromSupervisorTable"     'Deletes all records in the supervisortable

 

        MsgBox "Hi"

        DoCmd.OpenQuery "qryAppendSupervisorTable"            'Appends all records from the tblSourcetblSupervisorList table

        MsgBox "Hi"

        DoCmd.SetWarnings True

 

Exit_ErrorHandler:

    Exit Sub

 

Error_ErrorHandler:

    Resume Exit_ErrorHandler

 

End Sub

 

 

 

Jim Wagner

---

 

On Wednesday, February 5, 2014 8:41 AM, John Viescas <JohnV@msn.com> wrote:

 

Jim-

 

AutoExec macro or put code to run the queries in the Load event of the form that you open at startup.

 

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 Feb 5, 2014, at 4:00 PM, Jim Wagner <luvmymelody@yahoo.com> wrote:

Hello all,

 

How do I have 2 queries run each time the database is opened. Do I have to use an AutoExec macro or is there another way of programming it?

 

Thank You

 

Jim Wagner

---

 

 

 

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (7)

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___