Question

我有一个包含几个简单字段的表。交易ID（用自动编号填充的TID），日期，交易状态（整数），状态和注释。 Status是一个查找字段，用于从另一个表中提取其值。它显示状态文本，但将状态ID存储为整数。备注是备忘录字段。通常当我们具有特定状态时，Note字段通常具有相同的文本。它经常发生变化，我无法链接状态和注释。但是，我希望此表格中的Notes字段能够根据添加新TID时选择的状态自动填充最常用的条目。我举个例子。

我创建了一个新的TID。我输入日期然后输入状态。在我离开状态控件的这个时间点，我希望notes字段根据状态以默认值自动填充。这是我创建的代码，但它不起作用。我尝试将案例编号（即案例132）替换为“132”并将状态文本“已关闭”，但它们都不起作用。任何帮助都会有所帮助。

Private Sub Status_Ctrl_LostFocus()
    Dim NoteDetail As String
    Dim OffStat As Integer
    OffStat = Me.Status_Ctrl.Value
    If Me!Details = Null Or Me!Details = "" Then
        Select Case OffStat

            Case 132 'Offer Closed
                NoteDetail = "Offer Closed."

            Case 133 'Offer Failed
                If Me.Parent!EMCust_Ctrl = 32 Then
                    NoteDetail = "Offer rejected. EM returned to Buyer."
                Else
                    NoteDetail = "Offer rejected."
                End If

            Case 134 'Offer Accepted
                NoteDetail = "Offer Accepted."

            Case 164 'Offer Presented
                NoteDetail = "Offer Presented. EM held for acceptance."
        End Select

        With Me!Details_Ctrl
            .Value = NoteDetail
        .SetFocus
        End With
    End If
End Sub

Answer 1

在OffStat =行上设置断点，并使用F8键一次单步执行代码。这个条件是可疑的：如果我！详细信息=空...如果要检查是否是我的详细信息，请使用Is！（详细信息）！详细信息为空。（它永远不会等于Null，因为没有任何东西可以等于Null，甚至不能等于Null。） - HansUp 11月22日20:07

根据控件值自动填充文本

1 个答案: