怎么用TABELDEF老是出錯.

ADAM

當運行此段代碼時:
出現錯誤
"執行階段錯誤'3420'"
物件無效或已不再設定..

Dim rst As TableDef
Dim prpLoop As Property
Set rst = CurrentDb.TableDefs("BB")
For Each prpLoop In rst.Properties
If prpLoop <> "" Then Debug.Print "  " & prpLoop.Name & " = " & prpLoop
Next prpLoop

各們老大們看看是怎么回事....

ADAM

以下是引用esmile在2003-10-17 8:57:03的发言：
对，这种现象我也出现过，关健是有些字段中的属性原本没有填值，所以易造成没有定义、物件无效等错误。
你可以在代码前加一句
on error resume next
来忽略错误。

"字段中的属性原本没有填值"===>有點不明白....
另外,如果忽略錯誤,那程式碼就不能完成預定任務啊....
55555

唐小小

看看这个吧，也许可以帮上你哦
http://www.accfans.net/show.asp?id=456

ADAM

小小,那個不是我要的...
55555

zhuyiwen

请检查，
一、是否引用了DAO3.6
二、是否有BB表
三、Set rst = CurrentDb.TableDefs("BB") 改为 Set rst = CurrentDb().TableDefs("BB")

ADAM

斑竹:
1.有引用DAO3.6
2.存在BB表
3.用了Currentdb()也不是,錯誤同上...
4.另外,我用
Dim rst As TableDef
Dim prpLoop As Property
Set rst = CurrentDb.TableDefs("BB")
MsgBox CurrentDb.TableDefs("bom1").Name   '===>這句不會出錯...,正確

5.我把tabledef 改為 dao.tabledef 也不行

這到的是為什么呢....
蒼天啦.....5555555555555555555555

zhuyiwen

把你的MDB裤挂上来 [em24]

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

ADAM

我把庫傳上來了,你老幫忙看看吧..
不知是俺DAO有問題還是咋的..



[em00]

zhuyiwen

Sub test()
    Dim db As DAO.Database
    Dim rst As DAO.TableDef
    Dim prpLoop As DAO.Property
   
    Set db = CurrentDb
    Set rst = db.TableDefs("bb")
   
    Debug.Print rst.Name
    Debug.Print rst.Properties.Count
   
    For Each prpLoop In rst.Properties
        Debug.Print "  " & prpLoop.Name & " = " & prpLoop.Value
    Next prpLoop
End Sub

' PASS PASS PASS