• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This Code Verifies if a recordset is empty or not ,and you can pass a collection for and it will fi

This Code Verifies if a recordset is empty or not ,and you can pass a collection for and it will fi

This Code Verifies if a recordset is empty or not ,and you can pass a collection for and it will fill it for you with the Values in the

Rate This Code Verifies if a recordset is empty or not ,and you can pass a collection for and it will fi

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   On Error GoTo ErrH
   Dim TmpField As Field
   Dim TmpColl As Collection
   
        If ReturnColl Then
            If Not (rColl Is Nothing) Then Set rColl = ReturnEmptyCollection
        End If
        
        If (MyRS.EOF And MyRS.BOF) Then
             VerifyRS = False
             Exit Function
        End If
    
        If ReturnColl = False Then
            VerifyRS = True
            Exit Function
        End If
    
 
    Set TmpColl = New Collection
    While Not MyRS.EOF
        For Each TmpField In MyRS.Fields
            TmpColl.Add MyRS.Fields(CStr(TmpField.Name)) & " "
        Next
        MyRS.MoveNext
    Wend
    MyRS.MoveFirst
    VerifyRS = (CheckForNulls(TmpColl) = True)
        If ReturnColl = True Then
            If Not (rColl Is Nothing) Then
                Set rColl = TmpColl
            Else
                VerifyRS = False
            End If
        End If
    Exit Function
ErrH:
    VerifyRS = False
End Function



Public Function CheckForNulls(sStrings As Collection) As Boolean
On Error GoTo ErrH
Dim sElement As Variant
Dim NoNullCollection As Collection
Set NoNullCollection = New Collection
        For Each sElement In sStrings
            If Trim(sElement) <> "" Then
                sElement = Trim(sElement)
                NoNullCollection.Add sElement
            End If
        Next
    CheckForNulls = True
    Set sStrings = NoNullCollection
    Exit Function
ErrH:
    CheckForNulls = False
End Function

Public Function ReturnEmptyCollection() As Collection
    Set ReturnEmptyCollection = New Collection
End Function