[ sanos_a @ 17.05.2011. 08:30 ] @
Pozdrav forumasi
ja sam iz Makedonija, pisacu vam na srpskog jezika ali mi ne zamerite ako je losi :)
Radim jedan program za blagajnu i hocu (ali ne znam kako) da uradim da mi trazi kroz bazu kad upisem ime i prezime i odredjeni datum. Probao sam da resim to na sledeci nacin:
Private Sub Command51_Click()

Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"
If Not IsNull(Me.txt_Imeprezime) Then
strWhere = strWhere & "([ImePrezime] = """ & Me.txt_Imeprezime & """) AND "
End

Na ovaj nacin ne daje greske ali i ne radi :(
Molim vama za mala pomoc.
[ sanos_a @ 17.05.2011. 13:46 ] @
evo sta sam uradio
ako je lakse da se uradi sa query onda nek bude tako
[ SLOJ.1973 @ 17.05.2011. 16:42 ] @
Evo,malo sam ispravio tvoju formu.Pogledaj jel' odgovara.Pozdrav.
[ SLOJ.1973 @ 17.05.2011. 18:39 ] @
A evo pomuću upita i makroa.Ovo je elegantnije.Pozdrav još jednom.
[ sanos_a @ 18.05.2011. 08:11 ] @
hvala puno SLOJ.1973
nego jel mi mozes objasniti kako si to uradio?
hlava jos jednom
[ SLOJ.1973 @ 18.05.2011. 08:24 ] @
Napravis upit QryZaduzivanje nad tabelom tblZaduzenja i u njemu u polje Criteria za ImePrezime stavis svoj kombo box sa forme ono [Forms]![frm_Zadolzuvanje]![txt_Imeprezime],a u polje Criteria za Datum stavis Between [Forms]![frm_Zadolzuvanje]![txt_dataod] And [Forms]![frm_Zadolzuvanje]![txt_datado].Sada napravis macro tako sto u polje Action izaberes ApplyFilter,a dole u polje Filter Name izaberes taj upit (QryZaduzivanje).Na dogadja AfterUpdate komboboxa ya izbor vozaca na formi postavis Macro1 i to je to.
[ sanos_a @ 18.05.2011. 08:44 ] @
hvala sloj jos jednom
treba da uradim i jos nesto pa ako imam problema opet cu traziti pomos
[ sanos_a @ 03.06.2011. 11:45 ] @
Pojavio mi se jedan problem koi sam ja uradio.
Isklucio sam u Startup prozor Display database window i Allow full menus.
Kako da ih vratim da ih ponovo vidim jer treba da uradim jos neke stvari?
[ SLOJ.1973 @ 03.06.2011. 13:53 ] @
Prilikom otvaranja baze drzi pritisnut taster SHIFT.