0

我有这行代码，如果有问题的文本框为空，它应该可以防止用户输入记录。

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

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

任何人都可以帮忙吗？

提前致谢，

鲍勃·P

4

3 回答 3

1

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

If me.text13.value = 0 then
于 2012-10-07T12:45:01.583 回答
0

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

If  String.IsNullOrEmpty(Me.Text13.Value) Then
于 2012-10-07T12:47:46.433 回答
0

试试这个

If Len(Me.Text13 & vbNullString) = 0 Then
于 2012-10-08T08:05:33.527 回答