【发布时间】:2021-05-22 14:06:31
【问题描述】:
当我尝试运行此代码时,我总是收到“输入参数值错误”。错误涉及 idPat、idSP、idPar 和 measure_value。 我已经检查了调试 idPar、idPat、idSP 和 measure_value,它们假定了正确的值;运行 sql 时出现错误。
Dim idPar As Integer
Dim idPat As Integer
Dim idSP As Integer
Dim current_fc As String
Dim namePar As String
Dim sql As String
Dim measureValue As Integer
current_fc = TempVars!CurrentUsername
namePar = Me.cmbManualDailyPar.Value
measureValue = Me.txtMeasureValue
idPar = Nz(DLookup("ID_par", "Parameter", "name_par = '" & namePar & "'"), 0)
idPat = Nz(DLookup("ID_patient", "Patient", "fiscal_code = '" & current_fc & "'"), 0)
idSP = Nz(DLookup("ID_SP", "Diagnosis", "ID_patient = " & idPat & ""), 0)
sql = "INSERT INTO Measure(ID_par, measure_value,ID_SP,ID_patient)" & _
" VALUES(idPar,measureValue,idSP,idPat);"
DoCmd.RunSQL sql
【问题讨论】:
-
idPat在分配给idSP时尚未定义。你的意思是idPar? -
不,我的错误我已经编辑了它,但仍然出现同样的错误
-
我们正在讨论的错误与此错误无关。
-
@Lea 。 . .打印出 SQL 并查看它是否直接在 MS Access 中运行。从那里开始调试它。