Keeping sub form locked until data entered on main form 2

[WallT]

I'm trying to keep my sub form locked until user enters thier initials on the main form. I tried the following in the Form_Current, but just don't have enough experience with vb to get it right. Any help would be great.

If Me.UserInitials & ""="" Then
[frmDataEntry].Form.Enabled = False
Else
[frmDataEntry].Form.Enabled = True
End If

 

[flyover789]

try (replace [blue]sfrm[/blue] by the name of your subformcontrol):

Private Sub Form_Current()
If IsNull(Me.UserInitials) Or Me.UserInitials = "" Then
Me.[blue]sfrm[/blue].Enabled = False
Else:
Me.[blue]sfrm[/blue].Enabled = True
End If

End Sub

HTH,
fly

[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]

Martin Serra Jr.

http://www.mserrasystems.com

[blue]Shared Database_Systems and _Applications across all Business_Areas[/blue]

 

[THWatson]

WallT
You're on the right track. A subform is a control on the main form.

The correct way to reference a subform is
Forms!MainFormName!Form.SubFormName

So try code something like

If IsNull(Me.UserInitials) Then
   Forms!MainFormName!Form.[frmDataEntry].Enabled = True
Else
   Forms!MainFormName!Form.[frmDataEntry].Enabled = False
End If

Tom

 

[WallT]

Great, Thank you.

 

[mph1]

You indicate

but just don't have enough experience with vb to get it right

I think the following should give you more insight on how to refer to a sub form.

http://www.mvps.org/access/forms/frm0031.htm

An investment in knowledge always pays the best dividends.
by Benjamin Franklin
Autonumber Description - FAQ702-5106

 

[THWatson]

WallT
If the code I offered isn't quite right, it means I got the "dot" (.) and the "bang" (!) operators mixed up.

It should be...

If IsNull(Me.UserInitials) Then
   Forms!MainFormName.Form![frmDataEntry].Enabled = True
Else
   Forms!MainFormName.Form![frmDataEntry].Enabled = False
End If

Tom