按钮运行出错

王萌萌　发表于：2017-08-17 09:44:29 　

我在主窗体中有个付款确认按钮，但是点击以后报错。请看看是什么原因。代码如下：

Private Sub 付款确认_Click()

    Dim strBillNo: strBillNo = "订货合同号" & Me!订货合同号
    Dim strMsg: strMsg = "请确认此" & strBillNo & " 的合同已经付款完成吗？"
    If MsgBox(strMsg, vbExclamation + vbOKCancel, "付款确认") = vbCancel Then
        Exit Sub
    End If

Dim strSQL: strSQL = " UPDATE tbl_采购合同 SET 付款状态='已付款'" _
& " WHERE [订货合同号]=" & SQLText(Me!订货合同号)

    If DAORunSQL(strSQL) Then
        Me!付款状态 = "已付款"
        Me.付款确认.Enabled = False
        Me.sfrDetail.Requery
    End If

    RequeryDataObject gsfrList
    MsgBox "付款成功！", vbInformation
    WriteOperationLog "采购合同", "付款确认"

End Sub

出错提示：编译错误：byref参数类型不符

Top

宏鹏发表于：2017-08-17 13:55:40

Debug.Print strSQL

Top

王岚发表于：2017-08-17 15:21:47

???

Top

宏鹏发表于：2017-08-17 15:26:56

strSQL语句错误

Top

MDZZ 发表于：2017-08-17 17:16:12

Dim strSQL as string : strSQL = " UPDATE tbl_采购合同 SET 付款状态='已付款'" _
& " WHERE [订货合同号]=" & SQLText(Me!订货合同号)

Top

宏鹏发表于：2017-08-17 17:23:02

方法1：Dim strSQL As String
方法2：DAORunSQL("" & strSQL)
方法3：DAORunSQL(CStr(strSQL))

Top

宏鹏发表于：2017-08-17 17:25:17

方法4：
Public Function DAORunSQL(SQLStatement As Variant, Optional Database As Variant) As Boolean
DAORunSQL = UMVsoftRDPLib.DAORunSQL(CStr(SQLStatement), Database)
End Function

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

按钮运行出错