'****************************************************************************
'DOEL: Controleren of de form voldoet aan de records. Als er geen records zijn,
'      mag deze niet openen.
'
'DEVELOP JOCHEN 07/03/2012
'
'
'STAPPEN
'           -recordsFound: vraagt het aantal beschikbare records op uit de lijst
'           -closeNoRecords: verwittigt de gebruiker en sluit de form
'****************************************************************************
    Private Function recordsFound() As Boolean
        Dim rs As Recordset
        Set rs = Me.Recordset
        If (rs.RecordCount = 0) Then
            recordsFound = False
        Else
            recordsFound = True
        End If
    End Function
    Private Sub closeNoRecords()
        MsgBox "Er werden geen lijnen aangetroffen om weer te geven. U zal terugkeren naar het hoofdformulier", _
               vbInformation, "Geen lijnen"
        DoCmd.Close
    End Sub