my code stock.com

Function to check multiple controls (text boxes, combo boxes, etc.) for a blank value.

Snippet options

Download: Download snippet as blank-value-check.vbs.
Copy snippet: For this you need a free my code stock.com account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!

Public ChkVal As Variant
Public blnError As Boolean

Public Function fTxtChk()
  Dim MyTxt As TextBox

   Set MyTxt = ChkVal
    
   If IsNull(MyTxt) Then
        blnError = True
        MyTxt.BackColor = 65535
   Else
        MyTxt.BackColor = 16777215
   End If
    
End Function

Public Function fCboChk()
  Dim MyCbo As ComboBox

   Set MyCbo = ChkVal
    
   If IsNull(MyCbo) Then
        blnError = True
        MyCbo.BackColor = 65535
   Else
        MyCbo.BackColor = 16777215
   End If
End Function


  Public Function fTxtBck()
  Dim MyTxt As TextBox

   Set MyTxt = ChkVal
    
   MyTxt.BackColor = 16777215
 
    
End Function

Public Function fCboBck()
  Dim MyCbo As ComboBox

   Set MyCbo = ChkVal
    
  
   MyCbo.BackColor = 16777215

End Function

**************************************************************************************************
Set ChkVal = txt1
    Call fTxtChk

Set ChkVal = cbo1
    Call fCboChk

Create a free my code stock.com account now.

my code stok.com is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!

Find out more and register now

You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.