VBA MS访问 - 运行时错误3129“操作无效/允许”

Question

因此，我在“ SET EXO_MODEL ....”上收到该错误消息。我要做的就是说，如果该表中的该字段具有X值，那么……但是我认为我缺少一些非常基本的东西。

因此，我希望我设定的变量存储每个字段的下一个值以获取未来条目。然后，执行条件以定义每种情况的SPT的默认值。

Option Compare Database

'------------------------------------------------------------
' Macro1
'
'------------------------------------------------------------
Sub Command1_Click()
Dim tdf As TableDef
Dim db As DAO.Database



Set db = CurrentDb()

Set tdf = db.TableDefs("Table Special procurement type")

Set EXO_Model = tdf.Fields("Drop List").Value  '<------Error

Set Material_Type = tdf.Fields("Material Type").Value

Set Plant_of_Origin = tdf.Fields("Plant of Origin").Value

SPT = tdf.Fields("Special procurement type").DefaultValue

If EXO_Model = "TOLLING - FG" Then

    SPT = 30
    
ElseIf EXO_Model = "TURNKEY - FG" Then

    SPT = ""

ElseIf EXO_Model = "TURNKEY - LL" Then
    
    SPT = "\"

ElseIf EXO_Model = "TOLLING - LL" And Plant_of_Origin = "004 - BleBle" Then

    SPT = "L2"

ElseIf EXO_Model = "TOLLING - LL" And Plant_of_Origin = "007 - BlaBla" Then

    SPT = "C2"

End If

End Sub

Answer 1

TableDef字段没有值，它们代表列的定义。

要读取值，请打开一个记录集。

如果是形式，您将获得当前记录的值：

EXO_Model = Me("Drop List").Value

---

好的，我开始理解您要做的事情。
您无法定义这样的默认值。

您可以在spt_gotfocus（）事件中以表单代码进行此操作。如图所示，读取其他字段的值，计算代码中的默认值，然后设置spt.value。