CreateField方法简记

Public Function createQry(frm As Form, strFormer As String) '-----------定义DAO的对象用于创建查询-------------- Dim strSQLQr As String Dim DB As DAO.Database Dim qr As DAO.QueryDef '-----------定义表格的对象-------------- Dim tb As DAO.TableDef ' strSQLQr = Form_frm采购订单查询.Form.RecordSource strSQLQr = frm.RecordSource If strSQLQr = strFormer Then strSQLQr = "select * from " & strSQLQr End If Set DB = CurrentDb '-----检查是否存在同名查询 Dim i As Integer For i = 0 To CurrentDb.QueryDefs.Count - 1 If "Qry_PeicangList" = CurrentDb.QueryDefs(i).Name Then '如果查询名：Query_temp存在 CurrentDb.QueryDefs.Delete "Qry_PeicangList" Exit For End If Next i DB.QueryDefs.Refresh Set qr = DB.CreateQueryDef("Qry_PeicangList", strSQLQr) DB.QueryDefs.Refresh Application.RefreshDatabaseWindow MsgBox "查询创建成功" '-----------检查是否存在同名表格，如果存在就删除-------------- For i = 0 To DB.TableDefs.Count - 1 If "tblPaigui" = CurrentDb.TableDefs(i).Name Then '如果查询名：Query_temp存在 CurrentDb.TableDefs.Delete "tblPaigui" Exit For End If Next i '-----------开始将数据存放到表格中-------------- Set tb = DB.CreateTableDef("tblPaigui") With tb .Fields.Append .CreateField("采购订单号", dbText) .Fields.Append .CreateField("采购日期", dbDate) End With '将表添加到对象集合中 DB.TableDefs.Append tb Set tb = Nothing DB.Close: Set DB = Nothing End Function

CreateField的一些方法 二、关于后面的额Type类型 常量 说明

dbBigInt 大整数 dbBinary 二进制 dbBoolean 布尔型 dbByte 字节 dbChar 字符 dbCurrency 货币 dbDate 日期/时间 dbDecimal 小数 dbDouble 双精度型 dbFloat 浮点型 dbGUID GUID dbInteger 整型 dbLong 长整型 dbLongBinary 长二进制（OLE 对象） dbMemo 备注 dbNumeric 数字 dbSingle 单精度型 dbText 文本 dbTime 时间 dbTimeStamp 时间戳 dbVarBinary VarBinary

三、怎么删除同名表格呢？

'-----------检查是否存在同名表格，如果存在就删除-------------- For i = 0 To DB.TableDefs.Count - 1 If "tblPaigui" = CurrentDb.TableDefs(i).Name Then '如果查询名：Query_temp存在 CurrentDb.TableDefs.Delete "tblPaigui" Exit For End If Next i '-----------创建表格-------------- Set tb = DB.CreateTableDef("tblPaigui") With tb .Fields.Append .CreateField("采购订单号", dbText) .Fields.Append .CreateField("采购日期", dbDate) End With '将表添加到对象集合中 DB.TableDefs.Append tb Application.RefreshDatabaseWindow Set tb = Nothing DB.Close: Set DB = Nothing