存取vba筛选器按钮

Question

我正在尝试用两个过滤器按钮制作一个表单。 第一个按钮将对过滤器+ 1，第二个按钮将对过滤器-1。

到目前为止，我有。

 Dim ADD As String
 If Me.TypeID Is Empty Then
     'empty TypeID, do nothing
 Else
     ADD = Me.TypeID + 1
     DoCmd.ApplyFilter "", "[TypeID] = " & ADD
 End If

我正进入（状态

错误2427

因为如果下一个TypeID不存在，我将无法捕获。

例如，我现在有4条记录作为TypeId。 如果我加1，我将有5个我没有。

谢谢。

Answer 1

找到它。

 Dim Add As String
 Dim LastID As Integer

 LastID = DMax("TypeID", "tblType")

 If Me.TypeID = LastID Then
      'Empty TypeID, Do Nothing...
 Else
      Add = Me.TypeID + 1
      DoCmd.ApplyFilter "", "[TypeID] = " & Add
 End If

Answer 2

不要忘记设置：

Me.filter on = true