Does anyone have a quick sample code on how to load a combo box using ADO? Currently I set the row source type to Table/Query and the row source to a query within the program. I would like to fill my combo box using code instead.
View RepliesI have one table (tblComplete) with a listing of 30-50 company names and associated information...
"tblComplete" has fields: AutoNumber, Company, Address, City, State, Zip, Phone
On a form I created a combo box linked to AutoNumber and Company to drop down the list. Once the 'company' is selected, I would like it and the rest of the fields (address, city, state, zip, and phone) to go into the blank table (tblSelected).
Could I use a Macro to do this or should it be a query?
Hi All,
Totally new to access, been asked to make a database for a historical society. To make life easy, in descibing the hist. society's numerous items, I thought it best to follow the standard museum catalogue naming system, i.e everything has a primary and secondary classification. So what I have done is create two combo boxes, with the choices in the 'secondary' classification field limited by the choice in the 'primary' combo box. These controls are based on two tables that contain only the names/info on primary and secondary classification. It works nicely. However, because these controls are on a data entry form, when you make your choices in these combo boxes, the data is not recorded on the appropriate data table (presumably as the controls are linked to those other tables). Everything else you type in the form (like the item's location or autonumber) is saved in correct table.
Other problem is that every time you go to add a new record, and change the primary/secondary choices, it changes all the records on the form to equal these choices.
How do I fix it, or is there nothing I can do (as it may be totally impossible - I don't know!)??
Any help greatly appreciated, but please talk very simply and slowly - I am a complete novice!
MS Access 2010
I have a form "Admin" used to create new records in a table "RCJ"
I have a table called "Projects" that contains detailed information for projects.
I have a table called "Waterfall" that contains basic information and schedule information for each particular project.
I have a combo box "Contract" that selects information based on a query "Core" that gathers certain information I want to use of form "Admin"
I understand it's generally not a good idea to duplicate data in tables, but for specific reasons I am here. My combo button "Contract" has an event "On Click" that gathers information I want copied from table "Waterfall" via query "Core" is:
Private Sub Lookup1_Click()
Me![Project Description] = Lookup1.Column(1) =>goes to a text box
Me![TContract] = Lookup1.Column(3) => goes to a text box
Me![Requestor] = Lookup1.Column(5) => goes to a combo box
Me![AEM] = Lookup1.Column(4) => goes to a combo box
Me![AE] = Lookup1.Column(6) => goes to a combo box
Me![Priority] = Lookup1.Column(12) => goes to a combo box
End Sub
Now, the items listed above are sometimes just a text box and sometimes a combo box (because there are times, when items get entered that don't fit the original combo box.
Now, here's the rub. When I select the pull down on the combo box it lists all available projects. You find the one you want and select it. At that point, only Columns 1 (text box) and 6 (combo box) auto fill. The other information does not fill in .. BUT, if I more to the prior record and back, all information shows up OR if I click on any of the particular fields, the information shows up in that field. In theory, everything should show up right away.
I thought it might be because it doesn't like to autofill a combo box, but one of the combo boxes fills fine. And all of the information is acutally going to the various boxes, it just doesn't show up right away.
I'm stuck on a portion of a form that displays members attending and not attending a specific event. I've got some of it working but others not.
1. Removing items from a table and updating a listbox
2. Changing the Event selection from Next Record to a combo box.
The code that I have in the two list boxes are as follows:
Code:
Private Sub Form_Current()
Me!lstNotAttending.RowSource = "SELECT DISTINCT Members.MemberID, Members.txtLname, Members.txtFname FROM Members " & _
" LEFT JOIN MemberEvents ON Members.MemberID = MemberEvents.fk_MemberID" & _
" WHERE MemberEvents.fk_MemberID Is Null OR MemberEvents.fk_EventID <> " & Me!txtEventID & _
" ORDER BY Members.txtLName;"
Me!lstAttending.RowSource = "SELECT Members.MemberID, Members.txtLname, Members.txtFname FROM Members " & _
" LEFT JOIN MemberEvents ON Members.MemberID = MemberEvents.fk_MemberID" & _
" WHERE MemberEvents.fk_EventID = " & Me!txtEventID & _
" ORDER BY Members.txtLName;"
End Sub
The code I have working for adding a member:
Code:
Private Sub lstNotAttending_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO MemberEvents(fk_MemberID, fk_EventID) " & _
"VALUES (" & lstNotAttending.Column(0) & ", " & Me!txtEventID & ");"
Me!lstNotAttending.Requery
Me!lstAttending.Requery
End Sub
I know the code for removing has to start with REMOVE FROM. I just don't know the syntax.The combo box has no code.I'm assuming the Requery options aren't working properly for the listboxes
I have a table [Employees] that has the field [FirstName] and [LastName]. On my form [Jobs], I have a combobox [ComboWho]. The combo box has all of the possible first names. When a first name is picked, it makes the last name fill in a textbox.
In the real version, it is a [LastName] is a lot of information, so it is kept in a memo field. I tried to use cascading combo boxes, but it cuts off my text.
I keep getting it to almost work... I've tried about 5 different methods... DLookUp, subform, etc.
Right now, I'm using this code:
Private Sub ComboWho_Change()
Dim location As String
Me.ComboWho.SetFocus
location = DLookup("LastName", "Employee", "FirstName = '" & Me.ComboWho.SelText & "'")
Me.MyTextBox.SetFocus
Me.MyTextBox.Text = location
End Sub
It has properly filled in the textbox. I thought it was working perfectly, but ran into one snag... We have been using a split form... and it won't let me filter that column (Column ComboWho). I think because it is saving everything as numbers instead of text.
ComboWhoDatabase.accdbI've attached a copy of the simplified database.
I have a form for user to select multiple items from a combo box, and 18 unbound text boxes , each time user selects an item in combo and hits "add" the value appears in txt box by order, I mean select1 then "add" filling txtbox1, select2 then "add" filling txtbox2 ... and so on till we reach txtbox18, then msg box appears that he filled the whole 18 boxe. I have already done this before for one txtbox which is a very simple operation, but i cannot figure out how to do it with multiple txtboxes.
View 2 Replies View RelatedI have 2 cascading combo boxes. Thr first calls all 5o states in the US. The Second is "Supposed" to called the call all the cites and zipcodes for the state selected. I based them on the sample cascading db from this forum modified for my db. I have a problem with my WHERE clause. Without the WHERE Clause Combo2 works fine. It shows every record in the table. When I add the WHERE Clause It won't run. I am asked for a parameters for each field in the second combobox.
Table1 has 2 fields-StAbb(PK) and State. Table2 has 5 fields-ZipID,ZipCode, City, & StAbb(FK).
I have a query for each table that the combo boxes run off.
The rowsource for combo1 is
"SELECT tbl_states.StAbb, tbl_states.State FROM tbl_states ORDER BY tbl_states.StAbb;"
The rowsource for Combo2 is:
"SELECT qry_zipcodes.ZipID, qry_zipcodes.City, qry_zipcodes.ZipCode, qry_zipcodes.StID FROM qry_zipcodes WHERE qry_zipcodes.StAbb=Forms!frm_clirntinformation!com bo24 ORDER BY [City], [ZipCode];
It doesn't matter whether I run them off the querys or directly off the underlying tables. The same thing happens. Can anyone tell me what I am doing wrong? As far as I can see I followed the example db.
Im using the following vba Code to try and populate a text box with multiple line based on selections from a list box.
Private Sub Precautions_AfterUpdate()
Dim Criteria As String
Dim ctl As Control
Dim Itm As Variant
Set ctl = Me.Precautions
For Each Itm In ctl.ItemsSelected
If Len(Criteria) = 0 Then
Criteria = ctl.ItemData(Itm)
Else
Criteria = Criteria & "," & ctl.ItemData(Itm)
End If
Next Itm
Me.description = Criteria
End Sub
Its working to the extent that it adds the options that are selected from the list box but I actually want it to put the 2nd column of the list box which is hidden into the text box. How do i edit this code to add column 2 rather than column 1 when an option is clicked?
Any help would be appreciated
Ive attached the database (sorry its very simple) Open form tester to see what i mean.
Hi all... and thanks for your help to this very frustrated moderate Access user. I have been using an example for cascading combo boxes in a timesheet form, but I simply cannot get it to do what I need.
I have a table called "Entry", with a form called EntryForm based on it. That table has the follwing fields:
Name
Date
Hours
Set* cboSet
Subset* cboSubset
Item* cboItem
The fields with asterisks are the ones I am trying to create cascading combos for. I have a table called "Sets" which has the same fieldnames in it, which I am trying to use as the sources for these fields. The form has "cbo" in front of the names. I have attached my code in a document.
It looks like all this does is act like an Excel autofilter. Can someone help me with the sourcing for these fields and how I get the Entry table to populate as I make entries. All my code does is push me to edit the Sets table records.
Thanks for any help!!
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!!!)
Can you have a saved (unsorted) query as a row source for a combo and then add some code to enable the combo to sort the list?
Reason is, I want three combos to use the same query for finding records in different ways, but need the query to be saved, not a query built by the query builder that access takes you into from the row source on the combo data tab?
I only need the data listed in each of the combos to be sorted by one column in each of the combos.
Have seen something about bubble sorting, but not sure if this is OTT or even could be applied to this?
FYI, this is not a cascading situation.
I am using a combo box to filter a 2nd form upon clicking a button. I posted on this topic the other month and was given some code that works. I am attempting to tweak it for another part of my database.I am receiving a Run-time error "3464': Data type mismatch in criteria expression.
DoCmd.OpenForm "Utilities Contacts", , , "[Utility] = """ & Me.Utility.Column(1) & """"
DoCmd.Close acForm, "Utility Menu"
I just recently started programming in MS Access. I have some forms with lots of combo boxes. I do not want users to type anything in the boxes, but to only select stuff that is contained in the drop down menus.I found this useful code and I am using it in my combo boxes on the key down event to do what I want.
Private Sub cmb_a_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0
End Sub
Private Sub cmb_b_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0
End Sub
Private Sub cmb_c_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn Then KeyCode = 0
End Sub
The issue is because I have so many combo boxes, is there a better way to rewrite the code so I don't have to repeat the same code in 20 places?
Hi all:
I have an inventory table, and I wish to pick items from that inventory table and populate an order placement table.
In oracle, clicking one of the item windows in the form provide with a LOV (List of Values), and usually items are picked from there.
How do I achieve this in Access, and it does not have to be LOV as in Oracle.
I shall be thankful for your kind help.
Regards - Prabir.
I have a table with names of people and the cars they own. I made a form with a combobox which everytime i choose the name of the person in my combobox, it will list the cars they owned. That works fine. Problem i have is that i have to show how many cars they own. So i made a query to count the number of cars for each person. Then I made a textbox on the form to show this count. However I can't seem to link this textbox to the query since my form has a record source to the table of ppl and cars. How do i link my textbox to my query of counts of cars?
I tried changing the control source pointing to the field of the query but it doesn't work. I have linked the combobox selection so that my query filters to wat i select on the form. Anyone can help :( , its a simple process but i keep trying and doesn't work, and also dont wanna use a subform.
hi
is there anyway to temporarily store the information being entered into a form before actually writing it to a table. i want information to be added to the table only once the save button is pressed. i dont want the table to be used even as the scratch pad.
Thanks
Hi all,
I have been trying to create a database that looks after staff holidays.
Here's how it looks at present
TBL_Holidays:
Staff_Index
Staff_Name (From a lookup)
Start_Date
Number_of_days
TBL_Holidays_Booked:
Staff_Name
Dates_Booked
Once the form (FRM_Holidays) is filled out I had (until I gave up and decided to ask for help - 2 weeks) a button that went off and run a append query.
Here's my problem. Once the button is pressed I need the TBL_Holidays_Booked to fill with the Dates_Booked.
ie.
John Smith wants his holiday to start on the 1st August for 10 days.
The resulting TBL_Holidays_Booked would look like the following:
John Smith 01/08/06
John Smith 02/08/06
John Smith 03/08/06
..
John Smith 10/08/06
Is there a way to do this? or is there a simplier way of doing it?
Regards
Mark
I have a form, which is used to create proposals. The form has form headers and footers, as well as a page footer.
In the Detail area of the form there are only two fields, Description and Amount, which only take up one line. I want the detail area to determine how many pages the form will be when printed. Can a new description/amount fields line be automatically inserted after I complete one? I guess the question is, can the Detail area of the form grow automatically? If so, how is it done.
Naturally, I only want the Form Header and Footer to be printed once, regardless of the amount of pages the proposal becomes. And, likewise, I want the page footer to be printed on each page. So, if the detail area only has one line completed then only one page will be printed. However, if there are 20 lines in the detail area then two pages or more will be printed.
Any help would be greatly appreciated.
MrAviator
I have a table:
Product:
Code | Name | Description | Price
I have a form with a text box. i want whatever i write in the text box to be inserted in the table Product under Code.
Its like im inserting a new product.
How can i do that? Im new to Access and VB, so bare with me.
Thanks alot
Hello!
What I am trying to do is fill a field with a date until a new date is encountered. Basically, I have imported some csv data which only has the date when it changes. I have created a new field and have a row with only the date in it. Is there a way to fill the rows below the date row with that date until the next date row is found and then continue on with the next date and so on. Here's what the database looks like, basically:
Date Field1 Field2 Field3
01/01/01 null null null
null DATA DATA DATA
null DATA DATA DATA
null DATA DATA DATA
null DATA DATA DATA
01/02/01 null null null
Hopefully this makes sense and someone can give me a hand with this! Thanks so much!!
I need to auto populate a sub form.
Main Form
ID
Top Assembly Part Number
Top Assembly Serial Number
Sub Form (continuous form)
ID
Part Number
Part Name
Part Serial Number
Main Form and Sub Form linked by ID
(There is a separate table that has sub form part numbers for each main form part number)
Based upon the part number in Main Form I need to automatically populate the sub form with Part Number and Part Name.
Some Main Form Part Numbers have 85 sub form part numbers others as few as 3 sub form part numbers
Main Form
______________________________________
|
| ID [123 ] |
| |
| Part Number: |9999999 |
| Serial Number: |ABC-9999 |
Sub Form
_____________________________________
|
| ID [123 ]
||Part Number | Part Name | Serial Number |
|| 1111 | Widget 1 | A11111 |
|| 2222 | Widget 2 | B1234 |
|_____________________________________
Is it possible to write an event procedure attached to a command button in a Microsoft Access database that would use data from an established query to pre-fill data in to a form on a web site? Has anyone tried this?
View 3 Replies View RelatedI have a form that the user will fill, then email it to a customer.
I dont want to send the whole table, just the values that the user just inserted in the form.
Any idea on how should i do that using Access?
I am aware of the SendObject method, but i never used it, and dont know how. Any help will be very apreciated.
Thank you in advance.
This is probably very simple to do, but, I am most likely missing the obvious...
I have 3 fields,
UnitPrice,
NumberPerUnit, and
NumberPerUnitCost.
I would like to have the NumberPerUnitCost field filled automatically based on what I have entered into the other 2 fields. I would also like to have this saved in my table as I will use this single unit cost when calculating some production costs.
Any and all help would be appreciated. If I am going about this the wrong way, please redirect me.
Thanks, Karen
Hi eveybody,
I have 10 fields in a form where I put in years.
is it possible that if the first year is filled in as 2006 (for
example) that the next nine years fill up automatically as 2007, 2008, ......etc.
How would I do it?
Thanks
dfuas