Office中国论坛/Access中国论坛

标题: [求助]如何解决类型不配合的问题？ [打印本页]

作者: lilywwww 时间: 2006-3-8 21:10
标题: [求助]如何解决类型不配合的问题？
模块7中总是类型不配合，请教各位高手应如何设置呢？多谢![attach]16269[/attach]

作者: fan0217 时间: 2006-3-8 21:38
检查是否缺少引用。

是否缺少引用DAO

[此贴子已经被作者于2006-3-8 13:46:32编辑过]

作者: zhugmi 时间: 2006-3-8 22:35
看看。

作者: zhugmi 时间: 2006-3-8 22:35
看不了了。

作者: skylark 时间: 2006-3-8 23:35
标题: 回复：（lilywwww）[求助]如何解决类型不配合的问题？...
To lilywwww :

Public Sub cdbase()

On Error GoTo error1

Dim wk1 As Workspace
Dim db1 As Database
Dim t1 As TableDef
'Dim f1 As Field

Set wk1 = DBEngine.Workspaces(0)
Set db1 = wk1.Databases(0)
Set t1 = db1.CreateTableDef("table1")

With t1
      .Fields.Append .CreateField("name1", dbText, 16)
      .Fields.Append .CreateField("corp", dbText, 16)
      .Fields.Append .CreateField("telephone", dbText, 16)
      .Fields.Append .CreateField("date", dbDate)

      'Set f1 = .CreateField("name1", dbText, 16)
      't1.Fields.Append f1
      'Set f1 = .CreateField("corp", dbText, 16)
      't1.Fields.Append f1
      'Set f1 = .CreateField("telephone", dbText, 16)
      't1.Fields.Append f1
      'Set f1 = .CreateField("date", dbDate)
   ' t1.Fields.Append f1
End With

db1.TableDefs.Append t1
db1.Close
Exit Sub

error1:
MsgBox Err.Description
Exit Sub[attach]16276[/attach]

作者: fan0217 时间: 2006-3-9 01:01
MsgBox. Err.Description

改为：MsgBox Err.Description

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