ホーム>source

私のコードは、列「A」でIDを探し、一致する場合は、メッセージをスローして、ユーザーが同じIDを持つ別の人を再入力できないようにします。シンプルで効果的なものが欲しかったので、これでうまくいきます。問題は、テキストボックスがクリアされている場合でも、値をクリアすると、同じメッセージボックスが再びポップアップすることです。この問題を解決する方法はありますか?

<前>ウィズウィズ Private Sub TextBox1_Change() Dim controlrow Dim lookrow controlrow = Me.TextBox1.Value Set lookrow = Hoja4.Range("A:A").Find(What:=controlrow, LookIn:=xlValues) If Me.TextBox1.Value = lookrow.Value Then MsgBox "El ID ya existe" Me.TextBox1.Value = "" End If End Sub
あなたの答え
  • 解決した方法 # 1

    コードを修正して、最初にテキストボックスが空白かどうかを確認します。

    @JvdVで述べたように、検索する値が見つからない可能性についてもコーディングする必要があります。その場合、 Something を比較しようとするとエラーになります。  ウィズウィズへ


    <前>ウィズウィズ Nothing

関連記事

  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ javascript - ナビゲーションクリック時のページスクロールの制限領域