Subform locked / disabled fields

[dekk]

Hi,

Re: Controlling fields in a subform from a combo list value

Field names:
cboActivity - this combo box lists the Activity Numbers (i.e 1.1, 1.2, 1.3, 2.1, 2.2, 3.1)
txtStartDate - this date field is an input field
txtEndDate - this date field is an input field
txtQuantity - this text field is an input field
txtStartDepth - this text field is an input field
txtEndDepth - this text field is an input field

Goal / Solution Required:
I would like the subform to lock the last three text fields (txtQuantity, txtStartDepth, txtEndDepth) on load. I would like to enable these 3 fields for input based on the "cboActivity" value.

The following condition to enable the text fields are:

Condition 1:If "cboActivity" starts with a "1", then enable the txtQuanity field,
Condition 2:If "cboActivity" starts with a "2", then enable the txtStartDepth and txtEndDepth field,
Condition 3:If "cboActivity" starts with a "3", then enable the txtQuantity, txtStartDepth and txtEndDepth fields,

Help appreciated.

[mshmyob]

Just subscribing. Will check in later. (weekend you know - lol)

cheers,

[slenish]

Hello dekk,

I just have a couple questions first. The combo box that you want to be the main control point from switching the boxes from locked to unlocked is that in the Main Form or the subForm?? Also is the subForm always visible with in the Main Form?

With a little more information I can help you out.

:D

[dekk]

Hi Guys,

Firstly, thanks for your replies.

I have progressed a little and performed the steps below and receive the error

"You cannot disable a control while it has the focus".

Furthermore, when I review an existing record in the subform with the following code below, all of the fields are active.

I would assume that based on the combo list value together with the code below that the appropriate fields are locked/disabled?

Please note: the combo is named cboAct, not cboActivity as described in original post.

The "cboAct" (combo box field) is in the subform, not the main form.

Private Sub Form_Current() 
    SetEnabledFields 
End Sub 
 
Private Sub SetEnabledFields() 
    Select Case Fix(Me.cboAct.Value) 
    Case 1 
        Me.txtStartDepth.Enabled = True 
        Me.txtEndDepth.Enabled = True 
    Case 2 
        Me.txtQuantity.Enabled = True 
    Case Else 
        Me.txtStartDepth.Enabled = False 
        Me.txtEndDepth.Enabled = False 
        Me.txtQuantity.Enabled = False 
    End Select 
End Sub 
 

What steps did I undertake?

1. The code above has been loaded in the subforms "on current" event (as you can tell by the procedure which is named "Private Sub Form_Current()"

2. The cboAct (combo box) field sources from a text field, not an integer. Thus, I have used the text solution using "fix" statement.

Confirmations:
1. The subform name is "tbl_TimeData". (obtained when putting main form in design mode and selecting subform).

Again, thanks for the assistance.

If the code above is way off, I am happy to put an alternative solution in from your suggestions.

[dekk]

Hello Slenish,

Please see my detailed reply. Answers to your question.

1. The combo box is in the subform and controls which subform fields are enabled/disabled.
2. The subform is always visible.

[mshmyob]

Hello dekk,

I looked at your database but it is not exactly what you are talking about in your previous code.

But anyways your cboAct Current Form event should be like so:

Private Sub Form_Current()
 
Me.txtStartDepth.Enabled = False
Me.txtEndDepth.Enabled = False
Me.txtQuantity.Enabled = False
 
Select Case Left(Me.cboAct.Value, 1)
Case "1"
    Me.txtStartDepth.Enabled = True
    Me.txtEndDepth.Enabled = True
Case "2"
    Me.txtQuantity.Enabled = True
Case Else
    Me.txtStartDepth.Enabled = False
    Me.txtEndDepth.Enabled = False
    Me.txtQuantity.Enabled = False
End Select
End Sub
 

NOTE: You have to reinitialise your controls to not enabled before you check for the cboActivity value and then set the appropriate controls enabled.


Also note that the database you uploaded had EndDepth named wrong and your reference to the controls were incorrect.

This fixes the problem of enabling/disabling for the database you uploaded.

If you have made other changes and getting new problems you need to show us your latest code.

cheers,

[dekk]

NOTE: You have to reinitialise your controls to not enabled before you check for the cboActivity value and then set the appropriate controls enabled.

[dekk] I see that this is performed in lines 3,4,5.

Also note that the database you uploaded had EndDepth named wrong and your reference to the controls were incorrect.

[dekk] I will check the control names. Thank you for taking the time to review the database.

I noticed you have used the left() function. The database will have a combo value between 1.1 to 20.6.

Can I substitute the let() function with Fix() to overcome the limitation of using left() with capturing the first prefix (1.1 = Case1, Case 10.1 = Case 1)?

[dekk] I haven't made any changes since replying to the post. I will check the code with the database when at work tomorrow.

At home today, crook :)

Thanks for your time. I will update the post once I have had the chance to review at work.