[ Luciano977 @ 31.12.2006. 15:29 ] @
Trebam pomoc oko rjesavanje sljedeceg problema. Za seminarski trebam napraviti bazu podataka za obracun placa. Dosao sam do dijela kada trebam napraviti formu za unos evidencije rada zaposlenika.

Forma ima sljedeca polja: IDEvidencija, Mjesec, Godina, VrijednostBoda, IDZaposlenik, ImeZaposlenika, PrezimeZaposlenika, RedovnoSati, RedovnoDana, Prekovremeno, Vikend.

Zelim kada korisnik unese vrijednosti u polja Mjesec, Godina i VrijednostBoda (znaci za koji se mjesec obracunava placa, koja godina i kolika je vrijednost boda za taj mjesec), da se ona recimo zakljucaju i da se vrijednosti koje je unio automatski ponavljaju svaki put kada korisnik unosi podatke o evidencijama rada zaposlenika.

Naravno kada zatvori formu i ponovo je otvori, korisnik ima mogucnost da ponovo unese podatke za Mjesec, Godinu i VrijednostBod.

Prepostavljam sa se ovo kodira s AfterUpdate?

Unaprijed se zahvaljujem.
[ Getsbi @ 31.12.2006. 16:00 ] @
Private Sub VrijednostBoda _AfterUpdate()
Me![VrijednostBoda ].DefaultValue = Me![VrijednostBoda] ' (ponavlja vrednost svaki sledeci put)
Me![VrijednostBoda ].Enabled = False ' a može i Me![VrijednostBoda].Locked = True (zakljucava polje)
End Sub
[ Luciano977 @ 31.12.2006. 16:52 ] @
E to je ono sto hocu da radim...

Ali jedno pitanje, zasto....

Kada unesem Me![VrijednostBoda].Locked = True radi. Zakljucavanje polja radi bez problema.

Ali ovo s Me![VrijednostBoda ].Enabled = False ne radi.

Ako moze, nakon sto jedanput unesem (objasnim korak po korak: unosim mjesec, pa godina, vrijednost, IDZaposlenika, redovno sati, redovno dana, prekovemeno, vikend), e sada sljedeci record da mi preskoci mjesec, godina i vrijednostBoda znaci ide na IDZaposlenika, i tako loop do kraja unosa za taj mjesec.

Ovaj kod Me![VrijednostBoda ].Enabled = False bi bio super, al eto ne stima nesto.

Iako e![VrijednostBoda].Locked = True ovaj radi bez greske, ali htio bih ako mogu da preskocim ovih nekoliko nepotrebnih entera prilikom unosa.

Hvala

[ Getsbi @ 01.01.2007. 09:45 ] @
Probaj da napišeš nešto tipa :


Private Sub PrvoPolje _AfterUpdate()
If Me![DrugoPolje].Locked = True And Me![TrecePolje].Locked = True And.......
Me![PetoPolje].SetFocus
Endif
End Sub

Time ćeš posle zaključavanja uvek otići na željeno polje. Nisi mi napisao šta ne radi kod Me![VrijednostBoda ].Enabled = False . Koja greška se javlja ili kako se program ponaša.
[ Luciano977 @ 01.01.2007. 15:21 ] @
Javljala se greska oko focus-a. Isprobavao sam razne kombinacije i na kraju mi je uspjelo.

Code izgleda ovako:


Private Sub Mjesec_AfterUpdate()
Me![Mjesec].DefaultValue = Me![Mjesec]
Me![Godina].SetFocus
Me![Mjesec].Enabled = False

End Sub

Private Sub Godina_AfterUpdate()
Me![Godina].DefaultValue = Me![Godina]
Me![VrijednostBoda].SetFocus
Me![Godina].Enabled = False

End Sub

Private Sub VrijednostBoda_AfterUpdate()
Me![VrijednostBoda].DefaultValue = Me![VrijednostBoda]
Me![IDZaposlenik].SetFocus
Me![VrijednostBoda].Enabled = False

End Sub


Sada radi sve lijepo. Hvala ti na pomoci.

Imati su ja jos upita dok ne rijesim ovaj seminarski i polozim ispit :)