Limit Editing In Subforms 2

[DevelopV]

I have a form called "frmOrder"
It contains a subform called "frmOrderProducts"

"frmOrderProducts" has a sub form called "frmOrderProductDeliverySchedule"

"frmOrder" has a boolean field called "bolPO"

If "bolPO" = True then I don't want the user to be able to edit any records in "frmOrderProducts" BUT the user must be able to edit / add / delete records in "frmOrderProductDeliverySchedule"

What is the best way to achieve this?

I tried, in "frmOrder" current event:

If "bolPO" = True then "frmOrderProducts".enabled = False

but this renders "frmOrderProductDeliverySchedule" un-editable

Thanks in advance

 

[1DMF]

Have you tried toggling the AllowEdits property of the form?

You could use two forms, one that has the AllowEdits set to True and the other False and dynamically load the correct one based on your bolPO flag.

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

 

[DevelopV]

I can't find the AllowEdits property!

 

[MajP]

In the forms current event

dim frm as access.form
set form = me.frmOrderProductDeliverySchedule.form
'assuming that is the name of the subform control
with frm
  .allowadditions = not me.bolpo
  .allowedits = not me.bolpo
  .allowdeletions = not me.bolpo
end with

 

[1DMF]

Nice one MajP, steal my thunder ;-)

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

 

[dhookom]

As usual, I appreciate/admire MajP's postings however there is one typo:

dim frm as access.form
[COLOR=#4E9A06]'set f[highlight #EF2929]o[/highlight]rm = me.frmOrderProductDeliverySchedule.form[/color]
set frm = me.frmOrderProductDeliverySchedule.form
[COLOR=#4E9A06]'assuming that is the name of the subform control[/color]
with frm
  .allowadditions = not me.bolpo
  .allowedits = not me.bolpo
  .allowdeletions = not me.bolpo
end with

Duane
Hook'D on Access
MS Access MVP

 

[MajP]

Thanks Duane.

DevelopV,

I can't find the AllowEdits property!

My guess you were clicking on the subform control and not the form inside the subform control.

 

[1DMF]

nice spot Duane, though one assumes the OP worked this out having given MajP a star?

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

 

[dhookom]

I expected the OP worked it out but others may search the threads for answers and not be so skilled.

Duane
Hook'D on Access
MS Access MVP