[es] - Pomoc oko coda...

Luciano977

Član broj: 127783
Poruke: 7
*.tel.net.ba.

Profil

^{31.12.2006. u 15:29 - pre 210 meseci}

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.

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Pomoc oko coda...

^{31.12.2006. u 16:00 - pre 210 meseci}

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

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

Odgovor na temu

Luciano977

Član broj: 127783
Poruke: 7
*.tel.net.ba.

Profil

Re: Pomoc oko coda...

^{31.12.2006. u 16:52 - pre 210 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Pomoc oko coda...

^{01.01.2007. u 09:45 - pre 210 meseci}

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.

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

Odgovor na temu

Luciano977

Član broj: 127783
Poruke: 7
*.tel.net.ba.

Profil

Re: Pomoc oko coda...

^{01.01.2007. u 15:21 - pre 210 meseci}

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 :)

Odgovor na temu