Centar za edukaciju-BiH



Warning: filesize(): stat failed for uploads/topics/Primjer_2.zip in /home2/icentarb/public_html/icentar/showtopic.php on line 406
Stranice (2):1,2

#11 16.05.2013 09:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 16.05.2013 10:24
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Promjena naziva labela
Hvala na ovim sugestijama. proči ću sve ove točke i nastojati to ispraviti.
Pozdrav
↑  ↓

#13 16.05.2013 13:05
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 16.05.2013 13:08 od strane pmiroslav. ↑  ↓

#14 16.05.2013 13:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#15 16.05.2013 20:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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:
Informacije o tipu datoteke za:zip  Primjer_2.zip
Preuzimanja:11
Velicina datoteke: Bajt


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 17.05.2013 08:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Primjer_3.rar
Preuzimanja:313
Velicina datoteke:48.23 KB


Pozdrav
↑  ↓

#17 17.05.2013 09:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Promjena naziva labela
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub PartnerID_AfterUpdate()
  2. Dim R As Integer
  3. Me.StovaristeID.RowSource = Me.StovaristeID.RowSource
  4. R = Me.StovaristeID.ListCount
  5. If R = 0 Then
  6. Me.StovaristeID.Visible = False
  7. Else
  8. Me.StovaristeID.Visible = True
  9. End If
  10. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 17.05.2013 10:07
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Promjena naziva labela
Odlično!
Hvala još jednom
Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 51 pm.