Solved

Disable Combo Box once user has selected item from list

Posted on 2011-02-15
10
1,258 Views
Last Modified: 2012-05-11
I have a combo box on a form with four items in the list. Once the item has been selected, I would like to disable the combo box. As users can inadvertently change the item by selecting the combo box and using the drop down menu listing the items.
Is there anyway to prevent this from happening? Perhaps test the field and see if it is blank then allow the user to select from the drop down menu and if it is not blank the combo box loses focus not allowing the user to change the entry previously entered.
0
Comment
Question by:Baber62
10 Comments
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 34895152
Disabling the control as soon as anything has been selected wouldn't give the user the chance of correcting an erroneous selection.

The control could be disabled (or hidden or simply ignored) once the data is used.
0
 
LVL 77

Expert Comment

by:peter57r
ID: 34895154
What if they make a mistake and select the wrong option?
0
 

Author Comment

by:Baber62
ID: 34895212
If an erroneous selection is made this could be corrected by going to the table view and correcting it from there. I am more concerned with users changing it from the form view.

The database is one for Road Safety Audits of which there are only four types of audits namely Stage 1, Stage 1/2, Stage 3, and Stage 4. These are the items in the combo box.
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 7

Expert Comment

by:klakkas
ID: 34895303
For the comboBox control, if the user has not selected anything, the .SelectedIndex property is -1. If the .SelectedIndex is different than -1 then a selection has been made.

So, in your code get the comboBox_SelectedIndex event and in there:

If ComboBox1.SelectedIndex <> -1 then
     ComboBox1.enabled=false
End If
0
 

Author Comment

by:Baber62
ID: 34895476
klakkas,

Where do I enter this code? On the before update or the after update event?

 Please note that I am using MS Access 2003.
0
 
LVL 6

Expert Comment

by:JVWC
ID: 34895881
Here is an "Opt Out" code ...

Private Sub Combo1_AfterUpdate()
    If MsgBox("Are you sure of this selection?" & vbCr & Me.Combo1.Text, vbCritical + vbOKCancel, "Selection will be locked!") = vbCancel Then
    Me.Combo1 = "" 'assuming text
Else
    Me.cboNextCtrl.SetFocus 'move focus to another control so we can lock the original combobox1
   'then
    Me.Combo1.Locked = True
End If
End Sub

'In case you need to move to another record and start over
Private Sub Form_Current()
Me.Combo1.Locked = False
End Sub


Cheers
JC
0
 

Author Comment

by:Baber62
ID: 34895975
JVWC,

My combo box is combo10, however, just in the line after the else statement on "Me.cboNextCtrl.SetFocus" it give me a debug error and states that "Method or data member not found".
0
 
LVL 6

Accepted Solution

by:
JVWC earned 500 total points
ID: 34904414
<"Me.cboNextCtrl.SetFocus" it give me a debug error and states that "Method or data member not found".>

Yes, you cannot lock the control that has the focus, so you need to move the focus to another control on the form. I called it "cboNextCtrl" as logic would suggest you move the focus to the "NEXT CONTROL" that the user would use.
Assuming that you will have other Combo controls for the user to select, I guess the logic follows that you would move the focus to the NEXT combo...

Change Me.cboNextCtrl.setfocus to the name of a control on your form thus:
me.yourcontrolname.setfocus.



Cheers
JC
Private Sub Combo10_AfterUpdate()
    If MsgBox("Are you sure of this selection?" & vbCr & Me.Combo10.Text, vbCritical + vbOKCancel, "Selection will be locked!") = vbCancel Then
    Me.Combo10 = "" 'assuming text
Else
    Me.changethistoyourcontrolname.SetFocus 'move focus to another control so we can lock the original combobox1
   'then
    Me.Combo10.Locked = True
End If
End Sub

'In case you need to move to another record and start over
Private Sub Form_Current()
Me.Combo10.Locked = False
End Sub

Open in new window

0
 

Author Closing Comment

by:Baber62
ID: 34905414
Routine works perfectly!!!
0
 
LVL 6

Expert Comment

by:JVWC
ID: 34905877
Cheers
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question