Checking the Empty Objects Before Saving Data

Some times empty data making problem during saving in the database. so this funtion ensure the object value is empty or not.
This is VB6 Code. You can also use in VB.Net with small Change by imports System.visual Basic Namespace

here passing the form name and list of object name seperated by comma. if found empty object this function return true with Object name otherwise return False value.

public Function WithEmptyObject(frm As Form, ParamArray Ctrls()) As Boolean
Dim Ctrl, rv As Boolean
rv = False
For Each Ctrl In Ctrls
If Len(Trim(frm.Controls(Ctrl).Text)) = 0 Then
If frm.Controls(Ctrl).Enabled Then frm.Controls(Ctrl).SetFocus
MsgBox frm.Controls(Ctrl).Tag & " must not contain null value.", vbInformation, "Required Entry"
rv = True
Exit For
End If
WithEmptyObject = rv
Set Ctrl = Nothing

End Function


No responses found. Be the first to comment...

  • Do not include your name, "with regards" etc in the comment. Write detailed comment, relevant to the topic.
  • No HTML formatting and links to other web sites are allowed.
  • This is a strictly moderated site. Absolutely no spam allowed.
  • Name: