程序提醒这段代码不对，请大侠指教~~~！

孙亚峰　发表于：2009-06-05 15:50:59 　

Dim Str1 As String '定义提示框
Dim Doid As Long, BH As Long, LX As String
Str1 = MsgBox("confirm?", vbYesNo, "confirm")

If Str1 = vbYes Then '条件判断如果判断为"是"
Doid = 1 'Doid赋值为1

Do While DCount("[Doid]", "TEMP03", "Done = false ") > 0
Doid = DMin("[Doid]", "TEMP03", "Done = false ")
BH = DLookup("[ProblemNumber]", "TEMP03", "Doid = " & Doid)
LX = DLookup("[SourceName之最小值]", "TEMP03", "Doid = " & Doid)
DoCmd.RunSQL "DELETE [事件-问题1].SourceName, [事件-问题1].ProblemNumber, [事件-问题1].* FROM [事件-问题1] WHERE ((([事件-问题1].SourceName)=' " & LX & " ') AND (([事件-问题1].ProblemNumber)=' & BH & '));"
DoCmd.RunSQL "Update temp03 set Done = true where Doid = " & Doid
Loop

'MsgBox "OK!", vbInformation, "tishi"

End If

Top

竹笛发表于：2009-06-05 16:31:48

ProblemNumber字段是文本还是数字？

如果是数字，则：

"DELETE [事件-问题1].SourceName, [事件-问题1].ProblemNumber, [事件-问题1].* FROM [事件-问题1] WHERE ((([事件-问题1].SourceName)='" & LX & "') AND (([事件-问题1].ProblemNumber)=" & BH

如果是文本，则：

"DELETE [事件-问题1].SourceName, [事件-问题1].ProblemNumber, [事件-问题1].* FROM [事件-问题1] WHERE ((([事件-问题1].SourceName)='" & LX & "') AND (([事件-问题1].ProblemNumber)='" & BH & "'"

Top

豆豆发表于：2009-06-05 16:32:19

**部分改为

DoCmd.RunSQL "DELETE [事件-问题1].* FROM [事件-问题1] WHERE SourceName='" & LX & " ' AND ProblemNumber=" & BH
看看可以否

Top

孙亚峰发表于：2009-06-06 00:41:11

谢谢，各位的回复；

另外想请教一下，如果有多个数字的变量，那么应该要怎么写？

就比如，DoCmd.RunSQL "DELETE [事件-问题1].* FROM [事件-问题1] WHERE SourceName='" & LX & " ' AND ProblemNumber=" & BH

这段中，如果 “LX”跟 “BH”都是数字型的，应该要怎么写？

Top

董秀杰发表于：2009-06-06 13:27:44

高手出招，就是狠啊

Top

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

Access交流中心

程序提醒这段代码不对，请大侠指教~~~！