Office中国论坛/Access中国论坛

标题: 请高手指点 [打印本页]

作者: QINGSOLI 时间: 2003-6-10 06:35
标题: 请高手指点

怎样在VBA中用代码创建带CAPTION和DESCRIPTION的表。
下面是我的代码：

Private Sub CreateTRDTableDef()

Dim tdfTable As DAO.TableDef
Dim fldField As DAO.Field
Dim intCount As Integer
Dim strTableName As String

　　DoCmd.Echo True, "Creating table definition......"
　　
　　strTableName = "TEST"
　　DoCmd.Echo True, "Creating " & strTableName & " table definition....."
　　Set tdfTable = CurrentDb.CreateTableDef(strTableName)

　　Set fldField = tdfTable.CreateField("FIRST_NAME", dbText, 20)

　　'下面两句出错：请高手指点，如何设定在表中字段的Caption和Description的属性值
　　'fldField.Caption = "First Name"
　　'fldField.Description = "

lease input first name"

　　tdfTable.Fields.Append fldField

　　CurrentDb.TableDefs.Append tdfTable
　　Set tdfTable = Nothing
　　Set fldField = Nothing

　　DoCmd.Echo True, "Ready"
　　
End Sub

作者: QINGSOLI 时间: 2003-6-11 08:01
已搞定，要自定义一个CAPTION和DESCRIPTION的属性并加到字段中。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)