iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	16.05.2013 11:24
Predmet:Re: Promjena naziva labela Hvala na ovim sugestijama. proči ću sve ove točke i nastojati to ispraviti.

pmiroslav	16.05.2013 14:05
Predmet:Re: Promjena naziva labela Citiraj zxz: Mozda je ovo samo primjer koji je nabrzinu napravljen ali na njemu ima mnostvo manjkavosti. Ovdje dolazi i ona prica da se u accessu moze napraviti program za jedno popodne. I pita se moze napraviti od svacega samo je pitanje dali se moze jesti. Nije ovo program napravljen na brzimu. Radim ga već godinama, ali korisnici stalno neÅ¡to zahtjevaju pa ga dorađujem. SlaÅ¾em se sa svim tvojim primjedbama i več sam večinu toga popravio. Zapeo sam na sugestiji broj 5 (promjena boje forme ovisno o vrsti dokumenta). Napravio sam jednu malu formu sa tri dugmeta sa kojima bi otvarao frmDokumenti i sada je problem kako mjenajti boju i kako zadati defaultnu vrijednost za combo IDdokumenta: napisao sam ovako ali dobivam greÅ¡ku: Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmDokumenti" DoCmd.OpenForm FormName:=stDocName _ , dataMode:=acFormAdd Forms!frmDokumenti!IDdokumenta.value=1 'OVO RADI Forms!frmDokumenti.BackColor = 65535 'OVO JAVLJA GREÅ KU

pmiroslav

16.05.2013 14:05

Predmet:Re: Promjena naziva labela

Citiraj zxz:

Mozda je ovo samo primjer koji je nabrzinu napravljen ali na njemu ima mnostvo manjkavosti.
Ovdje dolazi i ona prica da se u accessu moze napraviti program za jedno popodne.
I pita se moze napraviti od svacega samo je pitanje dali se moze jesti.

Nije ovo program napravljen na brzimu. Radim ga već godinama, ali korisnici stalno neÅ¡to zahtjevaju pa ga dorađujem.
SlaÅ¾em se sa svim tvojim primjedbama i več sam večinu toga popravio.
Zapeo sam na sugestiji broj 5 (promjena boje forme ovisno o vrsti dokumenta).
Napravio sam jednu malu formu sa tri dugmeta sa kojima bi otvarao frmDokumenti i sada je problem kako mjenajti boju i kako zadati defaultnu vrijednost za combo IDdokumenta:
napisao sam ovako ali dobivam greÅ¡ku:

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDokumenti"
DoCmd.OpenForm FormName:=stDocName _
, dataMode:=acFormAdd
Forms!frmDokumenti!IDdokumenta.value=1 'OVO RADI
Forms!frmDokumenti.BackColor = 65535 'OVO JAVLJA GREÅ KU

pmiroslav	16.05.2013 14:28
Predmet:Re: Promjena naziva labela Guglajući sam u međuvremenu rijeÅ¡io problem sa orms!frmDokumenti.Section(acDetail).BackColor = "15714765" sada mi joÅ¡ ostaje gdje da stavim ono za generiranja broja dokumenta, Me.BrojDok = BrojDokumenta(Prefix) poÅ¡to je to bilo na IDdokumenta After update, a toga događaja sada nema

pmiroslav

16.05.2013 14:28

Predmet:Re: Promjena naziva labela

Guglajući sam u međuvremenu rijeÅ¡io problem sa
orms!frmDokumenti.Section(acDetail).BackColor = "15714765"
sada mi joÅ¡ ostaje gdje da stavim ono za generiranja broja dokumenta,
Me.BrojDok = BrojDokumenta(Prefix)

poÅ¡to je to bilo na IDdokumenta After update, a toga događaja sada nema

