问使用backspace - CHR(8) - in访问查询

EN

好吧，您可能能够连接备份空间，但这将如何以及是否会影响数据的显示是一个巨大的不同问题。ctrl的使用可以追溯到绿色屏幕的时代，甚至是远程型的时代。换句话说，您想要一种可选的删除字符的方法，并将ctrl与现代GUI和不真正表示ASCII字符流的系统一起使用，这意味着问题不在于如何使ctrl工作以分割字符，而在于如何根据某种信息来分割字符。

换句话说，ctr是一种疯狂的方法，除非您使用ASCII绿色屏幕，或者说是打印机。

我也不会在该数据中引入不可打印的字符，因为您不能将该信息键入字段，更糟糕的是，您无法将该列作为数据进行搜索、排序和处理。

情况会变得更糟。您的业务规则是，一列中的“某些”数据将影响另一列的显示！这严重破坏了关系数据模型，甚至一点也不好笑。

您需要添加一个位列(true/false)。事实上，真正需要发生的是，第一列的选择需要考虑到第二列，并且应该在这里做出不同的选择。

25年前，当大多数计算机都是ASCII，使用绿色屏幕，输出到屏幕/终端，甚至是一台电传打字机时，这个技巧/想法可能会奏效吗？好吧，那ctrl就行了。

现代系统正在以图形格式显示数据，数据不再是真正的ASCII，而是以统一代码保存。(它允许在任何语言或区域中显示)。

现在，假设那些遭受严重脑损伤的人考虑以这种方式污染数据？

那么，您可以使用这个函数：

Public Function vScrub(ByVal s As Variant) As String

  Dim c    As Integer

  If IsNull(s) Then
     vScrub = ""
     Exit Function
  Else
     c = InStr(s, Chr(8))
     Do While c <> 0
        s = Left(s, c - 2) & Mid(s, c + 1)
        c = InStr(s, Chr(8))
     Loop
  End If

  vScrub = s

End Function

因此，将上述内容放入标准代码模块(不是类模块，也不是窗体模块)。

一旦完成，任何表单、任何报表，甚至任何查询都可以简单地用上面的字符串表达式包装。

例：

vScrub([Col1] & [col2])

编辑：

修改例程以处理字符串中的多个chr(8)。

不如：

PartNum: left([pl].[PartID],len([pl].[PartID])-1) & [variant]