You are about to append o rows

[Mojo1]

How do I get this from coming up when I want to append and delete a record?

 

[bhoffste]

One way to do it would be to create a Macro to run the query(ies). The first line of the macro would be SetWarnings (false) and the last line would be SetWarnings (true). This would eliminate the confirmation messages.

Not sure if this is what you wanted....

 

[Mojo1]

Code to run the append/delete queries

Here is what I have right now:

Private Sub cmdArchive1_Click()

'DoCmd.SetWarnings False
DoCmd.OpenQuery "AddRecord1"
DoCmd.OpenQuery "ArchiveRecord"
'DoCmd.SetWarnings True



End Sub

 

[Mojo1]

How can I make it work?

I do not want to eliminate confirmation messages, but want to know how I can get the queries to append and delete the record.

 

[Mojo1]

I got it figured out somewhat

It seems if you type in all the fields, you will be able to append.

 

[bhoffste]

Hmm...I'm sorry but I'm not exactly clear on the question. Your SetWarnings statements (which are commented out) would control whether or not you see the warnings. Alternatively you could use something like...

Dim dbs As Database
Dim strSQL as String

Set dbs = CurrentDb
strSQL = "[Enter the SQL from your query here]"

dbs.Execute strSQL

This wouldn't display any messages and would also allow you to use the RecordsAffected property to test how many rows were impacted by the query. Still don't know if this helps, but if not perhaps you could elaborate on the question a bit more.

 

[Mojo1]

Won't delete records

It got it to append but can not get it to delete a record.

 

[Mojo1]

I just want the delete query to work

I have the append query working, but want my delete query to work as well.

 

[Mojo1]

Help!

I can not get the delete query to work!!

 

[NateO]

Howdy, code for thought, sound like you don't need the first...

Sub appnd()
Dim db As DAO.Database, rs As DAO.Recordset
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("TblTrackInfo", dbOpenTable)
With rs
    .AddNew
    .Fields(0) = "Test1"
    .Fields(1) = "Test2"
    .Fields(2) = "Test3"
    .Update
    .Close
End With
Set db = Nothing: Set rs = Nothing
End Sub

Sub Remy()
Dim db As DAO.Database, rs As DAO.Recordset
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("TblTrackInfo", dbOpenTable)
With rs
    .MoveLast
    .Delete
    .Close
End With
Set db = Nothing: Set rs = Nothing
End Sub

I get no warnings with this. Oh, this is not a query, rather, a vba procedure. Hope this helps.