自然的思路是以下幾種方法： 能否用某一命令或函數，將子窗體直接生成為表，就像生成表查詢那樣？ 子窗體的recordset容易得到，能否用recordset對象的某一函數，直接把該recordset導出為一個新表？ 現在我可以用VBA新建表，然后用循環語句把recordset的每一條記錄保存到表中，但這種方式效率低不太想用。 以上1,2任何一種方式都可以，求高手解答。
1 回答
不負相思意
TA貢獻1777條經驗 獲得超10個贊
把下面的過程放到任何一個模塊中
Public
Sub
CreateTabel(rst
As
DAO.Recordset,
TabelName
As
String)
Dim
TS
As
TableDefs
Dim
T
As
TableDef
Dim
F
As
DAO.Field
Set
TS
=
CurrentDb.TableDefs
Set
T
=
New
TableDef
rst.MoveFirst
For
Each
F
In
rst.Fields
T.Fields.Append
T.CreateField(F.Name,
F.Type,
F.Size)
Next
T.Name
=
TabelName
TS.Append
T
Set
TS
=
Nothing
Set
T
=
Nothing
Set
F
=
Nothing
End
Sub
具體的調用方式就是
CreateTabel recorset對象,表名
就可以在當前數據庫中生成一個新表了
結構和recorset相同但沒有數據，如果你要復制數據，一行SQL就搞定了
- 1 回答
- 0 關注
- 144 瀏覽
添加回答
舉報
0/150
提交
取消