VBA代码

Question

我有一个通过ODBC连接到MySQL数据库的MS Access前端。 我创建了一个简短的VBA代码，根据用户的输入在连续表单上应用过滤器。 （即，用户可以在列表中搜索名称的任何部分，键入一些字母，然后通过“回车”应用过滤器。）

我想让这个过程不区分大小写，但我不能。

我的代码是：

Option Compare Text    
Private Sub txbNameSearch_AfterUpdate()
 Me.Filter = "GuestName LIKE """ & "*" & TempVars!tvGuestName & "*" & """"
 Me.FilterOn = True
End Sub

我认为“选项比较文字”应该可以做到，但事实并非如此。 如何使过滤不区分大小写？

Answer 1

您可以将其全部转换为UCase来执行此操作。

def sumOfFractions(n: Int):Double = {
  def inner(acc: Double, n: Int): Double =
    if (n <= 1) acc else inner(acc + (1.0 / n), n - 1)

  inner(0, n)
}