Ms access 将数据从窗体传递到模块(VBA)
我有一个VBA中的表单和模块。运行宏时,将显示表单(frmQuestions),并将数据输入文本框(txtName)和下拉列表(lstChoose)。当用户按下命令按钮(cmdEnter)时,我如何将txtName和LSTHOOSE中的数据传递给模块?要将表单上事件的数据传递给模块中包含的函数,请执行以下操作: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
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开发》一书中有一个关于这方面的重要章节。