MS Access 以编程方式编辑数据表单元格值

Question

我正在以编程方式验证我的数据表，因为无法以“正常”方式（链接表）进行验证。告诉用户他们输入错误的“正常”方式是使用 MsgBox 弹出窗口来惩罚他们 - 我想在我的表单上的标签中显示一条消息（这有效）并更改违规单元格的背景颜色。我只能通过条件格式更改单元格颜色（这可行），所以我设置了一些规则来突出显示带有前导空格的单元格。

所以现在的最后一块拼图是更改带有前导空格的违规单元格的值，以便通过条件格式突出显示它。但那部分不起作用。当我更改单元格的值时，什么也没有发生。我觉得好像我的数据表需要被告知用我的新值进行自我更新。

这是我目前所拥有的：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim isValid As Boolean
    isValid = myDataSheetRow_IsValid()
    ' if the page is valid, don't cancel the update
    Cancel = Not isValid
End Sub

Private Function myDataSheetRow_IsValid() As Boolean
    ' validate our data as it cannot be validated in the GUI due to the way linked tables work
    myDataSheetRow_IsValid = True
    Dim myErrMsg As String
    myErrMsg = ""

    'evaluate my column called ABC
    If (IsNull(Me.ABC)) Then
        myErrMsg = myErrMsg + "ABC cannot be blank" + vbNewLine

        '---------------------
        'PROBLEM START
        '---------------------
        'Set the cell value to what it was plus a leading space
        'Because I have set up conditional formatting on the datasheet
        'So that leading spaces highlights the cell for attention

        Me.ABC= " " + Me.ABC 'trigger conditional formatting ??
        '---------------------
        'PROBLEM END
        '---------------------
    End If
    ' ... more validating ...
    ' done validating
    Call Me.Parent.UpdateErrorMsgArea(myErrMsg)
    If (Len(myErrMsg) > 1) Then
        myDataSheetRow_IsValid= False
    End If
End Function

如何以编程方式设置数据表单元格的值？

我已经尝试过这种方式，但它不起作用 - 数据表上没有任何更改，就好像数据表没有更新自身以显示我以编程方式更改的新值。

Answer 1

当Me.ABC为Null时，代码运行如下语句...

Me.ABC= " " + Me.ABC

我的印象是您希望该语句在 Me.ABC 中存储一个空格，但它实际上存储的是 Null。

原因是向某事物添加 Null 会得到 Null。 something 是数字还是文本字符串都没有关系； 添加 Null 仍然会给您 Null。

但是，如果您连接（使用& 运算符）Null 与文本字符串，您会得到文本字符串。

Me.ABC= " " & Me.ABC

但是既然你知道Me.ABC当时是Null，那么串联并没有任何好处。只分配空格字符...

Me.ABC = " "