お久しぶりでございます。pipiでございます。
商品IDコンボボックス、単価テキストボックス、単位テキストボックス全てに値が入力された場合の時だけ、
明細行追加ボタンを有効にするための、判定処理ですが、今一わかりません。
商品IDコンボボックス、単価テキストボックス、単位テキストボックスには、Tagプロパティで、商品ID、単価、単位
を設定しております。
If Ctrl.Tag <> "" Then →tagプロパティがnullでないならば、
If Ctrl.Value = "" Then→??これが何をしているのか?この処理は必要なのでしょうか?
どなたか解説をお願い致します。。。。
Private Function CheckEntry() As Boolean Dim Ctrl As Control For Each Ctrl In Me.Controls If Ctrl.Tag <> "" Then If Ctrl.Value = "" Then CheckEntry = False Exit Function End If End If Next CheckEntry = True End Function
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。