Database 检查文本框是否为空？

我有这行代码，如果文本框是空的，应该防止用户输入记录

Private Sub Command17_Click()

If Me.Text13.Value = "" Then

Me.Text26.Value = "ENTER A BUY PRICE!"

Else

Dim sc1 As DAO.Recordset
Set sc1 = CurrentDb.OpenRecordset("Flips", dbOpenDynaset)

sc1.AddNew
sc1.Fields("ItemID").Value = Me.Combo0.Column(0)
sc1.Fields("BuyPrice").Value = Me.Text13.Value
sc1.Fields("Note").Value = Me.Text18.Value
sc1.Fields("Status").Value = "BOUGHT"
sc1.Update

Me.Flips.Requery

End If

End Sub

无论出于何种原因，它都不起作用，“输入一个但价格！”位或阻止记录被输入的位

有人能帮忙吗

提前感谢,

---

Bob p

谢谢大家，但我刚刚找到了解决方法，我将文本框的默认值设置为0，然后告诉代码：

If me.text13.value = 0 then

---

我认为您可以使用这段代码：

If  String.IsNullOrEmpty(Me.Text13.Value) Then

试试这个

If Len(Me.Text13 & vbNullString) = 0 Then

---

这就是我想要避免的，我不希望用户能够添加一条记录，如果购买价格（text13）为空

如果Len（Me.text13&vbNullstring）=0，那么…

我怎么也能使它成为这样，当用户点击此文本框时，里面的所有文本都被选中？因此，他们不必在每次输入信息时手动突出显示文本框中的所有信息。如果我已经回答了您之前的问题，请将其标记为已回答。对于突出显示的问题，我认为TextBox.Select方法可以用于事件OnClick。