Vidi, to sa upisivanjem datuma u Textbox kontrolu je prilično nezgrapno rešenje, jer se od korisnika očekuje da unese tačan format, a textbox dozvoljava unošenje bilo čega.Recimo, probaj da uneseš u textbox datum na ovaj način 11/04/2005, i to bi trebalo da radi.Zato mislim da je bolje da umesto textbox-a za unos traženog datuma koristiš maskedbox kontrolu kojoj možeš da odrediš tačno određen format koji se očekuje od korisnika.Drugo rešenje bi bilo da staviš tri textboxa, jedan za dan (Text2), jedan za mesec (Text3) i jedan za godinu(Text4) i onda promeniš funkciju, jer po meni je bolje rešenje proslediti datum kao argument , nego ga vući sa druge forme.Znači, probaj funkciju u modulu da postaviš ovako:
Code:
Public Function SumaKolone(polje As String, datum As Date)
Dim baza As Database
Set baza = OpenDatabase([putanja do baze])
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM tblNeka WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function
A onda iz koda pozivaš ovako
Code:
Dim datum As Date
datum = Text3.Text & "/" text2.Text & "/" & Text4.Text
Text1.Text = SumaKolone("Zbir", datum)
ili ako koristiš Maked Edit Box kontrolu, onda samo
Code:
Text1.Text = SumaKolone("Zbir", MaskedBox1.Text)
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti