Forma pretraga od datuma do datuma

Forma pretraga od datuma do datuma 31.07.2012. u 23:38 · pre 173 meseca #1

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

Database101.zip73.78k

Re: Forma pretraga od datuma do datuma 01.08.2012. u 08:19 · pre 173 meseca #2

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") & "#"...

Re: Forma pretraga od datuma do datuma 01.08.2012. u 11:05 · pre 173 meseca #3

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

Re: Forma pretraga od datuma do datuma 01.08.2012. u 19:53 · pre 173 meseca #4

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.

Forum kao aplikacija na telefonu

Srodne teme