Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Forma pretraga od datuma do datuma

[es] :: Access :: Forma pretraga od datuma do datuma

[ Pregleda: 2826 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

tandrli

Član broj: 25905
Poruke: 672
89.146.168.*



+1 Profil

icon Forma pretraga od datuma do datuma31.07.2012. u 22:38 - pre 141 meseci
pozz

evo uzeo malo moždane da razvijam pa zakočilo .. naime

kada postavim datum npr. 1.7.2012 do 12.7.2012 izlista mi sve podatke i koji nisu i koji jesu između tog datuma,
dok ako stavim umjesto 12-tog, 13-ti onda pretraga radi OK

pa imal ko kakvih ideja

thnx
Prikačeni fajlovi
 
Odgovor na temu

Dexxxl
Dejan Stojanovic
Blagi uzas
Knjazevac

Član broj: 252836
Poruke: 212
109-92-103-242.dynamic.isp.telekom.rs.



+9 Profil

icon Re: Forma pretraga od datuma do datuma01.08.2012. u 07:19 - pre 141 meseci
Koristim 2003, pa ne mogu da vidim kako izgleda tvoja baza, ali je verovatno problem u formatu datuma. Naime u VB-u datum mora da bude u formatu MM/dd/yy, znaci moras da koristis u kodu nesto kao
Code:

 ... & "#" & Format(kontrolaSaDatumom,"MM/dd/yy") & "#"...


[Ovu poruku je menjao Dexxxl dana 01.08.2012. u 08:46 GMT+1]
 
Odgovor na temu

tandrli

Član broj: 25905
Poruke: 672
89.146.165.*



+1 Profil

icon Re: Forma pretraga od datuma do datuma01.08.2012. u 10:05 - pre 141 meseci
Citat:
Dexxxl:
Koristim 2003, pa ne mogu da vidim kako izgleda tvoja baza, ali je verovatno problem u formatu datuma. Naime u VB-u datum mora da bude u formatu MM/dd/yy, znaci moras da koristis u kodu nesto kao
Code:

 ... & "#" & Format(kontrolaSaDatumom,"MM/dd/yy") & "#"...


[Ovu poruku je menjao Dexxxl dana 01.08.2012. u 08:46 GMT+1]


drug to je to thnx
evo coda za ostale

Code:

Private Sub cmdSearch_Click()
On erorr GoTo errr
Me.tbltable1.Form.RecordSource = "SELECT * FROM tbltable1 " & BuildFilter
Me.tbltable1.Requery
Exit Sub
errr:
MsgBox Err.Description
End Sub

Private Function BuildFilter() As Variant
Dim varWhere As Variant
Dim tmp As String
tmp = """"
Const conJetDate = "\#mm\/dd\/yyyy\#"
varWhere = Null
If Me.txtname > "" Then
varWhere = varWhere & "[Sjedistedobavljaca] like " & tmp & Me.txtname & tmp & " AND "
End If
If Me.datefrom > "" Then
varWhere = varWhere & "([datum] >= " & Format(Me.datefrom, conJetDate) & ") AND "
End If
If Me.dateto > "" Then
varWhere = varWhere & "([datum] <= " & Format(Me.dateto, conJetDate) & ") AND "
End If
If IsNull(varWhere) Then
varWhere = ""
Else
varWhere = "WHERE " & varWhere
If Right(varWhere, 5) = " AND " Then
varWhere = Left(varWhere, Len(varWhere) - 5)
End If
End If
BuildFilter = varWhere
End Function


 
Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 81
*.dynamic.sbb.rs.



+1 Profil

icon Re: Forma pretraga od datuma do datuma01.08.2012. u 18:53 - pre 141 meseci
Nemam vremena da gledam tvoju bazu, ali ja sam imao sličan problem. Naime, ne znam kako ali mi se polje u tabeli gde je bio datum (data type) nekako samo prebacilo kao "text" umesto kao "data/time". To sam ispravio i radilo je OK.
 
Odgovor na temu

[es] :: Access :: Forma pretraga od datuma do datuma

[ Pregleda: 2826 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.