Mysql 向表中添加数据时，如果用户将所有字段留空，则向用户发送消息；唐'；不要添加数据

所以，我有一个表格，两个表单，一个子表单，两个按钮和一堆文本框。有了这些，我制作了一个按钮，弹出一个“添加字段”，您可以在文本框中键入信息，然后单击“添加”，它将信息添加到表格中，该表格在另一个子窗体上显示该数据；我有工作。如果您将所有字段留空，我不知道如何使其不添加数据（注意：我只希望它是所有字段，如果它们填写一个字段，其余字段为空，则可以）。如果所有字段都为空，它会向用户发送一个msgbox，告诉用户请在文本框中填写数据

另一件事，我正在寻找这个数据库的未来部分是必填字段。假设有10个文本框，在通过表单将数据添加到表中之前，您必须填写10个文本框中的6个（标有*哪些是需要的），如果您不需要，请给他们一个错误，告诉他们请填写[未填写的文本框]，然后重试。如果所有6个必填字段都已填写，则即使其他4个字段是否为空，也可以将其保存到表中

这是“添加”按钮中的代码：

    Private Sub CustomerAddBtn_Click()

Dim db As Database
Dim rec As Recordset

Set db = CurrentDb
Set rec = db.OpenRecordset("Select * from CustomersT")

rec.AddNew
rec("CustomerName") = Me.CustomerAddSupplierNameTxt
rec("Address") = Me.CustomerAddAddressTxt
rec("City") = Me.CustomerAddCityTxt
rec("ProvinceState") = Me.CustomerAddProvinceStateTxt
rec("PostalZip") = Me.CustomerAddPostalZipTxt
rec("Phone") = Me.CustomerAddPhoneTxt
rec("Fax") = Me.CustomerAddFaxTxt
rec("CustomerSince") = Me.CustomerAddCustomerSinceTxt
rec("Email") = Me.CustomerAddEmailTxt
rec("Notes") = Me.CustomerAddNotesTxT
rec.Update

Set rec = Nothing
Set db = Nothing

'Send message to user saying it was saved, so they know
Dim intReply As Integer
intReply = MsgBox("Customer has been successfully saved to the database!", vbOKOnly, "Success!")

End Sub

---

提前感谢。

您可以使用

IsNull（Me.TextBoxName）

检查文本框中是否有值。所以，如果你想测试所有的文本框是否都是空的，那么你可以这样做

如果为空（Me.CustomerAddSupplierNameTxt）_
然后为空（Me.CustomerAddAddressTxt）
MsgBox“请不要尝试输入空记录。”
其他的
MsgBox“（用户至少填写一个字段）”，vbInformation，“调试消息”
'此处显示您现有的数据库代码
如果结束

…只需展开初始的

If

语句，以包含所有要检查的控件

---

类似地，对于必填字段，您可以检查与这些必填字段对应的控件的值，如果其中任何一个

IsNull（）

则显示类似的消息。您可以使用

IsNull（Me.TextBoxName）

检查文本框中是否有值。所以，如果你想测试所有的文本框是否都是空的，那么你可以这样做

如果为空（Me.CustomerAddSupplierNameTxt）_
然后为空（Me.CustomerAddAddressTxt）
MsgBox“请不要尝试输入空记录。”
其他的
MsgBox“（用户至少填写一个字段）”，vbInformation，“调试消息”
'此处显示您现有的数据库代码
如果结束

…只需展开初始的

If

语句，以包含所有要检查的控件

同样，对于必填字段，您可以检查与这些必填字段对应的控件的值，如果其中任何一个

IsNull（）

，则显示类似的消息