Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 1.879 pregleda

Najnovija ↓

Dozvole za upis u subformu 16.12.2009. u 14:46 · pre 205 meseci #1
Imam jedan malo tupav problem...

U aplikaciji za kreiranje popisnih lista postoji forma i subforma... Na formi se nalazi Check Box dugme "Ispravljeno", kojim obeleževam da li je na konkretnoj listi završen unos i spravka podataka (vidi sliku 1).



Ideja mi je bila da zabranim slučajnu izmenu liste nakon što je ona ispravljena, pa sam na On Current Eventu subforme stavio sledeće:
Code:
Private Sub Form_Current()

If Me.Parent!ISPRAVLJENO = -1 Then
    Me.AllowEdits = False
    Me.AllowAdditions = False
    Me.AllowDeletions = False
Else
    Me.AllowEdits = True
    Me.AllowAdditions = True
    Me.AllowDeletions = True
End If

End Sub

a zabranu izmene zaglavlja liste sam izveo preko Conditional Formatting na glavnoj formi.

E sad, to sve radi OK, do momenta kada želim da kreiram novu listu. Tada se dešava sledeće - ako je prethodna lista bila zaključana, tj ona sa koje pritiskam dugme za novi Record, i nova lista je zaključana za unos (vidi sliku 2). Ako novu listu kreiram sa otključane liste, onda unos je dozvoljen, kako i treba da bude.



Očigledno gore navedeni kod ne može da važi ako je u pitanju novi upis u tabelu zaglavlja, ali je meni ponestalo ideja kako da ovo rešim, pa molim za pomoć.

Nadam se da sam bio dovoljno jasan :)

Re: Dozvole za upis u subformu 16.12.2009. u 14:52 · pre 205 meseci #2
Za formu imas property NewRecord, p u zavisnosti od toga radis sta ti treba. Princip je ovaj:

If me.NewRecord then
<ovo vazi kad je NEwRecord>
else
<Ovo vazi kad je postojeci rekord>
endif



Mozda moze ovako nekakoutvom slucaju
Code:

Private Sub Form_Current()

If Me.Parent!ISPRAVLJENO = -1 And (NOT Me.NewRecord) Then
    Me.AllowEdits = False
    Me.AllowAdditions = False
    Me.AllowDeletions = False
Else
    Me.AllowEdits = True
    Me.AllowAdditions = True
    Me.AllowDeletions = True
End If

End Sub



:-)
Re: Dozvole za upis u subformu 16.12.2009. u 15:29 · pre 205 meseci #3
If Me.NewRecord sam prvo probao, ali nažalost ne fercera ni jedno ni drugo :(

Odnosno, da pojasnim, ne dozvoljava mi da ručno unesem prvu stavku sa tastature, iako je subforma u stvari otključana. Sa forme je moguć i import podataka očitanih na Handheld računaru u Access tabelu, i ako to prvo uradim, mogu naknadno da menjam i dodajem stavke u subformi...
Kao da mu samo negde nedostaje neki Refresh subforme ili tome slično, ali što god pokušam, inati se i ne hebava me.
Re: Dozvole za upis u subformu 16.12.2009. u 20:59 · pre 205 meseci #4
Xa, uspeo sam! :)

Proradilo je kad sam i u On Current glavne forme turio nešto u stilu:

Code:
If Me.NewRecord Then
   Me.[Subform].Form.AllowEdits = True
   Me.[Subform].Form.AllowAdditions = True
   Me.[Subform].Form.AllowDeletions = True
End If
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme