[ dejantomasevic @ 25.12.2013. 08:14 ] @
Zamolio bih za malu pomoć.Uradio sam pretragu za 6 polja iz tabele zahtevi:Datum prijema, Vreme prijema, Serijski broj, Model štampača, Korisnik, Serviser.Za polja Serijski broj, Model štampača, Korisnik i Serviser pretraga mi radi, ali za polja Datum prijema i Vreme prijema mi ne radi pa bih molio za pomoć kako da prevaziđem ovaj problem.Takođe kada jednom uradim pretragu i kada bih se ponovo vratio na formu pretraga zatvaranjem forme nalog više nemogu da radim pretragu jer mi stalno drži ono što je prvi put pronašao.Zamolio bih za pomoć u rešavanju ova dva problema.

U prilogu se nalazi baza.

Unapred se zahvaljujem.
[ SLOJ.1973 @ 25.12.2013. 09:10 ] @
Ako moze u 2003-ci.
[ dejantomasevic @ 25.12.2013. 10:27 ] @
Verzija 2003
[ SLOJ.1973 @ 25.12.2013. 11:25 ] @
Prvi deo resen,a drugi mi nije bas najjasniji,jer kod mene moze da se nastavi sa pretragom.Pojasni.
[ unavoda @ 28.12.2013. 10:47 ] @
Hvala na pomoći, za prvi deo!
Ali sada imam problem sa datumom, izbacuje mi grešku.
U prilogu je slika greške.
[ nenadmarkoni @ 28.12.2013. 11:09 ] @
Dejane u temi koju ste pokrenuli prije nedelju dana sa istom tematikom napravio sam Vam pokazni primjer aplikacije uz prethodno Funkcionalno i Informaciono modelovanje koje treba da prethodi aplikativnom modelovanju, a prema atributima iz Vaše aplikacije. Isprobajte. Pozdrav.
[ SLOJ.1973 @ 28.12.2013. 11:58 ] @
Pretraga po datumu je specificna kada se radi kroz VBA kod,u zavisnosti kakva su regionalna podesavanja.Verovatno je problem sto sistem posmatra datum kao mmddyyy,tj prvo mesec,pa dan pa godina.Probaj da ukucas 12/23/2013 i dobices rezultat.
[ unavoda @ 05.01.2014. 15:09 ] @
Ponovo se obraćam za istu vrstu pomoći.Pokušavao sam na sve načine da premostim problem, ali greška mi se ponavlja.Podešavao sam i u regional settings, menjao sam i redoosled(meseca i datuma) ali ne radi.Pokušavao sam na više računara ali neće.Da podsetim imam problem sa pretragom po datumu.Sloj mi je pomogao oko vremena, ali datum neće da proradi.Zamolio bih sve koji vide ono što ja nevidim i iz razloga što nemam dovoljno iskustva za pomoć.

U prilogu se nalazi greška koju mi izbacuje i fajl.
Hvala unapred!
[ SLOJ.1973 @ 05.01.2014. 15:55 ] @
Probaj sada.Pozdrav.
[ unavoda @ 05.01.2014. 16:06 ] @
Radi.

Hvala puno!

Pozdrav,
[ izonic @ 05.01.2014. 17:27 ] @
Code:
Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)

If IsNumeric(Vrijednost) = False Then
Vrijednost = Vrijednost & Chr(42)
End If

If IsDate(Vrijednost) Then
Vrijednost = "#" & Vrijednost & "#"
End If

If Vrijednost <> "" Then
    If Brojac > 0 Then
        Kriterija = Kriterija & " and "
    End If

        Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
        Brojac = Brojac + 1
End If

End Sub

Private Sub Command22_Click()
Dim MySQL As String, Kriterija As String, RekordSours As String
    Dim ImepoljaT As String, ImePolja As String
    Dim Brojac As Integer, I As Integer
    Dim Tmp As Variant
    Dim Frm As Form
    
    MySQL = "SELECT * FROM ZAHTEVI  WHERE "
    
    For I = 1 To 6
    ImepoljaT = Choose(I, "DATUMPRIJEMA", "VREMEPRIJEMA", "SERBROJ", "MODEL", _
    "KORISNIK", "SERVISER")
    ImePolja = "T" & I
    DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
    Next I
    
    If Kriterija = "" Then
        Kriterija = "True"
    End If

    RekordSours = MySQL & Kriterija
    DoCmd.OpenForm "NALOG"
    Set Frm = Forms("Nalog")
    Frm.RecordSource = RekordSours
    
    If Frm.RecordsetClone.RecordCount = 0 Then
        MsgBox "Nema podataka po ovom kriteriju"
        Me.Command34.SetFocus
        DoCmd.Close acForm, "NALOG"
    End If
End Sub