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.
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.