[ goran.c @ 20.01.2010. 15:33 ] @
| U programu koji sam stavio u prilogu imam nekoliko loših rešenja napr. kada treba da se štampa listing uplata ako ih ima onda to program korektno odradi međutim ako ih nema ja bih da se objavi poruka da nema uplata kao i da prilikom unosa broja indeksa ako je netačan pojavi se poruka da je unos ne ispravan i pokušati ponovo u prilogu postavljam program koji je do sada urađen pa ako neko ima rešenje neka to ispravi ( a po mogućstvu objasni i nama ostalima šta treba da se uradi ) mislim da tema nije loša a i mnogima bi rešilo sličan problem Pozdrav svima
|
[ Trtko @ 20.01.2010. 16:57 ] @
Nisam gledao tvoj program, ali možeš to riješiti i s funkcijom Dlookup()
Znači s Dlookup() funkcijom pogledaš da li postoje podaci u tvojoj tablici i ako postoje
pustiš report
[ goran.c @ 20.01.2010. 17:19 ] @
Do sada nikada nisam radio sa Dlookup() funkcijom pa ako ti to ne predstavlja neki problem bio bih ti zahvalan da mi detaljnije objasniš gde da je postavim i sl........
[ mita.j @ 20.01.2010. 18:51 ] @
Pogledaj formu frmNacinPregleda i prati šta je odrađeno.Nadam se da će ti odgovarati.
[ goran.c @ 20.01.2010. 19:17 ] @
Funkcionise OK ali mislim da bi jos bolje bilo kada bi se napisao kod u on open ili no data report slican ovome koji si ti ovde iskoristio , a mozda bi moglo i u query iz koga se radi izvestaj da se zada kriterijum
[Ovu poruku je menjao goran.c dana 20.01.2010. u 20:39 GMT+1]
[ mita.j @ 20.01.2010. 21:13 ] @
A jel ovo odgovara?
izvini pukla veza
[Ovu poruku je menjao mita.j dana 20.01.2010. u 22:38 GMT+1]
[ goran.c @ 20.01.2010. 21:25 ] @
ne vidim šta nema prikacenih fajlova
[ goran.c @ 21.01.2010. 06:15 ] @
To je to majstore odlično rešenje ali imamo jedan propust sklanjanjem iz querya kriterijuma broja indeksa sada kada otkucamo broj indeksa koji postoji on izbaci sve indekse koji su imali uplate, ( kod ne postojećeg broja odlično funkcioniše svaka čast ) a u zaglavlju stalno stoje podaci za br indeksa 1
[ mita.j @ 21.01.2010. 17:52 ] @
U pravu si,žurio sam.Evo ovo bi trebalo da završi posao.
[ goran.c @ 21.01.2010. 18:32 ] @
Hvala ti puno rešio si moj problem . Imam još jedan problem u okviru programa pa ako si voljan a već si u toku šta sam radio možeš da mi pomogneš, naime u formi ( frm Student ) u poljima ukupno zaduženje ( gore desno zeleno ) i saldo gore (desno crveno ) kada imam nekih uplata i sl on dobro računa međutim kada nema m promena ono stoji error umesto brojke 0
Još jedan put hvala
[ Trtko @ 21.01.2010. 20:49 ] @
nemam access 2007 pa nemogu vidjeti
taj problem rijesis sa NZ funkcijom
znaci u ono polje gdje ti ispisuje error stavis
=NZ(poljeiztablice,0)
znaci NZ funkcija ako ti je u tom polju NULL ili prazno ispise ili vrati u to polje 0 ili ono što ti staviš, bilo što 0,1,2...
a ako je polje string možeš staviti i neki tekst, pa bi to izgledalo ovake
=NZ(poljeiztablice,"Nema podataka")
Pozdrav
[ goran.c @ 21.01.2010. 20:58 ] @
Neato slično sam uradio ali ne funkcioniše evo program je konvertovan u 2003 , grešim negde
[ smal @ 21.01.2010. 21:16 ] @
Za Error poruku ne pomaže NZ. Treba da stoji nešto u stilu:
Code: =IIf(IsError(Forma.Form!txtPolje);0;Forma.Form!txtPolje)
Ako koristiš engleska reg. setovanja, onda ide , umesto ;
[ goran.c @ 21.01.2010. 21:27 ] @
gde misliš da bi trebao da postavim kod koji si napisao , a imaš i prikačene fajlove pa isprobaj i sam kako funkcioniše , pozdrav
[ mita.j @ 21.01.2010. 21:34 ] @
Ima dosta problema u samim nazivima polja,jer ima razmaka u njima,a to nije dobro.Evo ja sam ti odradio da se na OnCurrent forme proverava da li postoji IDSkolarine,ako nema onda Control Source polja Ukupna Zaduzenja je prazan,a ako postoji onda ono tvoje što si već naveo.Imaćeš malo problema da pronađeš sve objekte koji zavise od Query Zaduzenja,da ispraviš umesto Broj Indexa staviš BI.Nemam vremena da sada to odradim.Odeš samo na Object Dependecies i vidiš gde sve je potrebno to odraditi.Nadam se da sam ti pomogao.
A evo ti i rešenja koje je kolega smal poslao.Mislim da ti je ono lakše da odradiš,ali izaberi sam.Pozdrav
[Ovu poruku je menjao mita.j dana 21.01.2010. u 22:44 GMT+1]
[ goran.c @ 21.01.2010. 21:44 ] @
kada sam počeo da je pravim krenuo sam sa ovakvim nazivima polja kada sam uočio da ima razmaka već je bilo kasno , probaću da ispratim šta si uradio ( ali opet nema prikačenog fajla ) nije mi hitno ako ne uradim a budeš imao vremena kasnije ti ga ispravi , ali mi nije jasno da neće da funkcioniše sa nz , mislim ideja je prosta ako nema vrednosti u polju postavi nulu ali sve što sam do sada probao nije radilo , tebi još jedan put hvala za sve što si mi do sada pomogao......pozdrav
[ mita.j @ 21.01.2010. 21:50 ] @
Ma imam problema sa ovim Wirelessom,a što se tiče Citat: tebi još jedan put hvala za sve što si mi do sada pomogao. nema na čemu.
[ smal @ 21.01.2010. 21:51 ] @
Citat: goran.c: gde misliš da bi trebao da postavim kod koji si napisao , a imaš i prikačene fajlove pa isprobaj i sam kako funkcioniše , pozdrav
Pa tamo gde si rekao :) FormStudent, gore desno, zeleno i crveno...
Code: =IIf(IsError([QueryZaduzenje subform].[Form]![ZbirZaduzenja]);0;[QueryZaduzenje subform].[Form]![ZbirZaduzenja])
[ goran.c @ 21.01.2010. 22:20 ] @
Evo ispravio sam i sada funkcioniše , upisao sam kod koji je napisao smal i sada funkcioniše bez problema ( a taj isti kod sam našao i onome što si ti Mito uradio ). hvala vam puno nastaviću sa radom oko prijavljivanja za rad ( logiranja , gde ću imati problem , jer to nisam do sada radio ) i oko još nekih izveštaja i analitičke kartice pa ću opet to prikačiti hvala svima koji su mi pomogli a mislim i onima koji su pratili i prate ovu temu a može se podvesti pod ˝ ono što niste znali a niste smeli da pitate ˝, ako zapnem evo me opet ovde................Pozdrav
[ goran.c @ 30.01.2010. 09:10 ] @
Program na kome sam radi u značajnoj meri sam unapredio i doveo do željenog nivoa, imam par nedoumica oko izveštaja a koje ne bih hteo da rešavam sa zadavanjem kriterijuma u query već na osnovu input boxa , kod izveštaja studenti za zadati smer i generaciju ( to se nalazi u frmizvestaji na proceduri on click dugmeta Spisk dtudenata za zadati-------) u input boksu postavljen je upit koji smer i to funkcioniše hteo bih da ako je tačan smer postavi upit i za generaciju pa da ga onda kao takvog prikaže( dakle šostavlja pitanje koji smer pa ako je tačno koju generaciju i ako je tačno prikaz izveštaja rptStudentiSmer Generacija), ako neko ima još neku ideju naročito oko poslovanja ili finansiskih izveštaja koje ja nisam uzeo u obzir ,
U prilogu sam postavio program koji je do sada urađen
[Ovu poruku je menjao goran.c dana 31.01.2010. u 07:12 GMT+1]
[ SLOJ.1973 @ 01.02.2010. 10:06 ] @
Meni se ne sviđa ovaj način unosa generacije,smera,indexa i ostalog jer kako će neko da zna koji smer postoji,da li je pisan malim ili velikim slovima,koja generacija, index i ostalo.Bolja varijanta je da klikom na svaku od ovih kontrolnih dugmadi pokrećeš posebne forme koje će imati combo box-ove za biranje svega ovoga što sam naveo.Ali nema veze,možda se tebi ovo dopada pa sam ti i odradio ono što želiš.Pogledaj primer.Pozdrav.
[ goran.c @ 02.02.2010. 06:04 ] @
Hvala za pomoć , funkcioniše ok,(MsgBox "Doslo je do greske prilikom unosenja kriterijuma", vbCritical, "stop!" ne pojavljuje se usled greske ) ali ja sam i rekao ako neko ima neko rešenje koje je po njegovom mišljenju bolje ( ili neku ideju oko finansija što ja nisam uzeo u obzir a bilo bi bitno za praćenje na pr. finansijskog poslovanja škole za tekuću godinu i sl. ) neka sllobodno odradi i napiše da svi oni koji prate forum mogu to da isprate. Možda nije bilo loše da kada se izvrši pogrešan unos i prijave greške ide na upit da li želi ponovni unos i pa na input box u fokus ili odmah na input box u fokus .Hvala i pozz.
[Ovu poruku je menjao goran.c dana 02.02.2010. u 09:33 GMT+1]
[ SLOJ.1973 @ 02.02.2010. 16:19 ] @
Evo ovo bi moglo da zadovolji tvoje potrebe.
[ SLOJ.1973 @ 02.02.2010. 16:48 ] @
Da se ne bi vrteo u krug dok ne zadaš smer koji postoji evo ti primer novi.Srećno.
[ goran.c @ 03.02.2010. 05:57 ] @
Ova druga varijanta funkcioniše OK, hvala na trudu i rešenju, ostalo mi je još da za određenu godinu i smer ( a može i generaciju ) napravim finansijsko poslovanje i ukupno poslovanje škole za određenu godinu, to bih vrlo lako rešio upitima u query međutim to bih izbegao ja ću to i odraditi verovatno preko input boxa i opet zadavanja određenih parametara ( a već i radim na tome ) , međutim ako neko ima bilo kakvu svoju ideju oko toga neka napravi izveštaj u frmIzveštaj, možda sam ispustio i nešto važno u okviru baze nisam napravio neku formu ( a bilo bi dobr da jesam ) i sl pa molim za sugestiju, hvala i pozz
[ goran.c @ 07.02.2010. 05:27 ] @
Od zadnjeg posta na programu sam napravio još izmena i kao ideju imam finansijski izveštaj za određenu generaciju i smer za zadati period ( ili samo izvestaj za zadati period ) što opet ne bih radio u query a ali da se uzme u obzir netačan unos datuma ( poruka o grešci ) i pitanje ponovnog unosa pri grešci.......Ako neko ima ideju neka ovo uradi u frmIzvestaj. Pozz
[ Trtko @ 07.02.2010. 10:13 ] @
Evo napravio sam ti jedan report koji moze i ovako izgledati
Sto se tice samih parametara koji su ti potrebni za liste, ja imam praksu da ih
stavim na formu gdje su dugmad za razne liste.
Pocetni datum pregleda:
Zavrsni datum pregleda:
Broj indeksa:
..... itd ... pa na sam klik dugmeta prvo provjerim da li su unešeni parametri koji su potrebna za query a ako ne
javim poruku da nije unešen datum_zavrsni i posaljem fokus na datum_zavrsni.setfocus(), ako da pozove listu
[ goran.c @ 09.02.2010. 06:17 ] @
OK bilo je malo bezobrazno od mene da mi neko napravi izveštaj , evo ja sam napravio izvestaj ( PregledUplataPeriod) koji se poziva preko dugmeta Pregled uplata za period iz forme frmIzvestaji ( dakle hteo sam kao što sam ranije i rekao da izbegnem query - ali ja tu i imam problem kako da rešim i tražim pomoć ) trebalo bi napisati proceduru ( on click ) u kojoj će operater zadati period za koji traži izveštaj i da se to pojavi u zaglavlju izveštaja, ali eliminisati mogućnost pisanja netačnih datuma, slova, nasumice brojeva i sl.( pogrešnog unosa podataka ) u prilogu osrtavljamdo sada urađen program, takođe bih uradio izveštaj o poslovanju gde bi operater zadao godinu a samo bi se pojavilo ukupno zaduženje, razduženje i saldo za zadatu godinu, zahvalio bih se trtku, ideja sa grafom nije looša ali bi bilo bitno da se na neki način zada godina, mesec ili period za koji se radi graf jer je program mnamenjen za višegodišnju upotrebu sa velikim brojem izmena i unosa, evidentno da sam napravio neke greške koje je sada kasno ispraviti alisam ih uočio ( dugo nisam radio u Accessu pa se zaboravlja )
[ SLOJ.1973 @ 10.02.2010. 14:53 ] @
Evo ja imao malo vremena pa sam se pozabavio tvojim izveštajem.Nadam se da ti odgovara.
[ goran.c @ 11.02.2010. 08:56 ] @
Hvala SLOJ to je upravo ono što sam želeo, program sam skoro završio i sada hoću da uradim još nešto što ne spada u ovu temu ali se nadam da će mi neko pomoći, naime u Accessu 2003 znam da napravim svoj meni da li neko može da mi objasni ( korak po korak ili neki tutorijal) kako to da uradim u Accessu 2007 ( da imam štampaj, i kraj na pr a da se meni zove na pr.akademija ), takođe bih želeo da vremebnski ograničim program da se koristi do 31.12.2010 i da ga pretvorim u exe fajl ( ili da se ne pokreće u ofice okruženju ) , znam da je ovo previše pitanja koja se ne slažu sa temom ali sam unapred zahvalan svima koji mi pomognu, Program sam postavio da se pokreće klikom na frmStart i korisnik Ćurčić Goran , password 1
[ goran.c @ 14.02.2010. 15:49 ] @
U međuvremenu sam program priveo kraju i uradio sam još dosta toga na njemu , međutim imam problem kada sam iskopirao frmPregledi koju mi je dao SLOJ ona mi ne funkcioniše dobro, tačnije dozvoljava mi da ne ukucam ni jedan datum a on izbaci izveštaj to u formi koju je on uradio funkcioniše ali mi ne prikazuje listing uplata i analiticku karticu prijavljujući gresku kod makroa ili VB, evo ja sam u prilogu postavio program na kome sam uradio i meni ostalo je da se dorade još neke sitne stvari oko dizajna i povezivanja tastera promena passworda sa formom radnici sa komandnom tablom, dakle radi se o formi frmPregledi ( vb KOD KOJI SE NALAZI NA DUGMETU PREGLED ) koja se aktivira iz frmIzvestaji pritiskom na dugme Pregled uplata za period
[Ovu poruku je menjao goran.c dana 15.02.2010. u 19:29 GMT+1]
[Ovu poruku je menjao goran.c dana 15.02.2010. u 19:30 GMT+1]
[ goran.c @ 16.02.2010. 16:43 ] @
Ovo je verzija skoro gotovog programa ali i dalje nisam uspeo da rešim problem koji sam već naveo u prethodnom post, nadam se da će mi neko sada pomoći oko toga
[ SLOJ.1973 @ 17.02.2010. 07:52 ] @
Jel ovo to što tražiš?
[ goran.c @ 17.02.2010. 08:26 ] @
Sloj vidi i ovde na ovome što si uradio javlja se ista greška naime kada staviš bilo kojio raspon datuma on izbacuje sve podatke, našao sam rešenje , problem je bio u tom što su dva izveštaja koristila isti query ( queryListingUplata) u kome jedan bio bez kriterijuma a drugi ne pa je uvek radio samo jedan, to sam ispravio i postavio sam ( i napravio noovi query UplataPeriod sa kriterijumom ) datoteku koja je ispravljena a reci mi da li je moguće i kako vremenski ograničiti program do napr. 31.12.2010 gde bi i koji vb kod trebalo da se upiše pretpostavljam date manji ili jednak datumu 31.12.2010, i reci mi kako bi ti rešio poslovanje za zadati period samo ukupne vrednosti i šta bi još dodao a ovde nije urađeno. Problem (mali) se javlja i kod brisanja zapisa urednosam postavio vbyes/no i funkciniše ali kada pritisnem yes dobijam upozorenje od accessa da izbrisani zapis ne može biti vraćen kako izbaciti ovu poruku.....................Još jedan put hvala
[Ovu poruku je menjao goran.c dana 17.02.2010. u 09:47 GMT+1]
[ SLOJ.1973 @ 19.02.2010. 21:22 ] @
Na OnLoad StartUp forme staviš proveru da li je današnji datum veći od željenog(recimo 31/12/2010),pa ako jeste postaviš poruku da je istekao vremenski period korišćenja programa i zatvoriš ga,a ako nije nastavlja dalje sa radom.Nešto ovako: Citat: If Date>#31/12/2010# then
msgbox "Nemate pravo korišćenja programa.Obratite se Administratoru!",vbCritical,"Istekao period korišćenja programa"
docmd.quit
else
end if .A što se tiče poruke,kaži samo na kojoj formi se javlja,da ne lutam.
[ goran.c @ 20.02.2010. 17:18 ] @
U formama FormUplate i FormZaduzenje kada se brise zapis postavlja se pitanje da li brisete ili ne kada se odgovori sa yes onda access šalje svoju poruku, i treba mi jos jedan izvestaj koji bi dao samo zbirno zaduzenje , razduzenje ( poslovanje ) na godišnjem nivou i da zatvorim program znam da treba da se uradi preko run time da li ima neko bolje rešenje i kako da se to uradi preko run time ako je to najbolje
[ Getsbi @ 20.02.2010. 19:16 ] @
Oko slanja Access-ovih poruka nakon brisanja, moguće je da ti VBA kod nije na pravi događaj.
Kod bi trebalo na događaj Before Del Confirm da izgleda otprilike ovako:
Code: Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
If MsgBox("Dali ste sigurni da zelite da obrisete partnera", vbYesNo, "Paznja") = vbNo Then
Cancel = True
Else
Response = acDataErrContinue
End If
End Sub
Ili na početku procedure brisanja postaviti: DoCmd.SetWarnings False
a na kraju procedure ponovo uključiti Access poruke sa: DoCmd.SetWarnings True
Ukloniti se može samo na nivou sistema: Tools -> Options ->Edit/Find ->Confirm
Ovo oko izveštaja nisam gledao.
[ goran.c @ 20.02.2010. 19:53 ] @
OK pokušao sam oba načina i funkcionišu ali kada ih obrišem u combo boxu nse javi #deleted pa tek kada izađem iz izveštaja i ponovo ga pokrenem on onda izgubi to #deleted a kada je pitanja ˝ da li ste sigurni da želite da obrišete partnera ˝ ako je odgovor no on pojavljuje The run command was canceld ( imaš gore zapakovanu bazu ) i to se događa u komandnoj tabli se uđe ili na uplate ili zaduženja
[ Getsbi @ 20.02.2010. 20:23 ] @
U vezi #Deleted, posle brisanja napiši Me.Requery.
[ goran.c @ 20.02.2010. 21:26 ] @
Gde da upišem ?
[ Getsbi @ 21.02.2010. 05:57 ] @
Me.Requery obnavlja formu. Ako koristiš brisanje iz VBA koda onda recimo ovako:
Code:
CurrentDb.Execute "DELETE * FROM [Tvoja_tabela];"
Me.Requery 'obnavlja formu
Ako je u nevezanom polju na formi (recimo tvoj combo box) onda ovako:
Code:
Private Sub TvojComboBox_AfterUpdate()
Me.Requery 'obnavlja formu
End Sub
[ goran.c @ 21.02.2010. 06:13 ] @
Oko gluposti mi je stao mozak i ništa, radi se o combo boxu gde već imam kod
Private Sub Combo17_AfterUpdate()
Dim Rs As Object
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[IDUplate] = " & Str(Me![Combo17])
Me.Bookmark = Rs.Bookmark
IDUplate.SetFocus
Combo17.Value = ""
End Sub
Dodao sam Me.Requery 'obnavlja formu ispod Me.Bookmark = Rs.Bookmark ali mi ne funkcioniše
[ Getsbi @ 21.02.2010. 06:28 ] @
Evo sad sam otvorio tvoj fajl. Posmatraš pogrešno mesto. Brisanje ti se odvija ispod dugmeta za brisanje (Command8 na njegov događaj On Click). Pokušaj da ispod reda:
DoCmd.RunCommand acCmdDeleteRecord odaš Me.Requery .
Obavezno uključi Option Explicit u VBA kod i izkompajliraj ga kako bi uočio i ostale greške. Pre svega varijable koje nisi definisao.
Blokiraj: Private Sub Combo12_NotInList(), pošto ne radi.
[ goran.c @ 21.02.2010. 06:58 ] @
Treba mi jedno rešenje koje ne spada u ovu temu, kao prilog ima baza koju sam poslao u prethodnim postovima evo o čemu se radi u FormUplate, i FormZaduzenje kod vrednosti kursa mi ne prihvata vrednost na pr.93,4231 nego zaokružuje na 93,00 i ako sam postavio 4 decimalna mesta onda piše 93,0000 da li neko ima rešenje ......................
[Ovu poruku je menjao goran.c dana 22.02.2010. u 18:22 GMT+1]
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|