i have a two column that one stores a professions and other stores a number of the profession like that:
number
professions
1
singer
2
police man
3
teacher
"number" column is a combo box, that boundColumn property is two.
i want that in the form when i choose a value in a combo box i will see the profession in other text box in my form.if i choose 2 in combo box i see in a other text box in my form police man.
I used a combo box to let user select "Proejct Status" such as active, completed, cancled. I want to set active as a default selection if user does not choose other status. How can I do that? Thank you very much for your help.
View 2 Replies View RelatedHi all,
I have a main form containing client details (tbl_Client) and a sub form containing notes (tbl_notes). tbl_Notes contains a foreign key field (Client_ID) which is obviously the primary key in tbl_Client.
The client is chosen on the main form using a combo box where the user selects the clients name. the id is not visable to the user. How can i get it so that the id (Client_ID) of the selected user is inserted into the Client_ID field of tbl_notes.
Thanks
I have a table called Contacts and a form with two combo boxes for searching for records either by name or property name. The following code works fine for finding the first record, but I want to be able to show on the form all (and only) those records which match the combo box entry. Currently rowsource for name box is:
************************************************** *
SELECT [Last Name1] FROM Contacts UNION SELECT [Last Name2] FROM Contacts
ORDER BY Contacts.[Last Name1];
************************************************** *
and code is:
************************************************** *
Private Sub Combo214_AfterUpdate()
' Find the record that matches the control for Last Name search
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[Last Name1]= '" & Me.[Combo214] & "' OR [Last Name2]= '" & Me.[Combo214] & "'"
rs.FindNext "[Last Name1]= '" & Me.[Combo214] & "' OR [Last Name2]= '" & Me.[Combo214] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Combo214.Value = ""
txtFirstName1.SetFocus
End Sub
************************************************** *
Rowsource for property box is:
************************************************** *
SELECT Contacts.PropertyID, Contacts.PropertyName
FROM Contacts
ORDER BY Contacts.PropertyName;
************************************************** *
and code is:
************************************************** *
Private Sub Combo212_AfterUpdate()
' Find the record that matches the control for Property Name search
Dim rs As dao.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[PropertyID] = " & Str(Nz(Me![Combo212], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Combo212.Value = ""
cboPropertyName.SetFocus
End Sub
************************************************** **
Any help is appreciated!
Hello, I have a combo box called (cboridge) bound to a table called (Ridge)with two fields/columns called (dollar amount) (Material type)with 4 different options/records, when the user selects his option/field the dollar amount shows stays visible in the (cboridge) combo box Then I have a text box called (txtridgetot) that has a calculation in it, but I need different calculations per option/field that's picked. Can each option/record that is chosen have a different calculation associated with it in the (txtridgetot) text box.
In other words if the user selects the third option/field called shake ridge could I have a calculation that would run and have it display the sum of this calculation in the text box (txtridgetot).
If so could you please describe how?
Thanks-- Any help will be greatly appreciated.
Hello, I have a combo box called (cboridge) bound to a table called (Ridge)with two fields/columns called (dollar amount) (Material type)with 4 different options/records, when the user selects his option/field the dollar amount shows stays visible in the (cboridge) combo box Then I have a text box called (txtridgetot) that has a calculation in it, but I need different calculations per option/field that's picked. Can each option/record that is chosen have a different calculation associated with it in the (txtridgetot) text box.
In other words if the user selects the third option/field called shake ridge could I have a calculation that would run and have it display the sum of this calculation in the text box (txtridgetot).
If so could you please describe how?
Thanks-- Any help will be greatly appreciated.http://forums.aspfree.com/newthread.php?do=newthread&f=18#
Hello!
I'm looking to have either a combo box,, or 2 options buttons (whichever is easiest) that set a date field based on what is selected in the combo box/ option buttons.
The variables are 'Payment in 30 days" " Payment upfront"
if "payment in 30 days" is selected the date field on the form will enter the date as + 30 days from todays date
if "payment upfront" is selected the field on the form will enter todays date.
This date field must be blank unless an option is selected, as this information is only entered in a later stage of the form.
I've tried a few different ways to enter this but i can't quite get it to work as i want.
In my database I have a table that keeps track of a package of items. The package is assigned a package type (counter display, end cap, half pallet, full pallet for example). The record of the association of the package and it's type is held in the main table.
Each of these package types is either a case or a pallet (counter display and end cap are cases and half and full pallets are pallets) This relationship is kept in another table (we will call it description table).
Now, based on the type of package and therefore it being a case or pallet a UPC and a GTIN number are assigned. The GTIN number is different if it is a case or is a pallet. I have a table that stores all of the UPC and GTIN numbers available in 3 columns, one for UPC, one for GTIN Case and one for GTIN Pallet (the UPC is a standard 12 digit and the GTINs are 14 digit -with the first 2 different to designate pallet or case. and all are based on the check digit formula necessary)
The user assigns the UPC and correct GTIN number by clicking a button which applies the next available UPC code to the package and determines if the description of the type (case or pallet) and inserts correct GTIN number into that field. I actually have all of this functioning correctly.
Now the problem. If a user changes the package type, and therefore changes the description, I need to add code to the update event of the combo box that gives the choices for package type that does the following:
Check to see if the original package type was a case or pallet (it's description) and if by changing the package type it is now changed to the other, update the record in the main table to the correct GTIN number based on the existing UPC Code.
OR as I write this, maybe the code could simply update the main table with the correct GTIN code based on the new description and the existing UPC code. This was I would not need to check for a change just do the update every time.
I have a form that currently uses a "catch all" table for listing available equipment to choose from for an equipment field. I call it tblEquipment. What I want to do is to make it so when I type a name in (1 of 35) in one field of the current record, the record source for the equipment field immediately looks at a different table that has equipment available only for that name. To do this I plan on making 35 different tables with limited data originally found in tblEquipment. I would call these tblEquipment1, tblEquipment2, etc. I do not use a sub form, nor do I want to.
So my questions are:
1) can this be done
2)If it can be done, how can I do it?
Hi everyone,
I have two combo boxes on the same form bound to a table. I want the contents of the next combo box to change based on the previous combo selection e.g
cboContinent cboCountry
Africa Zambia
Africa Congo
Africa South africa
Europe England
Europe Holland
If I choose Africa in cboContinent, I want to see only Zambia, South Africa and Congo under cboCountry and if I choose Europe I want to see only England and Holland
Thanks
Humphrey
There are two main methods of navigating around the top-level form on the database I am currently working on.
One is by a drop down menu listing GP practice names - so you can scroll down to "Dr Watson" for example and then all the subforms display the correct info.
The second way is by clicking on "Previous Surgery" or "Next Surgery". This is obviously a lot easier for data entry than having to use the drop down menu each and every time!
However there is a problem, in that when one uses the second method - the highlighted value in the combo box does not change! You can literally navigate through hundreds of surgeries, and though the address changes in the subforms etc "Dr Watson" is still proudly displayed in the combo box.
So we have a situation where it would be pretty easy for someone entering data to think they were on the correct record when in fact they were not, leading to errors in input.
Is there a way to force the combo box to "refresh" to the same value as the current record, effectively displaying the title?
Thanks
Gazz
Hi all,
I was wondering how would we change the forms row source everytime a new new item is selected in a combo box.
For instance here is a table:
ID Name Status
1 Joe Active
2 Fred Inactive
3 Sam Inactive
So if the names were to be displayed in a combo box and the status is represented by a option group. How could I make the combo box change the record instead of having to use the record selector
Any help would be appreciated
thanks
I have a report card program that I use in my classroom. The program calculates letter grades for various sub categories.
For example, under the Primary Category Math, the computer will calculate a letter grade based on assignment scores and place the grade into a combo box for the sub category "Able to use a graphing calculator."
If I override the grade the program calculated for a student, I would like the text in the combo box to change to red for that student only. Then I can go back and quickly see which grades I have manually changed.
I just cannot seem to figure out the logic to use VBA that would check to see if a user has changed individual combo boxes.
Thanks ahead of time for any ideas.
What I want is in the combo box, I have a couple of options, say 1,2 and 3.
And I want the combo box to come up with different color when different option is selected.
I thought I have found out a way, with the following code to onClick:
If me.field.text = "1" Then me.field.backcolor = 255
The problem is, it's being shown on a continuous form.
And it changes the color on all the records. not just the one I am on.
Any thoughts?
I have a form with a sub, and that sub has a sub. I'm on the first sub trying to change the rowsource of a combo box on the second sub, and none of the following want to work.
Code:
'Me!frmRentalsSubDetails.Form!cmbEquipmentID.RowSource = EquipFilter & Me.ToLocation & "));"
'Forms![frmrentalcontainer]![frmRentals].Form![frmRentalsSubDetails].Form![cmbEquipmentID].RowSource = EquipFilter & Me.ToLocation & "));"
'Me.frmRentalsSubDetails!Form.cmbEquipmentID.RowSource = EquipFilter & Me.ToLocation & "));"
Me![frmRentalsSubDetails].Form![cmbEquipmentID].RowSource = EquipFilter & Me.ToLocation & "));"
How can i change the combo box fields headings. by default it comes according to the table/query field name. I need to put some thing meaningful.
View 6 Replies View RelatedI maintain a large database of employees. I have a form with a combo box (cmb_department) which I can use to select a particular department. I have written an After Update event procedure which updates the relevant fields on the form after I've selected a department - e.g. their new manager's name, phone number, etc. based on my departments table.
Here is my code, which works well:
Private Sub cmb_department_AfterUpdate()
If (Me.is_leaver = "" Or IsNull(Me.is_leaver)) And (Not IsNull(Me.employee_number)) Then
MsgBox "This member of staff is an internal HEY employee. Their departmental details will not change to that of the department, however they can still be set up with GP Browser access."
[Code] ....
However, I'd like to do two things which I'm currently unable to get working...
1. If I delete the department name from the box, or select a NULL value, I get a VBA error - run time error 94, invalid use of Null. I will sometimes want to select a Null value to "unassign" a person from this particular type of department but I'd like a way of selecting a Null value and having it simply set to Null which if the form's default value for this field.
2. As you can see I have a MsgBox which checks to ensure you want to overwrite the existing data for the member of staff. If I select Yes then it overwrites. If I select No I'd like for it to set the value of cmb_department back to the PREVIOUS value. At the moment my script sets it to NULL which doesn't really work - for example, say someone is currently set to the Sales department, and I accidentally click to change them to the Warehouse department, I'd like clicking "No" to revert them back to Sales...
I have a log in form and combo box.
Just want to ask if possible to change photo depends on combo box value?
Here is the link of my database. [URL] ....
Hello,
This is the first time I am join this web & forum. My name is Angie.
I have face some problem for Ms Access. I would like combo box to be auto change when date due. Eg: combo box name: Status. Inside have info such as Expired, Active, Ignore. This info will base on the text box name txtenddate. When the date is due, (eg:today:09 May 06), combo box will auto change the status from Active to Expired.
Any VB code can be used. Thanks.
Hope to heard from you soon.
Regards,
Angie
I have a Form with some combo box's in header and a TabControl with 5 tabs in Body.
In each Tab I have a subform. All is working as should.. each form is requerying perfectly based on user combo choices.
What I would now like to do is swap one subform in one tab for another subform, depending on what choice is made in combo box.
That is...
Combo choice 1 ... requires Subform's 1, 2, 3, 4, & 5 in Tab's 1, 2, 3, 4 & 5 ..
Combo choice 2 though... requires Subforms's 1, 2, 6, 7, & 8 in same Tabs. .. Tab's are umbrella's for multitude of subform possibilities.
I really need some guidence here. Thanks.
I have two forms sourced from one table. if the address of a client has changed then there is a Command button that opens a form to enter the previous address.
What I want is for the text on the command button to change to red if there is a previous address filled in. I have seen it done but cannot copy the code. What I have is on the OnCurrent event of the (main form)
Dim InColor As Integer
InColor=255
Me.[Command126].Forecolor=(And what I want to say here is "If the field previousaddress is not null then ...)*255
Any ideas??? (I wanted to have the database completed before the New Year (less than 12 hours to go!!!)
So how would I go about changing the width of a combo box to the length of the value in vba?
View 14 Replies View RelatedI have a log in form and user combo box.
I want to add photo of each user in this log-in form.
Just want to ask if possible to change photo depends on combo box value?
In the database, there is a table called "Jobs" which sales enquiries are entered into. In this table, there are fields called "JobStatus" which has the default text of "Quotation Pending" and a combo box "JobLive" which is a "yes/no" field. Normally a job will come in as quotation request and the "JobsLive" field will be set to "no".
Occasionally, a job will come in as confirmed from the outset. In this case, the job will be marked as "live" in the combo box "JobLive". Is it possible to change the "JobStatus" field to "Job Live" when this combo box is changed to "yes"?At any other stage, the "JobStatus" field will be changed using an update query as and when changes are made.
I have some code to check a combo box if a date field is filled in, then the combo box can't be empty.I can make the error message appear, but the combo box does not want to change color and it does not recognize any other than value..This is the code that I have, and it does not work like I wish it could.(I took the database over from some one else and need to make improvements on it. the field names where not created by me).
Code:
Private Sub cmbCurrentStatus_AfterUpdate() '<<<<<<<<<<<<<<<< Working on >>>>>>>>>>>>>
If IsNull(Me.[STEP 1 4 check current status]) And Not IsNull(Me.[Checked__date_]) Then
MsgBox "Checked (date) can't be empty if Current Status is filled in!", , "Incomplete Form!"
Me.[STEP 1 4 check current status].Value = RGB(255, 0, 0)
Else
Me.[STEP 1 4 check current status].BackColor = RGB(255, 255, 255)
End If
End Sub
I have
an unbound combo box
an unbound text box (made to resemble a memo field)
a continuous form with many schooltype
The form is filtered by schooltype when the unbound combo box is changed i.e. high school, primary etc
I have made a field in the tblSchoolType called emMessage1 (there is 2, 3 etc)
The idea is that you choose to filter the form and then the relevant type emMessage1 appears in the text box
So if you choose high school then the high school emmessage1 appears (filled with the text) because all the high schools are tied to tblschooltype - when you select high you are getting the high emmessage1
When I select all records I am guessing that the text box will be invisible until you select a school type in the combo box (to avoid problems)...
When you have selected a type, the text gets swapped accordingly to the corresponding id of school type id thus changing emMessage1 to suit and make the textbox visible...
Now I can type in the field and it saves it in the table however:
I do not know how to do this. I thought about dlookup but not sure if that will allow me to change or whether it will do this...