?
Solved

Disable Combo Box once user has selected item from list

Posted on 2011-02-15
10
Medium Priority
?
1,667 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 77

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
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
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 2000 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

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Question has a verified solution.

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

I have had my own IT business for a very long time. I started mostly with hardware and after about a year started to notice a common theme. I had shelves with software boxes -- Peachtree, Quicken, Sage, Ouickbooks -- and yet most of my clients were…
Explore the ways to Unlock VBA Project Password Excel 2010 & 2013 documents. Go through the article and perform the steps carefully to remove VBA Excel .xls file.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month3 days, 9 hours left to enroll

601 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