Check a column if it is blank

Dim iCheckDateColumnName As String
Dim iCheckStringColumnName As String

Sub Main

     iCheckDateColumnName = 0
     iCheckStringColumnName = 0

    RunSub_ColumnNullCheck

        sTableName = Dir(Client.Workingdirectory + "TableName.IMD")       
        Set db = Client.OpenDatabase(sTableName)
        Set task = db.Extraction
   
        task.AddFieldToInc "XXXXXXXXX"
        task.AddFieldToInc "XXXXXXX"
   
        'If Column is NULL then do not Extract
            If iCheckDateColumnName = 1 Then
                task.AddFieldToInc "DateColumnName"
            End If
           
            If iCheckStringColumnName = 1 Then
                task.AddFieldToInc "StringColumnName"
            End If
   
        task.AddFieldToInc "YYYYY"
        task.AddFieldToInc "YYYYY"
       
        task.AddKey "ABC", "A"
        dbName = Client.UniqueFileName ("PROTOTYP_CheckNull")
        task.AddExtraction dbName, "", ""
        task.PerformTask 1, db.Count
        Client.OpenDatabase (dbName)   

End Sub

Sub RunSub_ColumnNullCheck

    'declaration
    Dim percentComplete As Object
    Dim iCnt As Long
    Dim iLoopCounter As Long
    Dim sArrayFieldContent() As String
    Dim sTableName As String    
    iCnt = 0
    sTableName = ""
    

'Date Field
'---------------------------------------
    Set percentComplete = CreateObject ("CommonIdeaControls.StandaloneProgressCtl")
    iLoopCounter = 0    
    sTableName = Dir(Client.Workingdirectory + "TableName.IMD")
    Set db = Client.OpenDatabase(sTableName)
        iCnt = db.Count            
    Set table = db.TableDef
    Set field = Nothing
    Set field = table.GetField("DateColumnName")    
        ReDim sArrayFieldContent(iCnt)    
        Set RS = db.RecordSet    
        percentComplete.Start "Checking DateColumnName NULL"        
        RS.ToFirst            
        For iLoopCounter = 1 To iCnt    
            percentComplete.Progress Int(iLoopCounter * 100 /  iCnt)
            RS.Next        
            Set REC = RS.ActiveRecord        
            sArrayFieldContent(iLoopCounter-1) = REC.GetDateValue(field.name)    
            'If DateField has Content exit loop
            If iAbs(sArrayFieldContent(iLoopCounter-1)) <> "0" Then
                iCheckDateColumnName = 1
                Exit For
            End If        
        Next iLoopCounter        
    db.Close    
    
    Set Rec = Nothing    
    Set RS     = Nothing    
    Set table = Nothing
    Set field = Nothing    
    Set db = Nothing
    Set percentComplete = Nothing    
    
' String Field
'------------------------------------------------
    Set percentComplete = CreateObject ("CommonIdeaControls.StandaloneProgressCtl")
    iLoopCounter = 0    
    sTableName = Dir(Client.Workingdirectory + "TableName.IMD")
    Set db = Client.OpenDatabase(sTableName)
        iCnt = db.Count            
    Set table = db.TableDef
    Set field = Nothing
    Set field = table.GetField("StringColumnName")    
        ReDim sArrayFieldContent(iCnt)    
        Set RS = db.RecordSet    
        percentComplete.Start "Checking StringColumnName NULL"            
        RS.ToFirst            
        For iLoopCounter = 1 To iCnt    
        percentComplete.Progress Int(iLoopCounter * 100 /  iCnt)        
            RS.Next        
            Set REC = RS.ActiveRecord        
            sArrayFieldContent(iLoopCounter-1) = REC.GetCharValue(field.name)
            'If String Field has Content exit loop            
            If iIsBlank(sArrayFieldContent(iLoopCounter-1)) = 0 Then
                iCheckStringColumnName   = 1
                Exit For
            End If                        
        Next iLoopCounter    
    db.Close    

    Set Rec = Nothing    
    Set RS     = Nothing    
    Set table = Nothing
    Set field = Nothing    
    Set db = Nothing        
    Set percentComplete = Nothing    
            
End Sub