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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.