Access中标题大小写的VB代码

Question

我正在尝试在Access 2010中设置数据输入表单。在其中一个字段中，我希望条目为Title Case（例如，on，on，in，at，a，an ......）。例如：如果我输入：“我在华盛顿高中的第一个ABC”，它应该成为“我在华盛顿高中的第一个ABC”。

Private Sub EventTitle_AfterUpdate()
EventTitle = StrConv(EventTitle, vbProperCase)
End Sub

使用上面的代码，我得到了“我在华盛顿高中的第一个Abc”。如何让它识别例外列表并单独保留手动输入的Caps（ABC而不是Abc）。非常感谢您的宝贵时间。非常感谢任何帮助。

Answer 1

StrConv不聪明，也不知道知道abc不是一个字。您需要单独处理每个异常。您可以使用Replace来处理异常，例如：

EventTitle = StrConv(EventTitle, vbProperCase)
EventTitle = Replace(EventTitle,"An","an")
EventTitle = Replace(EventTitle,"At","at")
EventTitle = Replace(EventTitle,"On","on")
EventTitle = Replace(EventTitle,"Abc","ABC")
...