This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.
Course Of The Month
8 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
How to keep the value of the text box in the combo box
Posted on 2011-03-04
Let say i have a field called Status
when you create a record, the status is "Intern"
so txtStatus.text="Intern"
I have Update button, it will open combo box Status with prefileed statutes :
Intern
Part Time
Full Time
so you have the ability to select something from the combo box and update the status, from Intern to Part Time or what ever...
But the original status should be preselected in combobox
when you create a record, the status is "Intern"
so txtStatus.text="Intern"
I have Update button, it will open combo box Status with prefileed statutes :
Intern
Part Time
Full Time
so you have the ability to select something from the combo box and update the status, from Intern to Part Time or what ever...
But the original status should be preselected in combobox
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
OK.
In your cmdUpdateButton_Click() event you probably already have something like
me.cboStatus.visible = true
to make your combobox visible. Now you just need
me.cboStatus.value = me.txtStatus.value
That will set the combobox value to that of the textbox, providing that all the data is set up as expected
(i.e. that txtStatus is bound to sometable!Status and the bound column of the combobox is bound to sometable!status
You've quoted txtStatus.text="Intern" in your post
Be aware that the .text and .value properties are NOT the same thing. The .text is what you presently see -- even changes that haven't been committed to the table yet and can be reversed by a Cancel event or pressing the ESC key. The .value is what is in the underlying table of a bound control.
.text can also only be accessed when the control has the focus. .value can be accessed at any time in code.
In your cmdUpdateButton_Click() event you probably already have something like
me.cboStatus.visible = true
to make your combobox visible. Now you just need
me.cboStatus.value = me.txtStatus.value
That will set the combobox value to that of the textbox, providing that all the data is set up as expected
(i.e. that txtStatus is bound to sometable!Status and the bound column of the combobox is bound to sometable!status
You've quoted txtStatus.text="Intern" in your post
Be aware that the .text and .value properties are NOT the same thing. The .text is what you presently see -- even changes that haven't been committed to the table yet and can be reversed by a Cancel event or pressing the ESC key. The .value is what is in the underlying table of a bound control.
.text can also only be accessed when the control has the focus. .value can be accessed at any time in code.
Active 4 days ago
as a test , does this code do what you are looking for ?
when you click the button1, the value of the text box (ie your field Status) is compared to the allowable values of the combo box.
If a match is found, the combo box is set to match. If no match, an alert is raised to note an invalid data. (ie color red)
when processing the update, you access the current indexed item of the combobox.
when you click the button1, the value of the text box (ie your field Status) is compared to the allowable values of the combo box.
If a match is found, the combo box is set to match. If no match, an alert is raised to note an invalid data. (ie color red)
when processing the update, you access the current indexed item of the combobox.
Private Sub Command1_Click()
'check to validity
Dim i As Integer: Dim ok As Boolean
ok = False
For i = 0 To Combo1.ListCount - 1
If Text1.Text = Combo1.List(i) Then
Combo1.ListIndex = i
ok = True: Exit For
End If
Next i
If ok Then
Text1.BackColor = vbGreen
Else
Text1.BackColor = vbRed
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "Intern"
Combo1.AddItem "Part Time"
Combo1.AddItem "Full time"
Text1.Text = "Intern"
End Sub
Private Sub cmdUpdate()
Label1.Caption = Combo1.List(Combo1.ListIndex)
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article will show, step by step, how to integrate R code into a R Sweave document
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
- Microsoft Applications
- Windows OS
- Fonts Typography
- Web Browsers
- Microsoft Word
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
The viewer will be introduced to the member functions push_back and pop_back of the vector class. The video will teach the difference between the two as well as how to use each one along with its functionality.
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month8 days, 3 hours left to enroll
617 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.