[es] - promena podataka

Getsbi

Moderator
Član broj: 124608
Poruke: 2836

+45 Profil

^{05.03.2008. u 19:08 - pre 208 meseci}

Ispitaj stanje check box-a i ako je Yes (recimo da znači "proknjiženo") Koristi:
Me.AllowEdits = False
Me![Polje na formi].Locked = True

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

Odgovor na temu

minaasabac
Saša Radovanović
nezaposlen

Član broj: 174871
Poruke: 3
*.ptt.yu.

Profil

Re: promena podataka

^{05.03.2008. u 19:40 - pre 208 meseci}

Ne snalazim se se baš najbolje u kojoj opciji event forme treba da upišem kod tako da opcija Yes iz druge forme znači i zabranu promene podataka u prvoj. (U svakom slučaju hvala i na prvom odgovoru )

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2836

+45 Profil

Re: promena podataka

^{05.03.2008. u 19:52 - pre 208 meseci}

Nisam iz prvog posta razumeo da su dve različite forme u pitanju. Možda se pre radi o formi i podformi?
U svakom slučaju možeš koristiti događaj Before Update glavne forme ako je podforma ta druga. Moguće da će ti trebati referenciranje o čemu možeš da pročitaš ovde: http://www.elitesecurity.org/t221799-0#1601903

Me.[NazivPodforme].Locked = True

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

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.co.yu.

+8 Profil

Re: promena podataka

^{05.03.2008. u 20:03 - pre 208 meseci}

Recimo da se forme zovu Forma1 i Forma2 i da imaš checkbox u Formi2 koji se zove DozvoliIzmene

Za ovaj kod je potrebno da i Forma1 i Forma2 imaju modul, jer meni liči da imaš Formu i SubFormu. Kod u Formi2 bi izgledao ovako:

Private Sub DozvoliIzmene_Click()
Form_Forma1.AllowAdditions = DozvoliIzmene.Value
Form_Forma1.AllowEdits = DozvoliIzmene.Value
End Sub

Forme se mogu referencirati na više načina, ovo je jedan od njih, izabrao sam taj način jer on može da referencira form koji se nalazi kao subform u Formi2. Takođe postoji način :

Private Sub DozvoliIzmene_Click()
Application.Forms("Forma1").AllowAdditions = DozvoliIzmene.Value
Application.Forms("Forma1").AllowEdits = DozvoliIzmene.Value
End Sub

Ovaj način ne funkcioniše kada se Forma1 nalazi kao SubForm na Formi2, ali ako su oba forma samostalna funkcioniše. U slučaju da koristiš SubForm i da se kontrola u kojoj se Forma2 nalazi zove Child1 onda bi kod mogao izgledati i ovako :

Private Sub DozvoliIzmene_Click()
Child1.Form.AllowAdditions = DozvoliIzmene.Value
Child1.Form.AllowEdits = DozvoliIzmene.Value
End Sub

Eto, izaberi jedna od ova tri, prva opcija bi trebalo da ti reši problem. Ukoliko su obe forme samostalne možeš uneti sledeći red :
If CurrentProject.AllForms("Forma1").IsLoaded = False Then Exit Sub

Može se desiti da Forma1 nije učitana, tako da bi se u nastavku procedure pojavila greška ako bi probao da blokiraš edit na njoj. Biće da previše opširno pišem jer me uvek poneki kolega pretekne

Ne želim da neko pomisli da smatram njegov odgovor nekompletnim, samo dugo pišem odgovor jer radim više stvari istovremeno.

Ozbiljan i odgovoran mladić

Odgovor na temu