公共子组件上的MS Access Openform

Question

我想在我的模块“按钮”上创建一个Public Sub，并调用Sub inside Button对象来打开从表列表中选择的当前ID上的特定表单。

正确的代码(可以工作)是这个：

Private Sub Comando7_Click()
   DoCmd.OpenForm "DettaglioColore", , , "ID_Colore= '" & Me.ID_Colore & "'", , acDialog
End Sub

因此，为了让这段代码可以使用多个按钮，但使用不同的表单名称和ID，在我的公共模块中，我写道：

Public Sub CurrentRecord(NomeForm As String, ID, frm As Access.Form)
   DoCmd.OpenForm NomeForm, , , CStr(ID) & "= '" & frm.ID & "'", , acDialog
End Sub

在我的按钮表单中：

Private Sub Comando7_Click()
   Call CurrentRecord("DettaglioColore", ID_Colore, Me)
End Sub

我不知道如何在"Call CurrentRecord“Sub中传递我的"ID_Colore”。我怎样才能达到这个简单的目标呢？谢谢!

Answer 1

尝试使用：

Public Sub CurrentRecord(NomeForm As String, ID, frm As Access.Form)
   DoCmd.OpenForm NomeForm, , , ID & "= '" & frm!ID_Colore.Value & "'", , acDialog
End Sub

Private Sub Comando7_Click()
   Call CurrentRecord("DettaglioColore", "ID_Colore", Me)
End Sub