View Single Post
Staro 06.10.2008., 18:03   #1
aleks5698
Registered User
Moj komp
 
Datum registracije: Jul 2007
Lokacija: Čakovec
Postovi: 13
Arrow Access, baze podataka, filteri

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

Code:
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:::
__________________

Respect Google as Your best friend!
aleks5698 je offline   Reply With Quote