Predmet:Re: Baza za proizvodnju

---

Ne ja sam napravio Kod za sifre.
Eto to je to sto smo preskocili dosta toga. Nismmo definisali sifre pa sam ja napravio kod da sam upisuje sifru.
kako si vidio svugdje sam ostavio i 9 polja za sifru. Znaci u aplikaciji treba predvidjeti da se sifre same unose gdje god je to moguce a ne da unosi korisnik.
U pravu si sto se tice greske. Nisam ja to poslije ni probao.
Kao sto sam naveo vjerovatno jos fali koda za generisanje sifri negdje.
Umjesto
I = Rs.Fields(0)
Upisi
I = Val(Mid(Rs.Fields(0), 2))
Trebalo bi ici po redu.
Treba napraviti formu operatora te u nju unijeti magacionere operatore u programu one koji zaduzuju itd.
Onda napraviti Formu artikala itd.
Znaci prvo idu forme od tabela koje imaju prefiks K_.
Kako si vidio kroz meni podize formu sa drugacijim bojama to rjesavas ovdje:

'------------------------------------Način otvaranja forme---------------------------------------------
--
Select Case Grupa
Case 1 'Forma samo za upis Nevidi heder forme
Set Frm = Forms(ImeO)
'Frm.FormHeader.Visible = False
With Frm
.RecordSelectors = False
.NavigationButtons = True
'.VrstaPID.Visible = False
.DataEntry = True
End With
Frm.Picture = "(none)"
Frm.InsideHeight = Frm.Detail.Height
'Frm.FormFooter.Height = 10
'Frm.FormHeader.Height = 0
Frm.Detail.BackColor = 14737890 ' boja
Frm.ScrollBars = 0
DoCmd.MoveSize 3500, 0 ' gdje ce se otvoriti

procedura otvori.

---