Question

我有这行代码，如果相关文本框为空，则应该阻止用户输入记录。

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

Answer 1

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

If me.text13.value = 0 then

Answer 2

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

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

Answer 3

试试这个

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

检查文本框是否为空？

3 个答案: