Access, baze podataka, filteri

[aleks5698]

Trebao bi pomoć... radim bazu podataka koja bi trebala filtrirati dva podatka (datuma) Zasad kod izgleda ovako

Option Compare Database

Private Function BuildFilter() As Variant

Dim varWhere As Variant
Dim varItem As Variant
Dim intIndex As Integer

varWhere = Null  ' Glavni filter

    ' Provjerava #Prezime i ime#
    If Me.Text3 > "" Then
        varWhere = varWhere & "[Prezime i ime] LIKE """ & Me.Text3 & "*"" AND "
    End If
    ' Provjerava #Adresa#
    If Me.Text5 > "" Then
        varWhere = varWhere & "[Adresa] LIKE """ & Me.Text5 & "*"" AND "
    End If
    ' Provjerava #Datum puštanja u pogon#
    If Me.Text9 > "" Then
        varWhere = varWhere & "[Datum puštanja u pogon] LIKE "" & Me.Text9 & "*"" Between """ & Me.Text15 & "*"" AND "
    End If
    ' Provjerava #Datum zadnjeg popravka#
    If Me.Text17 > "" Then
        varWhere = varWhere & "[Datum zadnjeg popravka] LIKE """ & Me.Text17 & "*"" AND "
    End If
    ' Izrada filtra
    If IsNull(varWhere) Then
        varWhere = ""
    Else
        varWhere = "WHERE " & varWhere
        ' zadržavanje na zadnjem filtru
        If Right(varWhere, 5) = " AND " Then
            varWhere = Left(varWhere, Len(varWhere) - 5)
        End If
    End If
    
    BuildFilter = varWhere

End Function

Private Sub Command13_Click()
    
    ' Obnavlja subform za bazu podataka #korisnici#
    Me.search_form.Form.RecordSource = "SELECT * FROM q_kordod " & BuildFilter
    ' Izrada requarya #korisnici#
    Me.search_form.Requery
    
End Sub

Ovdje su dvije funkcije... izdara filtra i obnavljanje forme

Mene mući ona linija koda koja bi trebala usporediti i nači sve datume između dva upisana...



HVALA:::