DO....LOOP当条件循环执行声音播放

风的承诺　发表于：2017-12-22 13:27:29 　

各位大神和坛友们，帮忙指导一下使用DO....LOOP当条件为：错误ERROR循环执行播放声音，另优化一下代码

If Me.主料号 = Me.原料盘 Or Me.副料号 = Me.原料盘 Then

Me.Label22.Caption = "正确Right"
Me.Label22.BackColor = vbBlue
Me.判定结果 = "正确Right"

Call PlaySound(CurrentProject.Path & "\OK.WAV")
'8个副料号的识别
ElseIf Me.原料盘 = Me.副料1 Or Me.原料盘 = Me.副料2 Or Me.原料盘 = Me.副料3 Or Me.原料盘 = Me.副料4 Or Me.原料盘 = Me.副料5 Or Me.原料盘 = Me.副料6 Or Me.原料盘 = Me.副料7 Or Me.原料盘 = Me.副料8 Then
Me.Label22.Caption = "正确Right"
Me.Label22.BackColor = vbBlue
Me.判定结果 = "正确Right"
Call PlaySound(CurrentProject.Path & "\OK.WAV")
Else
Me.Label22.Caption = "错误Error"
Me.Label22.BackColor = vbRed
Me.原料盘 = ""
Me.空料盘.SetFocus
Me.原料盘.SetFocus

Call PlaySound(CurrentProject.Path & "\ng.WAV")

End If

各位大神和坛友们，帮忙指导一下使用DO....LOOP当条件为：错误ERROR循环执行播放声音，另优化一下代码

Top

风的承诺发表于：2017-12-23 09:02:23

各位大神和坛友们，帮忙指导一下使用DO....LOOP当条件为：错误ERROR循环执行播放声音，另帮优化一下代码

Top

风的承诺发表于：2017-12-23 09:04:14

求哪位老师帮忙解决！

Top

风的承诺发表于：2017-12-25 11:25:13

求哪位老师帮忙解决！

Top

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

Access交流中心

DO....LOOP当条件循环执行声音播放