kenan 12.05.2015 11:54
Predmet:Kako napraviti refresh ostalim aktivnim prozorima

imam mali problem

prije na 2003 mi je ovo radilo

Public FORMNAME As String

DoCmd.Close
FORMNAME = Screen.ActiveForm.Name

Forms![" & FORMNAME & "]![IDzahtjev] = Null
Forms![" & FORMNAME & "]![IDzahtjev].Requery
poenta je da na ostalim aktivnim prozorima koji imaju ovo polje uradi refresh

u suprotnom trebam izlaziri iz maski i ponovo unositi podatke

zxz 12.05.2015 11:59
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

Public FORMNAME As String

DoCmd.Close ' Zatvara aktivni objekat ako je to forma a vjerovatno jeste onda ce je zatvoriti i neznam zasto ce ovaj dio koda.
FORMNAME = Screen.ActiveForm.Name ' Ime aktivne forme

Forms![" & FORMNAME & "]![IDzahtjev] = Null ' Upisuje null u polje Dzahtjev na aktivnoj formi ako ima to polje na njoj.
Forms![" & FORMNAME & "]![IDzahtjev].Requery
poenta je da na ostalim aktivnim prozorima koji imaju ovo polje uradi refresh

zxz 12.05.2015 12:18
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

De malo pojasni odakle pokreces ovaj kod.
Citat:
poenta je da na ostalim aktivnim prozorima koji imaju ovo polje uradi refresh
Moze biti samo jedan aktivni prozor pri izvrsenju.

kenan 12.05.2015 12:23
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

docmd.close nije bitno gdje će biti

Forms![" & FORMNAME & "]![IDzahtjev] = Null ' Upisuje null u polje Dzahtjev na aktivnoj formi ako ima to polje na njoj. - ovo je bitno jer koristim opciju On Not in list jer drugačije blokira

Pitanje je kako doči do naziva svih u tom trenutku aktivnih Formi - moželi ovo uopšte

'Forms![FSEME]![IDZahtjev] = Null
'Forms![FSEME]![IDZahtjev].Requery

ovako radi super al na jednu formu striktnu

morao bih if-ova napraviti kilometar

zxz 12.05.2015 13:36
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

Citat:
'Forms![FSEME]![IDZahtjev] = Null
'Forms![FSEME]![IDZahtjev].Requery
Ako ovo radi onda moze biti da ti u tom trenutku nije aktivna ta forma nego neki drugi objekat.
napr. ako si otvorio modul pa pokrenuo ovo activni objekt ce biti modul a ne forma.
Ukoliko kod pokreces sa imenovane forme a svi ostali objekti zatvoreni, trebalo bi da radi.
Mozda da zakacis primjer pa cemo to brzo rijesiti.

kenan 12.05.2015 16:00
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

logika ovih maski je u tome da kad se otvori maska Fseme i krene kreirati sema za knjiženje i zafali recimo konto, pozivam masku kontnog plana unesem novi konto, ugasim masku ali na polje konta nije refresirano.

e ja bi da se refresira ali mi ne ide

backend je sql pa je nezgrapno za slanje

ako treba nešto ću skrpit
Prilozi:
primjer.rar (Velicina datoteke:33.97 KB)

zxz 12.05.2015 19:21
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

Na formi FKontniPlan an on close upisi ovaj kod.
Private Sub Form_Close()
Forms![FSeme]![IdKonto].RowSource = Forms![FSeme]![IdKonto].RowSource
Forms![FSeme]![IdKonto] = Me.ID
End Sub

Vjerovatno si pokusavao da ovo napravis na got fokus forme Fseme da nebi pisao na vise kodnih formi.
Ovako to radi dobro, samo ako sam dobro polja nabo jer nema tabela.

kenan 12.05.2015 19:45
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

hvala ali to nije to što mi treba

ja ustvari imam više različitih formi iz kojih se poziva forma FKontniPlan i svugdje koristim koristim on not in list za otvaranje šifrarnika, probavao fokusom al neide jedino kako radi iz aktivne forme (npr Fseme) je preko on exit ali ne uvjek zato sam pokušavao preko Screen.ActiveForm.Name ali sam kasnije skonto da ste bili upravu jer sam ga koristio iz modula.

nikako ne kontam

kenan 12.05.2015 20:45
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

ovo je poruka kad ovo pokrenem

Public formname As String
Function IDKontoOsvjezi()
Dim formname As String
formname = Screen.ActiveForm.Name
Forms![" & formname & "]![IDKonto] = Null
Forms![" & formname & "]![IDKonto].Requery

End Function

da negriješim kod navodnika ada sam probao i sa apostrofom
Prilozi:
formname.rar (Velicina datoteke:105.85 KB)

zxz 12.05.2015 22:06
Predmet:Re: Kako napraviti refresh ostalim aktivnim prozorima

Prvo moras pobrisati jednu od varijabli koja se zove formname ili ovu inad publikovanu ili u okviru same procedure.
Dvije iste nemogu biti.
dalje ide:
Dim formname As String

formname = Screen.ActiveForm.Name
Forms(formname).IdKonto.requery