0

我在这里搜索了似乎在问这个问题的答案，但没有一个答案对我有用。

我想在某些表单上有一个 NEXT 和 PREVIOUS 按钮。

Next 将关闭 "CurrentForm" 并打开 "NextForm" 。Previous 将关闭“CurrentForm”，并打开“PreviousForm”。

他们共享的字段称为“Personnel”，基本上就是 EmpName。

到目前为止，我一直在研究这个：（我所做的只是从 WIZARD 创建一个按钮来“打开表单”，但它不起作用？）

Private Sub cmdPrevAD1_Click()
On Error GoTo Err_cmdPrevAD1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmComp_Events_2013"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdPrevAD1_Click:
    Exit Sub

Err_cmdPrevAD1_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrevAD1_Click

End Sub

编辑：

     Dim stDocName As String
     Dim sEmpName As String

     stDocName = "frmComp_Events_2013"
     sEmpName = Me.Personnel.Value
     DoCmd.OpenForm stDocName, , , "Personnel = '" & sEmpName & "'"

上面的编辑解决了这个问题。

4

2 回答 2

0

您显示的代码似乎合法。您是否在打开上一个/下一个表单之前关闭当前表单？这将是一个问题，因为代码在您打开其他表单之前停止运行。您需要先打开新表单，然后关闭当前表单。

我希望这有帮助

于 2013-09-17T13:28:14.417 回答
0

在 VBA 中，显示表单是由Show方法完成的。这可以打开您需要的表格。一个相关的方法是Hide方法，它可以隐藏第一个表单，因此您一次不会显示多个。

有关更多信息，请查看 MS 帮助 - 在 VBA 编辑器中，按F1。

于 2013-09-16T15:27:59.833 回答