zxz	16.05.2013 10:36
Predmet:Re: Promjena naziva labela Mozda je ovo samo primjer koji je nabrzinu napravljen ali na njemu ima mnostvo manjkavosti. Ovdje dolazi i ona prica da se u accessu moze napraviti program za jedno popodne. I pita se moze napraviti od svacega samo je pitanje dali se moze jesti. Primjedbe: --1--- Zasto pri unosu novog skladisnog dokumenta moras listati po starim. Eto da kazemo da je to brze zgodnije itd. Mozda i jeste do nekih pedesetak dokumenata a poslije nicemu ne sluzi jer bi se ubio listajuci. Ako pak zelis da vidis dokumenta onda napravi data sheet podformu sa pretragom ispod ovog unosa a unos neka bude data entry. --2-- Zasto u broju dokumenta imamo znak . Znamo da je djoker pa bi u neko doba moglo doci i do problema. Evo kada pravimo pretragu napisat cemo like a tada ce ova zvjezdica znaciti bilo sta dalje od nje. Po meni bolje je bilo ovaj prefiks upisati u kodnoj tabeli transakcije vrsta. Znaci dodati u tabeli polje prefiks. --3-- U CmboSkladiste.rowsource upisati ovaj SQL: SELECT Skladista.IDSkladista, Skladista.NazivSkladiÅ¡ta FROM Skladista WHERE (((Skladista.IDSkladista)<>[Forms]![frmDokumenti]![Skladiste_2])) ORDER BY Skladista.IDSkladista; a na: Private Sub CmbSkladiste_AfterUpdate() Me.Skladiste_2.RowSource = Me.Skladiste_2.RowSource End Sub U Skladiste_2.rowsource ovaj SQL: SELECT Skladista.IDSkladista, Skladista.NazivSkladiÅ¡ta FROM Skladista WHERE (((Skladista.IDSkladista)<>[Forms]![frmDokumenti]![CmbSkladiste])) ORDER BY Skladista.IDSkladista; a na Private Sub Skladiste_2_AfterUpdate() Me.CmbSkladiste.RowSource = Me.CmbSkladiste.RowSource End Sub Niti nazivi nisu po nekomprincipu: Jedan naziv noci prefix kontrole a drugi je bez toga. Kada radite vecu app. to vam se obije o glavu jer se milion puta morate vratiti da vidite kako se zove odredjena kontrola. --4-- Po meni i u medjuskladisnoj transakciji mora postojati lice odgovorno za transakciju. --5-- Moj licni predlog je da se ova forma podize iz menija sa izborom sta je: Medjuskladisna otpremnica Povratnica prijemnica itd. i saki puta da bude pozadina druge boje. Ovo izgleda mnogo bolje a i teze se moze pogrijesiti. Znaci polje za izbor vrste dokumenta bi bilo nevidljivo jer bi ono bilo po defaultu upisano na osnovu opcije iz menija. --6-- Evo sad i tvoje rjesenje: Na ktraju procedure prije End Sub dodati sledeci kod: If Left(Me.BrojDok, 3) <> Prefix Then Me.BrojDok = BrojDokumenta(Prefix) End If U svim case izbrisati: Me.BrojDok = BrojDokumenta(Prefix) Zasto je ovo bilo u svim izborima case a ne van nije mi jasno.

zxz

16.05.2013 10:36

Predmet:Re: Promjena naziva labela

Mozda je ovo samo primjer koji je nabrzinu napravljen ali na njemu ima mnostvo manjkavosti.
Ovdje dolazi i ona prica da se u accessu moze napraviti program za jedno popodne.
I pita se moze napraviti od svacega samo je pitanje dali se moze jesti.

Primjedbe:
--1---
Zasto pri unosu novog skladisnog dokumenta moras listati po starim.
Eto da kazemo da je to brze zgodnije itd.
Mozda i jeste do nekih pedesetak dokumenata a poslije nicemu ne sluzi jer bi se ubio listajuci.
Ako pak zelis da vidis dokumenta onda napravi data sheet podformu sa pretragom ispod ovog unosa a unos neka bude data entry.
--2--
Zasto u broju dokumenta imamo znak *.
Znamo da je * djoker pa bi u neko doba moglo doci i do problema.
Evo kada pravimo pretragu napisat cemo like a tada ce ova zvjezdica znaciti bilo sta dalje od nje.
Po meni bolje je bilo ovaj prefiks upisati u kodnoj tabeli transakcije vrsta.
Znaci dodati u tabeli polje prefiks.
--3--
U CmboSkladiste.rowsource upisati ovaj SQL:
SELECT Skladista.IDSkladista, Skladista.NazivSkladiÅ¡ta
FROM Skladista
WHERE (((Skladista.IDSkladista)<>[Forms]![frmDokumenti]![Skladiste_2]))
ORDER BY Skladista.IDSkladista;
a na:
Private Sub CmbSkladiste_AfterUpdate()
Me.Skladiste_2.RowSource = Me.Skladiste_2.RowSource
End Sub

