Delete query fields

[civl_eng]

hi all, i wrote a code for delete all records of a query on run program ,but it doesn't work, which part of this code is inaccurate?? can anyone correct it ?


Public Function del()


Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef

Set db = CurrentDb

Set qdf = db.QueryDefs("qry_Students")

Set rst = qdf.OpenRecordset()


rst.Fields.Delete
rst.Close

Set rst = Nothing
Set qdf = Nothing
Set db = Nothing

End Function



Thanks in Advanced.

[orange]

Normally, you Delete records from Tables. Please tell us more of your situation.

Delete FROM TableX  WHERE some criteria

Be aware that unintended/inaccurate DELETE queries can cause a lot of damage quickly.

Also," but it doesn't work ", does not help readers to understand your post.
It prompts questions:
-did you get an error number
-do you understand the error message
-could you please post the error number and message...

[civl_eng]

hi thank you very much for help me. i done with your code.

in my code i get this error : Compile error, argument not optional

can you correct my code ??

[orange]

I don't understand what you are trying to do.
It seems you are trying to remove fields from a queryDef, but why??

If you want to redesign a query, then use the query grid/interface and remove some fields.

If you are trying to Delete records in a table, then review the link in my post #2.

[JoeM]

If "qry_Students" a delete query?
If so, why not just run it? Why is VBA required?

If not, please explain in detail exactly what it is you are trying to do (and why you are trying to do it that way).

[June7]

Again, your code is attempting to delete fields which is changing a query design. Why would you want to programmatically change design? What are you really trying to accomplish?

[civl_eng]

hello, thanks all for reply and sorry for the delay in my reply , i create a query from table by date criteria and i put that function to on load event of form to delete records in query(by date criteria ) automatically,,,,,, in fact i want to delete some record in specific date(i created them by query and they must be deleted based on specific date and i do it with above function to delete them each load program automatically)

thanks again to all, i accept any other advice

[June7]

Advice is to use a DELETE action, not modify query with QueryDefs.

Normally DELETE is done directly on table but if the query is updatable then records can be deleted via query reference as well.

[orange]

civl_eng,

Data (records) reside in Tables.
You do not necessarily write vba code nor functions to delete data in a query.
You DELETE records from a Table.
You can use a query to --Select or Add or Update or Delete ---RECORD(s) in a Table.

Can you tell us in simple English --no database jargon -- what you have and what you are trying to do?

Good luck.

[civl_eng]

thanks guys, my problem is resolved.