[es] - Zaključavanje subform pod uslovom

sabacc
Vuk Jovanović
Zdravstveni radnik,DZ Šabac

Član broj: 202870
Poruke: 103
*.216.26.115.dynamic.sbb.rs.

Profil

^{01.06.2015. u 09:00 - pre 108 meseci}

Imam formu tipa Tab order. Jedno polje u formi Primarna mi je VremeInsert (Date/Time). U Event On Current subforme Sekundar1 i Sekundar2 sam stavio code:

If IsNull(Forms![Primarna]![VremeInsert]) Or IsEmpty(Forms![Primarna]![VremeInsert]) Then
Me.AllowEdits = True
Me.AllowAdditions = True
Else
Me.AllowEdits = False
Me.AllowAdditions = False
End If

Znači zaključava subformu kada je VremeInsert ubačeno. Problem je u sledećem što kada želim da popunim novi zapis polja subform su mi zaključana ili ako želim da izvršim promenu u postojećem da izbrišem VremeInsert subform mi je i dalje blokirana. Referencirao sam polja u formi koja mi ne prave problem.
Probao sam i sa referenciranjem polja On Got Focus Podatak1 sa code:

Private Sub Podatak1_GotFocus()
If IsNull(Forms![Primarna]![VremeInsert]) Or IsEmpty(Forms![Primarna]![VremeInsert]) Then
Me.Podatak1.Locked = True
Me.Podatak2.Locked = True
Me.Podatak3.Locked = True
Else
Me.Podatak1.Locked = False
Me.Podatak2.Locked = False
Me.Podatak3.Locked = False
End If
End Sub

Isti problem mi se javlja.

Prikačeni fajlovi

Zakljucavanje1.mdb - 472k

Odgovor na temu

sabacc
Vuk Jovanović
Zdravstveni radnik,DZ Šabac

Član broj: 202870
Poruke: 103
*.216.26.115.dynamic.sbb.rs.

Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 09:02 - pre 108 meseci}

Zakačio sam problem.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 16:54 - pre 108 meseci}

Na dugme UpisiVreme posle koda Me.VremeInsert = Now() dodaj Me.Refresh,takodje i na dugme IzbrisiVreme isto Me.Refresh pa probaj.Pozdrav.

Jednog dana...

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 17:02 - pre 108 meseci}

Umesto da za svako polje dodajes if blablabla probaj sa Tag osobinom nesto pomocu sledeceg koda

Code:
Dim ctrl As Control

For Each ctrl In Me.Controls
  Select Case ctrl.Tag
   Case 1
     ctrl.Locked = True
   Case 2
     ctrl.Enabled = False
    End Select

.
Pozdrav.

Jednog dana...

Odgovor na temu

sabacc
Vuk Jovanović
Zdravstveni radnik,DZ Šabac

Član broj: 202870
Poruke: 103
*.opera-mini.net.

Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 18:41 - pre 108 meseci}

Hvala na pomoći. Ovo sa refresh sam probao, ali i dalje imam isti problem. Ovo drugo mislim da takođe neće rešiti problem. Ovo je zanimljiva stvar izgleda prosto, ali nije tako. U suštini moglo bi se koristiti u slučaju-kada potvrdiš da je kraj nema izmene možeš samo da gledaš i da menjaš samo one za koje ne postoji potvrda završenosti. Meni problem pravi subform gde sam i objasnio šta je problem. Poenta cele priče je ako imam formu sa subformom onog trenutka kada kažem da je kraj recimo polje u koje se upiše vreme kada je potvrđen kraj nema više izmene. Ako hoću izmenu polje vreme mora biti prazno

_{[Ovu poruku je menjao sabacc dana 01.06.2015. u 19:57 GMT+1]}

Odgovor na temu

nenadmarkoni
zaposlen
Pljevlja,Crna Gora

Član broj: 268419
Poruke: 705
*.crnagora.net.

+3 Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 21:27 - pre 108 meseci}

Nešta u ovom smislu...

Sve sam fino smislio...
Još samo da propadne. :-)

Prikačeni fajlovi

Zakljucavanje1.rar - 34.24k

Odgovor na temu

sabacc
Vuk Jovanović
Zdravstveni radnik,DZ Šabac

Član broj: 202870
Poruke: 103
*.opera-mini.net.

Profil

Re: Zaključavanje subform pod uslovom

^{01.06.2015. u 21:57 - pre 108 meseci}

Hvala. Probaću da primenim na moju aplikaciju

Odgovor na temu