kako da mi se pretraži subform po zadatim poljima u hederu.... molim Vas da mi pomognete
Pretraga u subformu
Zaključano
Zakačeno
Ključna reč je [pretraga]. Ako je uneseš u polje za pretraživanje dobićeš odgovor na svoje pitanje. Evo jedne od tema koja se time bavila. http://www.elitesecurity.org/t304887-1#1822935
da, već sam videla ovaj post i otprilike tako sam i probala da uradim ali nikako ne mogu da ukomponujem ovaj datum od - do. Uzela sam onaj zakačen file ali kažem, nikako da ukomponujem ovaj datum....
Probaj da koristiš Date picker, rešio bi mnogo komplikacija. U tom slučaju bi mogla da radiš konverziju iz Date/Time u Long tip podataka. Ja to radim na sledeći način :
Public Function DToN(WhDate As Date) As Long
DToN = FormatNumber(Int(WhDate), 0, vbFalse, vbFalse, vbFalse)
End Function
Recimo u Queryju dodaš izraz DatumBroj koji bi se računao kao Int(Datum) i onda umesto da se petljaš sa datumima upoređuješ brojeve. Vidim da u referencama koristiš ADO, ja sam tu referencu uklonio i zamenio sa DAO. Čini mi se da se datumi kod Ado obeležavaju na drugi način. U DAO se koriste tarabice (#), s tim da u SQL kriterijumu moraš navesti ispravno formatiran datum, zato sam napisao funkciju DateCri. Ovde još treba dodati proveru da li su prazni textovi i tome slično...
Public Function DToN(WhDate As Date) As Long
DToN = FormatNumber(Int(WhDate), 0, vbFalse, vbFalse, vbFalse)
End Function
Recimo u Queryju dodaš izraz DatumBroj koji bi se računao kao Int(Datum) i onda umesto da se petljaš sa datumima upoređuješ brojeve. Vidim da u referencama koristiš ADO, ja sam tu referencu uklonio i zamenio sa DAO. Čini mi se da se datumi kod Ado obeležavaju na drugi način. U DAO se koriste tarabice (#), s tim da u SQL kriterijumu moraš navesti ispravno formatiran datum, zato sam napisao funkciju DateCri. Ovde još treba dodati proveru da li su prazni textovi i tome slično...
Code:
Option Compare Database
Private Sub pretrazi_Click()
sfrmEvidencija.Form.RecordSource = "SELECT [tblevidencija].[refBr], [tblevidencija].[Naziv], [tblevidencija].[datum] " & _
"FROM tblevidencija Where datum Between " & DateCri(Datum_od) & " And " & DateCri(Datum_do)
End Sub
Private Function DateCri(WhText As TextBox) As String
DateCri = Format(CDate(WhText), "mm/dd/yyyy")
DateCri = Replace(DateCri, ".", "/")
DateCri = Replace(DateCri, "-", "/")
DateCri = "#" & DateCri & "#"
End Function
Option Compare Database
Private Sub pretrazi_Click()
sfrmEvidencija.Form.RecordSource = "SELECT [tblevidencija].[refBr], [tblevidencija].[Naziv], [tblevidencija].[datum] " & _
"FROM tblevidencija Where datum Between " & DateCri(Datum_od) & " And " & DateCri(Datum_do)
End Sub
Private Function DateCri(WhText As TextBox) As String
DateCri = Format(CDate(WhText), "mm/dd/yyyy")
DateCri = Replace(DateCri, ".", "/")
DateCri = Replace(DateCri, "-", "/")
DateCri = "#" & DateCri & "#"
End Function
Potpis
Ozbiljan i odgovoran mladić
možda je ovo i suviše teško za mene ali nisam uspela na osnovu ovog tvog ništa da uradim. Prosto ne radi...
Izvinjavam se, trebalo je odmah da okačim i tvoju bazu sa ovim kodom. Moraš voditi računa da uneseš regularne datume.
Pozz
Pozz
Potpis
Ozbiljan i odgovoran mladić
hvalaaa, sad ću da probam
Ja inace koristim Cdbl kod pretrage kad je datum u pitanju.
sqlupit1 = "select * from prijenos where cdbl(dat_fak)>=" & CDbl(oddatuma) & " and cdbl(dat_fak)<=" & CDbl(dodatuma)
al uvijek zaboravim da postoji between
sqlupit1 = "select * from prijenos where cdbl(dat_fak)>=" & CDbl(oddatuma) & " and cdbl(dat_fak)<=" & CDbl(dodatuma)
al uvijek zaboravim da postoji between