U Skladiste_2.rowsource ovaj SQL:
SELECT Skladista.IDSkladista, Skladista.NazivSkladiÅ¡ta
FROM Skladista
WHERE (((Skladista.IDSkladista)<>[Forms]![frmDokumenti]![CmbSkladiste]))
ORDER BY Skladista.IDSkladista;
a na
Private Sub Skladiste_2_AfterUpdate()
Me.CmbSkladiste.RowSource = Me.CmbSkladiste.RowSource
End Sub
Niti nazivi nisu po nekomprincipu:
Jedan naziv noci prefix kontrole a drugi je bez toga.
Kada radite vecu app. to vam se obije o glavu jer se milion puta morate vratiti da vidite kako se zove odredjena kontrola.
--4--
Po meni i u medjuskladisnoj transakciji mora postojati lice odgovorno za transakciju.
--5--
Moj licni predlog je da se ova forma podize iz menija sa izborom sta je:
Medjuskladisna otpremnica
Povratnica
prijemnica itd.
i saki puta da bude pozadina druge boje.
Ovo izgleda mnogo bolje a i teze se moze pogrijesiti.
Znaci polje za izbor vrste dokumenta bi bilo nevidljivo jer bi ono bilo po defaultu upisano na osnovu opcije iz menija.

--6--
Evo sad i tvoje rjesenje:
Na ktraju procedure prije End Sub dodati sledeci kod:
If Left(Me.BrojDok, 3) <> Prefix Then
Me.BrojDok = BrojDokumenta(Prefix)
End If
U svim case izbrisati:
Me.BrojDok = BrojDokumenta(Prefix)
Zasto je ovo bilo u svim izborima case a ne van nije mi jasno.

zxz	16.05.2013 21:19
Predmet:Re: Promjena naziva labela Hehe Morao sa ici na ispracaj mature. Citat: Nije ovo program napravljen na brzimu. Radim ga već godinama, ali korisnici stalno neÅ¡to zahtjevaju pa ga dorađujem. Ovaj tvoj dio je bio lijep primjer za primjedbe i ja sam to napisao. Vjerovatno da je bio neko drugi nebih ni napisao jer mislim da se nista nebi desilo ali posto si ti temeljit ti ces to pokusati implementirati i sve iznijeti na forumu. Evo ti primjer za ovo sto si trazio. Koliko znam to si skinuo unu templatu u njoj imas ovo i mnogo vise. Naravno da se tada bilo tesko snaci sa tudjim kodom ali malo po malo mislim da ces sve stici.
Prilozi: Primjer_2.zip (Velicina datoteke: Bajt)

zxz

16.05.2013 21:19

Predmet:Re: Promjena naziva labela

Hehe Morao sa ici na ispracaj mature.

Citat:

Nije ovo program napravljen na brzimu. Radim ga već godinama, ali korisnici stalno neÅ¡to zahtjevaju pa ga dorađujem.

Ovaj tvoj dio je bio lijep primjer za primjedbe i ja sam to napisao.
Vjerovatno da je bio neko drugi nebih ni napisao jer mislim da se nista nebi desilo ali posto si ti temeljit ti ces to pokusati implementirati i sve iznijeti na forumu.

Evo ti primjer za ovo sto si trazio.
Koliko znam to si skinuo unu templatu u njoj imas ovo i mnogo vise.
Naravno da se tada bilo tesko snaci sa tudjim kodom ali malo po malo mislim da ces sve stici.

Prilozi:
Primjer_2.zip (Velicina datoteke: Bajt)

pmiroslav	17.05.2013 09:48
Predmet:Re: Promjena naziva labela Puno su mi pomogle tvoje sugestije i ja sam neÅ¡to napravio po njima. Meni u ovom slučaju trebaju samo tri vrste dokumenata. MeđuskladiÅ¡na otpremnica, Povratnica i Revers, pa sam prema tome malo modificirao tvoj kod. Jedino bih joÅ¡ volio ako mi moÅ¾eÅ¡ pomoći za combo StovaristeID koje je vezamo uslovom uz combo PartnerID. dali se moÅ¾e napraviti da taj Combo StovaristeID bude nevidljiv ili Enabled=false ako odabrani partner nema stovariÅ¡ta.
Prilozi: Primjer_3.rar (Velicina datoteke:48.23 KB)

pmiroslav

17.05.2013 09:48

Predmet:Re: Promjena naziva labela

Puno su mi pomogle tvoje sugestije i ja sam neÅ¡to napravio po njima.
Meni u ovom slučaju trebaju samo tri vrste dokumenata. MeđuskladiÅ¡na otpremnica, Povratnica i Revers,
pa sam prema tome malo modificirao tvoj kod.
Jedino bih joÅ¡ volio ako mi moÅ¾eÅ¡ pomoći za combo StovaristeID koje je vezamo uslovom uz combo PartnerID.
dali se moÅ¾e napraviti da taj Combo StovaristeID bude nevidljiv ili Enabled=false ako odabrani partner nema stovariÅ¡ta.

Prilozi:
Primjer_3.rar (Velicina datoteke:48.23 KB)