从 Excel VBA 运行访问表单

Question

我正在使用 Excel 2013 和 Access 2013。我的访问查询有一个表单，它接受 2 个输入，“开始日期”和“结束日期”，然后在 Access 中运行一个宏。有没有办法可以使用 VBA 从 excel 输入“开始日期”和“结束日期”并在访问中运行表单？这是我尝试过的，但我收到一条错误消息，提示“操作或方法无效，因为表单或报表未绑定到表或查询”

Sub RunAccessQuery()

Dim strDatabasePath As String
Dim appAccess As Access.Application
Dim startDate As Date
Dim endDate As Date

startDate = ThisWorkbook.Sheets("sheet1").Range("B2").Value

strDatabasePath = "access database path"
Set appAccess = New Access.Application
With appAccess
    Application.DisplayAlerts = False
    .OpenCurrentDatabase strDatabasePath
    .DoCmd.OpenForm "inputForm", , , "start =" & startDate
    '.Quit
End With
Set appAccess = Nothing

ThisWorkbook.RefreshAll
MsgBox ("Data has been updated")

End Sub

这就是我的表单的样子。点击我运行一个宏，第一个文本框保存变量“start”，第二个保存变量“end”

Answer 1

由于我假设您的表单没有记录源，并且控件未绑定，因此以下应该避免您遇到的错误：

Sub RunAccessQuery()

Dim strDatabasePath As String
Dim appAccess As Access.Application
Dim startDate As Date
Dim endDate As Date

startDate = ThisWorkbook.Sheets("sheet1").Range("B2").Value

strDatabasePath = "access database path"
Set appAccess = New Access.Application
With appAccess
    Application.DisplayAlerts = False
    .OpenCurrentDatabase strDatabasePath
    .DoCmd.OpenForm "inputForm"
    .Forms("inputForm").start = startDate
    '.Quit
End With
Set appAccess = Nothing

ThisWorkbook.RefreshAll
MsgBox ("Data has been updated")

End Sub

但是，这仍然只是打开表单并设置开始日期，然后立即关闭 Access。