0

我有一个访问数据库，这与我之前提出的问题类似，带有一个下拉列表和一个子表单。我希望能够从下拉列表中选择一个选项，并让它在下面的子表单中打开相应的子表单。这是我的代码...

Option Compare Database
Option Explicit

Private Sub btnCloseHRForms_Click()
  DoCmd.Close

End Sub

Private Sub cmbSelectFrms_AfterUpdate()
Select Case selectSubform
  Case 1
    Forms!frm_HRForms!subformHRForms.Form!subform1.Visible = True
  Case 2
    Forms!frm_HRForms!subformHRForms.Form!subform2.Visible = True
  Case 3
    Forms!frm_HRForms!subformHRForms.Form!subform3.Visible = True
End Select
End Sub

Private Sub Form_Load()
Dim dba As Database
Dim rst As Recordset
Dim SQL As String

Set dba = CurrentDb
Set rst = dba.OpenRecordset("tbl_Forms", dbOpenDynaset, dbSeeChanges)
SQL = "SELECT ListName FROM tbl_Forms"
Set rst = dba.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

Set rst = Nothing
Set dba = Nothing
End Sub

Function selectSubform(ID)
Dim dbacurrent As Database
Dim rstcurrent As Recordset
Dim SQL As String

Set dbacurrent = CurrentDb
SQL = "SELECT * FROM tbl_Forms WHERE ID = " & ID
Set rstcurrent = dbacurrent.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)
selectSubform = rstcurrent.Fields("ID")

Set dbacurrent = Nothing
Set rstcurrent = Nothing

End Function

有什么建议么？访问 VBA 的新手

4

1 回答 1

1

您的函数 selectSubform(ID) 需要传递一个 ID 参数，而您没有传递一个。定义函数时：

Function selectSubform(ID)
    ' ... Do some stuff
    selectSubform = SomeValue
End Function

您告诉编译器需要一个名为 ID 的参数。

顺便说一句，我强烈建议您在每个代码模块的顶部放置一个 Option Explicit 语句，并在编辑器中打开 Option Explicit 选项。这将要求您指明数据类型。就目前情况而言，我们不知道期望什么数据类型作为 ID 参数，也不知道您的函数返回什么数据类型（尽管在您的 Select Case 语句中使用明显的整数暗示了这一点）。做出一些假设，我会尝试以下更改（我现在无法对此进行测试，也无法与您的其余代码交谈）。

我在这里假设组合框中的选择是相应子表单的 ID。如果没有，您可能需要向我们说明 ID 参数的来源）：

Private Sub cmbSelectFrms_AfterUpdate()
    Select Case selectSubform(Me.cmbSelectForms)
        Case 1
            Forms!frm_HRForms!subformHRForms.Form!subform1.Visible = True
        Case 2
            Forms!frm_HRForms!subformHRForms.Form!subform2.Visible = True
        Case 3
            Forms!frm_HRForms!subformHRForms.Form!subform3.Visible = True
    End Select
End Sub

这里可能还隐藏着其他问题。但是，将您的 VBA IDE 设置为需要显式变量声明并向每个代码模块添加 Option Explicit 将有助于您识别问题。

于 2012-12-26T16:06:08.283 回答