mysql - 如果用户在向表中添加数据时将所有字段留空，则向用户发送消息；并且不添加数据

Question

所以，我有一个表格、2 个表单、一个子表单、2 个按钮和一堆文本框。有了这些，我制作了一个弹出“添加字段”的按钮，您可以在其中将信息键入文本框，然后单击添加，并将其添加到表格中，该表格返回到另一个子表格上显示该数据；我有那个工作。如果您将所有字段留空，我不确定如何让它不添加数据(注意；我只希望它是所有字段，如果他们填写一个字段而其余字段为空也没关系)。如果所有字段都为空，它会向用户发送一个消息框，说明请在文本框中填写数据。

我正在为这个数据库的 future 部分寻找的另一件事是必填字段。假设有 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

提前致谢。

Answer 1

您可以使用 IsNull(Me.TextBoxName) 检查文本框中是否有值。所以，如果您想测试 所有 文本框是否为空，那么您可以这样做

If IsNull(Me.CustomerAddSupplierNameTxt) _
        And IsNull(Me.CustomerAddAddressTxt) Then
    MsgBox "Please don't try to enter an empty record."
Else
    MsgBox "(user filled in at least one field)", vbInformation, "Debug Message"
    ' your existing database code here
End If

...然后只需扩展初始的 If 语句以包含您要检查的所有控件。

同样，对于必填字段，您可以检查与这些必填字段对应的控件的值，如果其中任何一个 IsNull() 则显示类似的消息。