Ms access 将数据从窗体传递到模块(VBA)

Ms access 将数据从窗体传递到模块(VBA),ms-access,vba,Ms Access,Vba,我有一个VBA中的表单和模块。运行宏时,将显示表单(frmQuestions),并将数据输入文本框(txtName)和下拉列表(lstChoose)。当用户按下命令按钮(cmdEnter)时,我如何将txtName和LSTHOOSE中的数据传递给模块?要将表单上事件的数据传递给模块中包含的函数,请执行以下操作: frmQuestions表单中包含的点击事件代码: Private Sub cmdEnter_Click() Dim TempReturnVal as Boolean Temp

我有一个VBA中的表单和模块。运行宏时,将显示表单(frmQuestions),并将数据输入文本框(txtName)和下拉列表(lstChoose)。当用户按下命令按钮(cmdEnter)时,我如何将txtName和LSTHOOSE中的数据传递给模块?

要将表单上事件的数据传递给模块中包含的函数,请执行以下操作:

frmQuestions
表单中包含的点击事件代码:

Private Sub cmdEnter_Click()
  Dim TempReturnVal as Boolean

  TempReturnVal = funUpdateRecords(txtName.value, lstChoose.value)
End Sub
模块中的功能:

Public Function funUpdateRecords(funName As String, funChoice As String) As Boolean
  ' Do whatever it is that you want to 
  'funName contains the value of txtName
  'funChoice contains the value of lstChoose

  'Return True if successful or False if not.
  funUpdateRecords = True   
End Function

您需要开发一些代码,然后提出具体问题。这可能会引起人们的兴趣。《专业Excel开发》一书中有一个关于这方面的重要章节。