如何将表单中文本框的值传递给子程序？

Question

我有一个简单的表单，里面有几个组合框，一个文本框，用户在里面输入他们想保存的文件名（将是一个电子表格），还有几个按钮来运行一些查询。当按钮被按下时，它会打开文件对话框来选择路径，但文件名本身是硬编码在子程序中的。我如何将文本框中的值传递给按钮事件例程，运行相应的查询并导出电子表格？在例程中，我把它叫做fileName，而表单上的文本框叫做FileName。

Option Compare Database
Option Explicit

Private Sub AllPaybacks_Click()
Dim getFolder As Object
Dim sLoc As String
Dim fileName As String

Set getFolder = Application.FileDialog(msoFileDialogFolderPicker)
With getFolder
    .AllowMultiSelect = False
    If .Show = True Then
        sLoc = getFolder.SelectedItems(1) & "\"
    End If
End With

DoCmd.OpenQuery "PaybackQ"
DoCmd.TransferSpreadsheet acExport, , "PaybackQ", sLoc & fileName & ".xlsx", True
End Sub

Answer 1

我有点不确定你的确切问题是什么。

如果你想填充文件名对话框，那么你可以设置getFolder对象的InitialFileName属性。 所以，在 "with "块里面和 "If "语句之前。

getFolder.InitialFileName = FileName.Value