Solved

Disable Combo Box once user has selected item from list

Posted on 2011-02-15
10
1,121 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
 
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
Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

929 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

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now