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

なんらかの理由で、「ENTER A BUT PRICE!」も機能しません。ビットまたはレコードが入力されないようにするビット!

誰でも助けることができますか？

前もって感謝します、

ボブ・P

4

3 に答える 3

1

ありがとうございますが、私はそれを回避する方法を見つけたばかりです。テキストボックスのデフォルト値を 0 に設定してから、コードに次のように伝えました。

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

これを試してみてください

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

このコードを使用できると思います：

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