怎么用TABELDEF老是出錯.

ADAM

zhuyiwen,你好歷害,為什么這樣一做,就可以了呢
我也這樣試過
太感謝你了.....

唐小小

学了一招，：）

ADAM

其實這個貼子主要是想解決表的CAPTION屬性的問題,
再羅嗦一下,我現在還是出錯:

在CREATPROPERTY中出現型態不符,我查過這個方法的用法
可是還是沒頭緒...
而且,我如果不把
FIEL1.Caption = "BBTEST2"這名取消,它執行起來
首先這會報告這句有問題...

斑竹,再幫幫忙............

Private Sub Command18_Click()
Dim db As DAO.Database
    Dim rst As DAO.TableDef
    Dim FIEL1 As DAO.Field
    Dim prpLoop As Property
   
    Set db = CurrentDb
    Set rst = db.TableDefs("bb")
    Set FIEL1 = rst.Fields("bb1")
    SetProperty FIEL1, "CAPTION", True
   'FIEL1.Caption = "BBTEST2"
   
    For Each prpLoop In rst.Properties
        Debug.Print "  " & prpLoop.Name & " = " & prpLoop.Value
    Next prpLoop

End Sub

Sub SetProperty(dbsTemp As Object, strName As String, booTemp As Variant)
Dim prpNew As Property
Dim errLoop As Error
' Attempt to set the specified property.
On Error GoTo Err_property
MsgBox 1
dbsTemp.Properties("strName") = booTemp
On Error GoTo 0
Exit Sub
Err_property:
'Error 3270 means that the property was not found.
If DBEngine.Errors(0).Number = 3270 Then
' Create property, set its value, and append it to the' Properties collection
Set prpNew = dbsTemp.CreateProperty(strName, dbBoolean, booTemp)
dbsTemp.Properties.Append prpNew
Resume Next
Else
' If different error has occurred, display message.
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & errLoop.Description
Next errLoop
End
End If

End Sub

zhuyiwen

CurrentDB只是一个ACCESS的方法，它返回一个DAO的Database对象

ADAM

斑竹,我還有一點不明....

zhuyiwen

Sub test()
    Dim db As DAO.Database
    Dim rst As DAO.TableDef
    Dim FIEL1 As DAO.Field
    Dim prpLoop As Property
   
    Set db = CurrentDb
    Set rst = db.TableDefs("BB")
    Set FIEL1 = rst.Fields("BB1")
    SetProperty FIEL1, "CAPTION", "BB1的标题"
   
    For Each prpLoop In FIEL1.Properties
        Debug.Print "  " & prpLoop.Name
    Next prpLoop

End Sub

Sub SetProperty(dbsTemp As Object, strName As String, strValue As String)

    Dim prpNew As Property
    Dim errLoop As Error

    On Error GoTo Err_Property
    ' 这是帮助中的写法 ： dbsTemp.Properties("strName") = strValue，是错误的
    dbsTemp.Properties(strName) = strValue
    On Error GoTo 0

    Exit Sub

Err_Property:

    If DBEngine.Errors(0).Number = 3270 Then
        Set prpNew = dbsTemp.CreateProperty(strName, dbText, strValue)
        dbsTemp.Properties.Append prpNew
        Resume Next
    Else
        For Each errLoop In DBEngine.Errors
            MsgBox "Error number: " & errLoop.Number & vbCr & _
                errLoop.Description
        Next errLoop
        End
    End If

End Sub

' PASS PASS PASS

[此贴子已经被作者于2003-10-17 16:09:32编辑过]

ADAM

斑竹老大,這一句在我這里出錯了:

For Each prpLoop In FIEL1.Properties

提示:型態不符..

zhuyiwen

以下是引用ADAM在2003-10-17 16:14:10的发言：
斑竹老大,這一句在我這里出錯了:

For Each prpLoop In FIEL1.Properties

提示:型態不符..

请仔细检查你的代码。

ADAM

我查了,真的不知錯在哪里....
指點指點...
謝謝了...
但是
把 Dim prpLoop As Property 改成 Dim prpLoop As object
就可以了...

??????

ygcswl

究竟是如何给字段标题赋值，最终的代码是什么？我还是不明白。