Pomoc oko coda...

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.

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

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski