| aleks5698 |
06.10.2008. 18:03 |
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...
http://img384.imageshack.us/img384/4...rvisyk6.th.jpghttp://img384.imageshack.us/images/thpix.gif
HVALA::: |
