如何用vba代码删除指定的窗体

jiayw

如何用vba代码删除指定的窗体

sgrshh29

 DoCmd.DeleteObject acForm, "窗体名"

jiayw

谢谢，再请问如果要删除所有自己建的窗体呢

sgrshh29

先做一个查询
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=-32768))
WITH OWNERACCESS OPTION;

然后执行下面代码即可
On Error Resume Next
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("qry2")
rs.MoveLast
rs.MoveFirst
Debug.Print rs.RecordCount - 1
For i = 0 To rs.RecordCount - 1
DoCmd.DeleteObject acForm, rs(0)
rs.MoveNext
Next
Set rs=Nothing

当然还有其它方法.

jiayw

真的谢谢了，

rs.MoveLast
rs.MoveFirst

这两句挨着写，什么意思？

另外，DoCmd.TransferDatabase acExport, "dBase 5.0", DBF_path, acTable, tab_name, new_dbf_name, False, False

以上语句只能导出一个表到另一新表

请问如果我想将access库中所有表一起导出到一个文件，如何写语句呢