MS Access 2010：VBA代码多次运行

Question

我有一个以前从未遇到的问题，我看不出任何错误。

在窗体上是一个cmdCreateOrder按钮，它对SQL Server运行传递查询并执行存储过程，此查询将向Access返回一个值。

按钮cmdCreateOrder：

Private Sub cmdCreateOrder_Click()
Dim strsql As String
Dim intNumberProducts As Integer

If MsgBox("Want to create an order?" & vbCrLf & vbCrLf _
        & "Click 'Yes' to create", vbQuestion + vbYesNo, "Question") = vbNo Then
        Exit Sub
End If

    strsql = "exec dbo.spCreateOrder 'CreateOrdersKd', 1, " & Me.OfferID & ", " & Me.KdID & ", " & TempVars!intUser
    Debug.Print strsql
    Call SQL_PT(strsql, "PT_LookupWerte")

    intNumberProducts = DLookup("NumberProducts", "PT_LookupWerte")

    Me.Bestelldatum = Date
end Sub

函数SQL_PT：

Function SQL_PT(ByVal SQL As String, Optional QueryName As String)  
Dim qdf As QueryDef

On Error GoTo ErrHandler

'if no query name then create temp qry
If Len(QueryName) = 0 Then 'temp Abfrage

    Set qdf = CurrentDb.CreateQueryDef("")
    With qdf
        .Connect = TempVars!ConnectionString
        .SQL = SQL
        .ReturnsRecords = False  'Wenn kein QueryName angeliefert wird, dann ergibt .ReturnsRecords = 0 und die Abfrage wird einfach ausgeführt
        .Execute
    End With

Else  'if a qry name provided, then run qry which returns values
    Set qdf = CurrentDb.QueryDefs(QueryName)
    qdf.SQL = SQL
End If

qdf.Close
Set qdf = Nothing

ExitHere:
    Exit Function

ErrHandler:
    Resume ExitHere
End Function

我在这个项目中使用了很多这样的代码，并且它们都能正常工作。但是这个按钮点击运行EXEC至少3次，并创建3（或更多）订单。

访问VBA调试测试

更奇怪的是，因为我只在立即窗口中获得一行。当我在PT查询（Debug.Print）中使用exec dbo.spCreateOrder 'CreateOrdersKd', 1, 8, 2001, 1结果（例如PT_LookupWerte）时，它只按一个订单正常工作。

SQL Server存储过程测试

当我在SQL Server上运行存储过程时：exec dbo.spCreateOrder 'CreateOrdersKd', 1, 8, 2001, 1它只创建一个订单并且它正确运行。

仅当单击Access中的按钮时，它才会多次运行。

我压缩并修复和反编译数据库。现在我不知道问题是什么。

有任何想法吗？

Answer 1

使用DAO执行存储过程（就像你的SQL_PT一样）是一个糟糕的计划。

在QueryDefs中存储存储过程并使用DLookUp而不是.Execute或.OpenRecordset执行它们是一个糟糕的计划。

一个简单的解决方法是用intNumberProducts = DLookup("NumberProducts", "PT_LookupWerte")替换intNumberProducts = CurrentDb.QueryDefs("PT_LookupWerte").OpenRecordset.Fields("NumberProducts").Value

更好的解决方法是将存储过程代码移动到ADO，并使用命令对象和参数来执行存储过程。