访问VBA - Msgbox

Question

在这里寻找解决方法。一个最好不涉及制作一堆用户表格。

背景：我有一个用于扫描办公室内外物品的Access DB。扫描完每个项目后，它会验证该项目是否可以离开办公室。如果不是，则调用msgbox并说“此项目未校准，您确定要接受吗？” （vbyesno）

问题：扫描项目时，系统会查看条形码中的数字和回车符。这适用于扫描表单。但是，如果用户在出现msgbox时没有注意并扫描下一个项目，则回车将单击msgbox中的默认值，关闭它并且用户不是更聪明的。

我的临时解决方案：在是/否之后我添加了第三个按钮（取消），这将成为新的默认值。扫描一个新项目将点击它，它只是重新打开msgbox。因此用户最终应该注意到。虽然这不是一个好的解决方案。

 Dim ans As Integer

 '2 is vbCancel
 ans = 2

 Do While ans = 2

    ans = MsgBox("Test", vbYesNoCancel + vbDefaultButton3 + vbSystemModal + vbExclamation)
    if ans = 2 then
      'Restart Loop
    elseif ans = vbYes
      'Do something
    elseif ans = vbNo
      'Do something else
    end if
 Loop

有很多不同的情况可以出现msgbox，因此我希望避免每个用户形成一个用户。

谢谢，

布洛克

Answer 1

强制用户输入“是”或复选框（表单）等值。