Locking text boxes and subforms

  • Thread starter Thread starter James
  • Start date Start date
J

James

Hello I can call the following module on some of my forms
which locks certain things and displayes a message.

----------------------------------------------------------
Option Compare Database
Public Warning As String
Sub SetWarning()
Warning = "You have got RESTRICTED access to edit
data."
End Sub
Sub Restrict(TheSubForm As Object, TheText As Object)
If UsrUserID = 3 Then
TheSubForm.Locked = True
TheTextBox.Locked = True
TheText.Caption = Warning
End If
End Sub
----------------------------------------------------------

How could I modify it so theat the message appears in red
and is bold? also I would like it to select all the
subforms and text boxes on the form and lock them all.
Could I also do the same thing but for a list box which
has values but not lock it but stop edits and things so
all you can do is click on a value and do the same with a
combo Box?

Many Thanks

James
 
How could I modify it so theat the message appears in red
and is bold?
Click to expand...

You can change the ForeColor and FontWeight properties of the (presumed)
label control, TheText
also I would like it to select all the
subforms and text boxes on the form and lock them all.
Click to expand...

See the responses to your previous post on this subject: You can either do
this by setting the form's AllowEdits, AllowDeletions and Allow Additions
properties to No or you can loop through the control types, setting the
Locked property to Yes or No as you wish. To see a list of all of the
intrinsic constants for ControlType, use VB Help and search on
"ControlType". As for SubForms, they will be locked when you set their
parent form's AllowEdits, AllowDeletions and Allow Additions properties to
No.
Could I also do the same thing but for a list box which
has values but not lock it but stop edits and things so
all you can do is click on a value and do the same with a
combo Box?
Click to expand...

ListBoxes: Set the Locked Property to No.
ComboBoxes: Set the Locked Property to No and set the Limit to List
Property to Yes
 
Back
Top