Delete all Records in Access Table (DAO)

[Jimgarry]

Thanks in advance,

I am opeing a access 97 database with DAO I want to select a tabel and delete all the records in the table

here is my code so far :

' remove data from the current salesin table

strSql = "DELETE Salesin.Salesman, Salesin.contact, Salesin.Company, Salesin.phone, Salesin.Ext, Salesin.stage, Salesin.closedt, Salesin.product, Salesin.units, Salesin.price, Salesin.amount, Salesin.prob FROM Salesin;"

Set db = OpenDatabase(strDBLocation)
Set rs = db.OpenRecordset("Salesin", dbOpenDynaset)
Set rs = db.OpenRecordset(strSql, dbOpenDynaset)

db.Close



I run this and get
"Runtime Error 3219"
"Invalid operaton"

Thanks again
Jim

 

[VBDemiGod]

how about:

Delete * from SalesIn

 

[vb5prgrmr]

try...
[tt]
Set db = OpenDatabase(strDBLocation)
db.Execute "Delete * From Salesin"
db.Close
[/tt]

Good Luck

 

[Jimgarry]

I still get the same error.

I changed my SQL statment to what you have. shorter is better.

Am i missing something on the Database or Recordset?

 

[Jimgarry]

Hey that worked.

the db.Execute "Delete * From Salesin"

Thanks for all your assistance.
shorter sql and db.execute


Thanks again
Jim

 

[vb5prgrmr]

Does this table have a relationship to another table where this table has the parent key? If so you will have to delete the child records before you can delete these records.

Good Luck