Question

我制作了一个数据输入表单，该表单根据这些数据在另一张工作表中创建一行。

然后，我必须制作另一种输入形式，在此之前只能输入该输入形式中的特定数据条目之一。然后，应找到包含该特定条目的所有行，并将这些行移至第三页。

如何指定报名表中仅允许一个条目？

我考虑过使用：

If Not IsEmpty(Me.Textbox1.Value) then
   MsgBox "Only one entry is allowed"
End If

但是，这当然会锁定特定的输入框。

谢谢！

Answer 1

在commandbutton_click事件中进行标准检查（该检查高于在不正确的情况下将发生的其余脚本），这是每个循环都要检查表单中的控件。您可以使用虚拟变量来检查有多少文本框控件具有值，类似于：

for each ctrl in me.controls
    if typename(ctrl) = "textbox" then 'important
        if ctrl.value <> "" then i = i+1
    end if
next ctrl
if i > 1 then 
    msgbox "don't be dumb"
    exit sub
end if
'insert code that runs when only 1 textbox is used

如何使用VBA在多字段输入表单中允许一个输入

1 个答案: