How to set a form's/subform's "Allow Edits" property?

[sueb]

I have a form/subform combination that I sometimes want to open disallowing Edits, Additions, and Deletions, depending on which password-protected menu option I'm coming from. (My menu structure is pretty simple, so I'm not using a switchboard, but rather some forms with controls on them.)

How do I manipulate those properties, of both the form and its subform, (in the little procedure that checks the password) before I open the form?

[beacon]

Check out this link: http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

It shows you how to access the the AllowEdits property in VBA. There are additional links and instruction for the other Allow-type properties.

[sueb]

That is a very helpful article. But I don't have the syntax correct for opening a form with its RecordsetType set to Snapshot. What I'm trying gives me a 'type mismatch':

    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Patient_IUR_Overview"
 
    ' Disallow Edits, Additions, and Deletions in both the Overview and Abbreviated forms
    DoCmd.OpenForm stDocName, , , , RecordsetType = Snapshot, stLinkCriteria
 

[ADezii]

Dim strPassword As String
 
'sueb will be able to Edit the Main Form (Orders) but NOT
'the SubForm (Orders SubForm)
strPassword = "sueb"
 
Select Case strPassword
  Case "Admininstrator"                             'Allow Main/SubForm Edits
    Me.AllowEdits = True
    Me![Orders SubForm].Form.AllowEdits = True
  Case "sueb", "ADezii", "YaDa"                     'Allow Main Form Edits only
    Me.AllowEdits = True
    Me![Orders SubForm].Form.AllowEdits = False
  Case "John", "Harry", "Peter", "Paul", "Mary"     'SubForm only
    Me.AllowEdits = False
    Me![Orders SubForm].Form.AllowEdits = True
End Select

[sueb]

Oh, that's nice and tidy, ADezii, and I'm going to save it in my code treasure box.

However, currently my users don't sign in individually, and I'm trying a little different approach. My main menu offers three choices. Two of the choices share some forms in common, except that one choice allows you to edit the data and the other doesn't. I have a global constant ("ReadOnly") that the choices set appropriately, and the shared forms, in their "On Open" events, check that constant to see whether they should set their RecordsetType to "Snapshot" or not.

All the forms are working fine except for the subform on one of the forms. I can't seem to touch it properly. Here's how the main form behaves "On Open" (I got this from the link provided by beacon):

Private Sub Form_Open(Cancel As Integer)
    Const conSnapshot = 2
    If ReadOnly Then
        Forms!Patient_IUR_Overview.RecordsetType = conSnapshot
    End If
End Sub
 

but similar code in the subform's "On Open" event tells me that it can't find the form ("run-time error 2450"). I tried putting this code in "On Load" (what is the difference, anyway?), and tried referencing the subform within the main form's "On Open" event, all to no avail.

[sueb]

Any other ideas about how I can get this subform to set its RecordsetType when I open its parent form?

[ADezii]

I cannot understand why the following Code will not work:

Private Sub Form_Open(Cancel As Integer)
  'Set the RecordsetType of SubForm to Snapshot
  Me![<SubForm_Name>].Form.RecordsetType = 2
End Sub

[sueb]

I know I'm being completely dense about this, but I've tried a number of permutations of syntax (as you'll see in the following code, which contains only a fraction of them), and I just can't get this to stop saying it can't find either the subform (IURs_Abbreviat e_subform) or the main form (Patient_IUR_Ov er). This code is in the subform; is it supposed to be in the main form or something? That seems weird to me, since the main form has no problem setting its own RecordsetType OnOpen.

Private Sub Form_Open(Cancel As Integer)
    If ReadOnly Then
        'Forms!Patient_IUR_Overview!IURs_Abbreviated_subform.RecordsetType = conSnapshot
        'Forms![Patient_IUR_Overview]![IURs_Abbreviated_subform].Form.RecordsetType = conSnapshot
        'Forms![Patient_IUR_Overview].[IURs_Abbreviated_subform].Form.RecordsetType = conSnapshot
        Me![IURs_Abbreviated_subform].Form.RecordsetType = conSnapshot
    Else
        'Forms!Patient_IUR_Overview!IURs_Abbreviated_subform.RecordsetType = conDynaset
        'Forms![Patient_IUR_Overview]![IURs_Abbreviated_subform].Form.RecordsetType = conDynaset
        'Forms![Patient_IUR_Overview].[IURs_Abbreviated_subform].Form.RecordsetType = conDynaset
        Me![IURs_Abbreviated_subform].Form.RecordsetType = conDynaset
    End If
End Sub
 

[ADezii]

Can you Upload a Scaled Down Version of the DB? It has to be something relatively simple.

[sueb]

Yes, ADezii, I'll do that tomorrow when I get back to work. Thanks!

And I'm sure you're right: it's got to be something simple that I'm just overlooking.