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

访问vba过滤器按钮

2 个答案: