Modules & VBA :: Combo Box Display Initial Value

Sep 3, 2013

I have 2 Comboboxes, one for Region and one for Country, and am attempting to initalize/cascade them. Here is the basic info for the the underlying tables:

tblRegion
regionAbbreviation (Text, PK)
regionName (Text)
regionOverseer (Text, Foreign Key...essentially a parameter)

[code]...

Some relational constraints of which to be aware:

1. Every Region has at least one Country
2. Every Region has one and only one Overseer
3. An Overseer may be responsible for more than one Region

Characteristics of the Comboboxes:

1. Both use 2 columns with the Name field (first column) being displayed and the Abbreviation or Code field (second column) being the bound column.
2. The nominal case is that both comboboxes will have multiple items to select and in that case the comboboxes are initialed with a query containing a UNION that inserts the string "<ALL>" (same string in both columns).
3. When the case arises that an Overseer manages a single Region or a Region contains a single Country, the Union query is bypassed such that the "<ALL>" string is excluded.

The comboboxes are used to create a filter condition to drill down into a potentially very large recordset.Now to the issue at hand ...

The Region combobox is initialized first. The initialization is accomplished by setting the RowSource property to an appropriate query. The first entry in the item list is then loaded to the combobox Value property by the following line of code:

Me.cbxRegion.Value = Me.cbxRegion.Column(0,0)

This always works whether there are multiple items or just one. If there is just one I set the Enabled property to FALSE; no point in reselecting the only item avaliable.The Country combobox is then initialized in a similar manner using appropriate code that is virtually identical to that used for the Region combobox.The problem I am having is that if there is only a single Country, the Name is not displayed in the combobox but is contained in the selection list. Note that i do not have a problem with the Region combobox when it is initialized with a single Region.

I have searched this forum and others and found similar inquiries and a couple of possible solutions; some clearly don't work while others appear to but result in run-time errors later in the execution of the code (run-time error '2115').I do not have a simply test case I can upload at this time; also new to the forum and appear to be restricted as to my ability to perform uploads.

View Replies


ADVERTISEMENT

Forms :: Initial Population Of Combo Box

May 6, 2014

I have a form set up so that a supplier code combo box is populated with a simple SQL statement to get values from a lookup table. I have a second combo box that is populated when the supplier code is selected by the user. It works well. For example, if the user selects supplier Dog then the current record value of the Product field is displayed and the combo box shows all Dog products. So that's great.

My problem arises when the form loads. I can't convince Access to fill the Product combo box with the current products. For example, if the first record has Cat as the supplier, I want it to display the Product value for the first record and to show all the Cat products in the drop down. It isn't doing it on load or on record navigation. It does work if the user reselects the supplier.

I have tried various events.

Right now I have the following code in the AfterUpdate event of cboSupplier:
qry = "SELECT SupplierCodeProductCodeEquityTypeQuery.Product.Nam e, SupplierCodeProductCodeEquityTypeQuery.ProductCode ,
SupplierCodeProductCodeEquityTypeQuery.SupplierCod e, "
qry = qry & "SupplierCodeProductCodeEquityTypeQuery.Supplier.N ame, SupplierCodeProductCodeEquityTypeQuery.ProductId FROM SupplierCodeProductCodeEquityTypeQuery "
qry = qry & "WHERE SupplierCodeProductCodeEquityTypeQuery.Supplier.Na me = '" & cboSupplier.SelText & "';"
Me.cboProduct3.RowSource = qry

View 3 Replies View Related

Modules & VBA :: Initial Folder Of Open File Dialog

Apr 27, 2015

I am trying to display an open file dialog window so that the user can pick up a file. I wish the window to show a specific folder. How can I do this? The code I am using is below. The parameter InitialFileName has no effect on the outcome.

Code:
Function GetFileName(strPath As String, imtype As String) As String
On Error GoTo Err_GetFileName
Dim Dlg As FileDialog
Dim sfl As FileDialogSelectedItems
Dim sflitem As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)

[Code] .....

View 11 Replies View Related

Modules & VBA :: Combo Box Will Not Display List In Correct Order

Nov 3, 2014

I have code attached to a command button to fill a Combo Box with data from a music collection. A letter of the alphabet is entered into a Text Box then records beginning with that letter are copied from a table, either by Artist or Title. They are saved to a temporary table at which time they are in no particular order. Those records are copied to a further table and saved in alphabetical order. This table is then used to fill the Combo Box.

I used two temporary tables because the records were not displayed in the correct order. I hoped this might cure it, it did not. The records are in order in the table but not in the Combo Box.

Code:
Private Sub Command68_Click()
'SEARCH AND FILL COMBO BOX
On Error GoTo errTrap
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tempList;"

[Code] .....

View 3 Replies View Related

Modules & VBA :: Display Text Depending On Combo Box In Different Form

Aug 6, 2013

I want to display the text from one combo in a text box in another form based on what's selected in a second combo box. The text box is in a different form from the combo boxes.

Sub D_ComponentTypeCmb_Change()

If Me.D_ComponentNameCmb.Value = "Customise" Then
Forms!CustomComponentF!C_ComponentTxt.Value = Me.D_ComponentTypeCmb
Else
Forms!CustomComponentF!C_ComponentTxt.Value = ""
End If
End Sub

View 13 Replies View Related

Modules & VBA :: Combo Box Will Display Specific List Of Items - Form Asking For Parameter

May 5, 2015

I have the below code behind a form so that a combo box will display a specific list of items based on the data in another combo box on my form.

I have two copies of this same form for two different departments. One of the forms works like a dream. However, when I copy that form, change the name, and update the code as pictured below, the form is asking for a parameter FROM MY ORIGINAL FORM and will not requery the combo box. I can't figure out why...there is no reference to the original form in my VBA as you can see below. I tried deleting the form and re-creating it, I tried deleting the code and re-typing it to no avail.

Private Sub cmboType_AfterUpdate()
Me.cmboAction.RowSource = "SELECT tblStatusList.Status FROM tblStatusList WHERE (((tblStatusList.Department)=[forms]![frmInquiryFraud]![cmboType]));"
End Sub

View 4 Replies View Related

Modules & VBA :: Filesystemobject File Picker Does Not Highlight Initial File

Jun 20, 2014

I am using the following code to select files using Microsoft Office's file dialog:

Public Function fTestFilePicker() As String
Dim fdFileSelection As Office.FileDialog, lstrFileName As String
Const kInitialFile = "F:TestbedTest.txt"
Set fdFileSelection = Application.FileDialog(msoFileDialogFilePicker)
With fdFileSelection
.AllowMultiSelect = False

[Code] .....

When I execute it, the file picker goes to the right folder but does not highlight the file test.txt even though that file name shows in the File name text box. Is there any way to correct this?

View 7 Replies View Related

First Initial

Mar 7, 2006

How do i trim a name in a string.

I have 2 rows with firstname in one and the second has surname. if i wanted to view the results to have A Einstein rather than Albert Einstein, how would this be done?

thanks.

View 1 Replies View Related

Retrieving First Character (initial) From Forename

Oct 31, 2006

hi, im a bit stuck. i am creating a mail merge and i want access to retrieve only the first character of the forename to input into the mail merge.

e.g. Dear Mr. R Price.

I want the 'R' to be retrieved by access from the full forename, so 'R' would be retrieved from the name Robert in the forename field.


Thx

View 4 Replies View Related

Queries :: Syntax To Remove Initial?

Apr 10, 2015

I have table where First Name, Last Name and Initial are all in one field. What is the syntax to remove initial? Been playing with Right and Len with no success, I'm sure this has been done before.

View 14 Replies View Related

Forms :: DLookup Without Initial Characters

Feb 12, 2015

I run duplicate check on a form to make sure the file name doesn't match one that's previously been entered. Currently I have:

If Me.NewRecord Then
If Not IsNull(DLookup("File", "tblFileProcessing", "[File]=""" _
& Me![File] & """" & " and [FileClientID] = " & Me![FileClientID])) Then
DoCmd.OpenForm "frmDuplicateFiles", acNormal, , , , acDialog
End If
End If

However we've recently changed the way we work and have now added a unique ID number prefixed to the file name: 567_File_Name_1 How do I run the DLook up but parse off the digits prior to the first underscore and only check on the remainder of the file name?

View 5 Replies View Related

How To Set Autonumber With Current Year As Initial Value

Jun 30, 2013

I want access to generate for me an autonumber, but with the current year as initial value. ( To give new hired employees a unique number). For example, we are now in 2013

If there a new hire, that employee is going to get a unique number 2013001

The next new hire, will get 2013002 and so on

I know how to append a table to set the initial value, but this means, that next year I will have to append a new table again to set the initial value to 2014.

I want access to do this automatically for me, so that next year a new hire will get the unique number of 2014001, the next one will be 2014002 etc...

View 4 Replies View Related

Extracting Middle Initial From Text String

Dec 21, 2005

Hello,

Is there an easy way to split a full name into firstname, middle name and lastname? I have a field name with names such as James R Lowes and i would like to split the name in 3 like.
Firstname : James
Middle Initial: R
Lastname: Lowes

I was able to find a module to extract the first name from a string, but don't know much about VB and cannot figure out to do the rest.

Please help!

thanks,

Pablo

View 5 Replies View Related

Extracting Middle Initial From Text String

Dec 21, 2005

Hello,

Is there an easy way to split a full name into firstname, middle name and lastname? I have a field name with names such as James R Lowes and i would like to split the name in 3 like.
Firstname : James
Middle Initial: R
Lastname: Lowes

I was able to find a module to extract the first name from a string, but don't know much about VB and cannot figure out to do the rest.

Please help!

thanks,

Pablo

View 14 Replies View Related

Forms :: Set Initial Sort By Two Columns Keeping Highest Priority

Jun 3, 2015

I have a form presented in datasheet layout.

I set the initial sort by two columns, but I would like to keep highest priority for that initial sort, so when user wants to sort by some other columns that sort happens inside my initial sort.

View 13 Replies View Related

Combo Box Display 0

Oct 1, 2004

I have combo box # 1 with value list of "OLD" and "NEW" and combo box # 2 with its row source coming from a query. Here's the scenario - A user chooses "OLD" on the first record from combo box # 1 and the code works fine. But when the user chooses "OLD" again on the next record, what code do I write so that combo box # 2 displays a 0?
So to re-itirate, please help me write the code if the item on the list is selected again, the value of the other combo box would display 0?

Please help. Thank you.

View 7 Replies View Related

Combo Box Will Not Display Selection

Dec 14, 2005

I have a form that calculates freight costs. I'm using a combo box for the user to select the route of the shipment from shipping port to destination port. The combo box has 2 fields. The index which is stored in the database and the description which is displayed to the user. I used the wizard to create the combo box and set the index to be saved in a table. Everything works fine, the freight cost is calculated correctly and the data is stored as designed.

The problem is when if the user goes back later and opens the screen to view the freight information, the combo box doesn't display what was selected previously. Therefore, no freight is calculated and the user has to reselect the combo box again. When I check the table, the index value of what was selected is in the table, but it will not display in the combo box.

. . . . Additional info to this post. . . . The combo box is set to use a data from a standard table. The user can only select what is displayed in the list. However, the index is then stored in another table after the selection is made. I want the combo box to do something like, if a selection was previously made then displayed what was select, if not, then display the data from the standard table.

What did I do wrong during the set up? Thanks for your help solving this problem.

Jeff

View 1 Replies View Related

Help With Combo Box Display Problem

Jan 6, 2006

I need some help please
I have a db that has three forms (1 frmSearch, 1 frmFindCountyInfo and 1 subfrmFindCountyInfo (embedded in the frmFindCountyInfo)
I also have 2 tables (States and CountyInfo with StateID and CountyID set as PK in each).
Now I am trying to design it in such a way that when someone double clicks a State from the Mainform (FrmSearch), it should bring the frmFindCountyInfo with the corresponding state info for that State and this works fine.
Now in the subfrmFindCountyInfo, I want the user to be able to pick from a combobox a county within the Counties from the state selected and displayed in the frmFindCountyInfo
Data Source for FrmSearch: States
Data Source for FrmFindCountyInfo: States
Data Source for SubrmFindCountyInfo: CountyInfo
I also have a one to many relationship defined between StateID in States table and StateID in CountyInfo Table (I dunno if I am using it right though)

I have a query that works in Datasheet view but when I run the form, it picks just one county and there are non on the droplist.
Any help will be very much appreciated. Here are my queries…
Query to get State and Corresponding Info (works Fine)

SELECT States.StateID, [State] & " " & [Alias] AS StateFullName, States.Alias
FROM States;

Query to get County and corresponding data (seem to work in datasheetview but pulls up just first alphabetical county in combo box on form)

SELECT CountyInfo.County, CountyInfo.ReleaseFee, CountyInfo.ReleaseComment, CountyInfo.AssignmentFee, CountyInfo.AssignmentComment, CountyInfo.AdditionalInfo, CountyInfo.LastUpdated
FROM CountyInfo INNER JOIN States ON CountyInfo.StateID = States.StateID
WHERE ((([Forms]![FrmFindCountyInfo]![State])=[CountyInfo]![State]))
ORDER BY CountyInfo.County;

Also when I run subfrmFindCountyInfo alone ( I have to input State) it has the drop down with all the counties.
I dunno whatelse to do. Any help willbe very much appreciated.

View 8 Replies View Related

Combo Box Display Different Than What's Going In Record

Jan 24, 2006

I have created a combo box that simulates browsing, but limits it to a single filepath. I would like to store this file path along with the filename into my database in a field. There are two ways of doing this that I have found work, but i need a less cluttered way. 1) My rowsource string is created byrowString = rowString & filePath & fileName &";"fileName = dirthat's in a loop that reads all the files in the directory.... the problem with setting this rowsource to my combobox is that its very long and cluttered looking combo boxMy secont way is: rowString = rowString & fileName &";"fileName = dirThen i make a hidden text box whose value is filePath + Me!cboBox where the cboBox has the string value of the file (Sample1.jpg) In this instance i make the text box the control source instead of the combo box... but I'm pretty sure that's a bad way of doing what I want to doboth of these ways seem ... redundant, so i was wondering if there is a way to do this otherwise ?

View 3 Replies View Related

Combo Data Display

Feb 2, 2006

I am fairly new to VBA, having done no fromal training. I have taught myself quite alot and I am pleased with how i am progressing. I am stuck though!

I am building a booking system for a friends business, all free of charge as I believe it's a good project to get experience in VBA.

The booking form has a 'Date' Combo box, 'Name' Combo box and a 'Time' Combo box. The 'Time' Combo box displays times in 10min intervals from 0600 to 2100, and this data is stored in a table called 'tblTimes'. I need to build a query that checks the main table 'tblBooking', for a selected date chosen in the 'Date' Combo box by the user, to see what times have been used up and thus only display, in the 'Time' Combo box, those times not yet used for that particular datedate.

I am sure, to some of you experts out there, that this is quite a simple query. I looki forward to your input.

View 6 Replies View Related

Using A Combo Box To Display A Table

Jul 7, 2006

I'd like to be able to select a choice of printer manufacturer(as a combo box), which will then display all the printer cartridges made by that manufacturer in a table below the combo box. I have made the forms (with the relevent combo box looking up manufacturers) but am now sure how to relate the two so that the table updates, depending on which manufacturer is selected. Again this seems like a simple problem but I am new to access and sitll working my way around the program.

(Yes, I have tried goodle, but I can't seem to find quite what I'm looking for)

View 1 Replies View Related

Using A Combo Box To Display A Table

Jul 7, 2006

I'd like to be able to select a choice of printer manufacturer(as a combo box), which will then display all the printer cartridges made by that manufacturer in a table below the combo box. I have made the forms (with the relevent combo box looking up manufacturers) but am now sure how to relate the two so that the table updates, depending on which manufacturer is selected. Again this seems like a simple problem but I am new to access and sitll working my way around the program.

(Yes, I have tried goodle, but I can't seem to find quite what I'm looking for)

View 3 Replies View Related

Display Dat On Basis Of Combo Box Selected Value

May 31, 2006

Hi

I am posting this question again, as I think there was some miscommunication from my side. I sinccerely apologise.

Actually there are three fields on a form.

1. Combo Box : Label is Name
2. Text Box : Label is Code
3. Text Box : Label is Department.

These three fields are stored in the table.

I wants that when the form gets loaded, then in the combo box field all the names from the table should appear. When I select the particular name from the list and the focus is lost from the combo box then the two values from the table should show the corresponding text boxs.

Thanks in Advance

View 3 Replies View Related

Display Dat On Basis Of Combo Box Selected Value

May 31, 2006

Hi

I am posting this question again, as I think there was some miscommunication from my side. I sinccerely apologise.

Actually there are three fields on a form.

1. Combo Box : Label is Name
2. Text Box : Label is Code
3. Text Box : Label is Department.

These three fields are stored in the table.

I wants that when the form gets loaded, then in the combo box field all the names from the table should appear. When I select the particular name from the list and the focus is lost from the combo box then the two values from the table should show the corresponding text boxs.

Thanks in Advance

View 1 Replies View Related

Display Combo Box Before Running Query

Mar 14, 2008

Hello I have Supply order Database
I want to display combo box
after selecting the month the query will run

plz tell me how to do it.......


kindly reply

if any 1

thanks

View 3 Replies View Related

Default Display On Combo Boxes

Aug 24, 2005

Is there a way to force a combo box to display the first value in the list as its default value?

To be more specific the combo box needs to display this value when the parent form is opened or when you use VBA to change or add the row source.

When ever I use a saved query as the row source the default value is always Null.

Thanks Everyone,
Joe

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved