[求助]如何解决类型不配合的问题？

lilywwww

模块7中总是类型不配合，请教各位高手应如何设置呢？多谢!

fan0217

检查是否缺少引用。

是否缺少引用DAO

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

zhugmi

看看。

zhugmi

看不了了。

skylark

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

fan0217

MsgBox. Err.Description

改为：MsgBox Err.Description