I am creating a form that will allow users to add records to a database, the only text field required is a name field. The other fields are drop down boxes populated by other querys from other tables.
It is hard to explain but basically the combo boxes are populated with text but the database fields I am adding the record too is Number (Primary keys from other tables) so I am wandering what the query would be to get the ID number for the choosen item.
ie. TO FILL THE COMBO BOXES I HAVE LINES LIKE THESE.
select SpeciesName
from Species
With SpeciesName comes a SpeciesID.
So would it be something like this:
**** speciesSelected in this case would be a variable (Dim speciesSelected As String = cbxSpeciesName.Item)
select SpeciesID
from Species
where SpeciesName = speciesSelected
Any help would be amazing.
Instead of fetching only the text fields SpeciesName from the database and loading that into the combobox. Retreive both SpeciesID and SpeciesName from the database and bind both of them to the combobox like SpeciesID as IDfield & SpeciesName as Textfield.
By doing this you can get the speciesId of the species selected directly using the selectedValue property of the control. This can be directly used to store in the database.
Related
I have created an MS Access database with several tables and queries but the problem described further down is about the following:
tEmployee table contains employee data as the name implies.
tCases table contains data about court cases.
Each case can be assigned to only one employee. I have created a relationship from [tCases]![assignedTo] field to tEmployee.
fSearches is a form to perform searches among the cases. It includes a combobox cEmployee which is populated from [tEmployee].[surname] and a command button to perform the search.
GOAL: to select employee in [fSearches]![cEmployee], hit the button and show all the cases assigned to this employee in another form named fResultsCases.
This is the code for the button where lines in comments are some of the things I've tried:
If cEmploee.ListIndex = -1 Then
MsgBox "You have to select employee to perform search.", title:="Missing value!"
Else
tHidden2.SetFocus
tHidden2.Text = "assigned to " & cEmploee & "."
DoCmd.OpenForm "fResultsCases"
'Forms("fResultsCases").RecordSource = "SELECT * FROM tCases WHERE [tCases]![assignedTo] like [Forms]![fSearches]![cEmploee];"
'Forms("fResultsCases").RecordSource = "SELECT * FROM tCases WHERE tCases .[assignedTo] = [Forms]![fSearches]![cEmploee];"
Forms("fResultsCases").RecordSource = "SELECT * FROM tCases WHERE [assignedTo] = [Forms]![fSearches]![cEmploee];"
Forms("fResultsCases").Recalc
End If
With all the above mentioned I get the following:
[fResultsCases] opens but does not return any case.
I tried to omit the WHERE clause and [fResultsCases] returns all cases as expected.
Then I tried to narrow things down to understand the problem by creating a simple query with one parameter and got exactly the same results.
SELECT tCases.[case number], tCases.subject, tCases.fromDt, tCases.toDt,
tCases.assignedTo, tCases.[date assigned], tCases.[date completed]
FROM tCases
WHERE (((tCases.assignedTo)=[Forms]![fSearches]![cEmploee]));
It seems like I'm missing something about the WHERE clause when it comes to combobox values but I can't figure it out. I am new to MS Access. Any help will be very appreciated.
UPDATE:
cEmploee rowsource property: SELECT [tEmployee].surname FROM tEmployee ORDER BY [surname];
cEmploee bound column property: 1
I cannot recreate your issue replicating your setup with combox that triggers an update of form's recordsource. And because neither an error is raised nor parameter input prompt appears, likely the WHERE clause is returning False (i.e., no matching records) and hence no rows are returned.
The reason can likely be due to the combobox [Forms]![fSearches]![cEmploee] which show Employee's surname but is bound to the unique ID as the default setup of Access' comboboxes (if using wizard). See Data tab of combobox's properties in Design View.
The reason for this hidden bound field is users never know the unique ID of a record but do know the value (i.e., name). So when they select the recognized name they are really selecting the corresponding unique ID. Therefore, consider adjusting WHERE condition accordingly where ID is the unique table ID field which matches the bound field of combobox.
Forms("fResultsCases").RecordSource = "SELECT * FROM tCases WHERE [ID] = [Forms]![fSearches]![cEmploee];"
Forms("fResultsCases").Recalc
Forms("fResultsCases").Form.Requery ' USUALLY THE RECORDSOURCE UPDATE CALL
After about ten days of "struggle" with this brainteaser, I decided to post this question to ask for help. Fortunatelly #Parfait has involved with my problem and with his/her accurate remarks helped me understand my mistakes. It also helped me Ken Sheridan's post here. So I am posting my answer just for future reference. #Parfait, I sincerely thank you for your time.
So the problem in this case was primarily understanding how relationships between tables affect data types. If you want to connect a textfield of tableA to tableB, then there are two cases. If the primary key in tableB is number then textfield becomes number. If the primary key in tableB is text then textfield remains text.
In my case it was the first one. Specifically the field [tCases]![assignedTo] after creating relationship with table [tEmployee], was turned automatically into number (It still shows the surname but contains the corresponding primary key in tEmployee). On the contrary combobox [cEmploee] still contained text. This why this line:
Forms("fResultsCases").RecordSource = "SELECT * FROM tCases WHERE [assignedTo] = [Forms]![fSearches]![cEmploee];"
was not returning any record as #Parfait successfully guessed.
At this point there were two possible solutions:
1) Set surname as primary key to agree with combobox contents.
delete the relationship between [tCases]![assignedTo] and [tEmployee].
set field [tEmployee]![surname] (which is text) as primary key in table [tEmployee].
create a new relationship between [tCases]![assignedTo] and [tEmployee].
I did not try this solution though, as a problem would occur if 2 employees had the same surname. So I suggest following the second.
2) Keep the same primary key and use it to match the records from tableA to the surname from tableB.
To achieve this you have to inform access, that you want the records from tableA that have the ID, while in tableB this ID corresponds to the surname inserted in the combobox (hope this makes sense). In other words create a recordset of both tables (union query). For this purpose I replaced the above refered line of code with the following:
Forms("fResultsCases").RecordSource = "SELECT tCases.* FROM tCases INNER JOIN tEmployee ON tCases.[assignedTo] = tEmployee.[employeeID] " & _
"WHERE tEmployee.[surname]=[Forms]![fSearches]![cEmploee] AND tCases![assignedTo]=[tEmployee]![employeeID];"
Hope this saves some time from other people. Have a nice day!
I am working on VB.net Windows application. I have a database table with unique Employee Ids. If the user enters multiple employee Id in text box.I want to display the result of the query with text box input( Ex 001, 002,003) concatenated with where IN query to display the result into gridview.
Example:
Select * from Employees where Employeeid IN(textbox values)
You can use directly the values from your text box if the value in the text box are comma separated and the field is numeric in the table.
sql = "Select * from Employees where Employeeid IN("+ textbox.text +")"
If the user dint add comma separated then you can use Replace function
sql = "Select * from Employees where Employeeid IN( "+ textbox.text.Replace(" ",",") +")"
If your EmployeeId column is not numeric then you have to use single quotes with every value entered in the text box. i.e In('121','123','124')
Please do not do what you are doing. It is incredibly vulnerable to SQL Injection. If you do not know what this is, then please Google it. What would happen if someone entered in your TextBox "1,2); DELETE FROM Employees WHERE 1 IN (1,2"?
If you must allow multiple selection it is much better to do so via e.g. a ListBox showing all possible values, with SelectionMode MultiExtended. You are then in control of arranging the choices into a safe SQL command to send to the database.
Edit
As a secondary point, if your employee ids are in the form 001, 002, 003 etc then they are some form of string/varchar/text, in which case all the elements in the IN () will need to be surrounded by single quotes. Again far easier not to rely on your users knowing this.
I have a MS Access Form that has Student ID,
This is ok, I can see student ID as it should be
What I want is to display Student Name instead of Student ID
I used SELECT StID, StName From Students in "Row Source"
"Row Source Type" = Table/Query
"Bound Column" = 1
I could not find any property where I can decide the Display Column
Help is much appreciated.
Thanks
Go to the "FORMAT" tab of the Form Properties Dialog Window (the same one you used to set the Row Source and Row Source Type properties)
You'll see two fields (Column Count and Column Widths)
Set Column Count to 2.
Set Column Widths to 0";1"
This works in Access 2007. Any version later then 2007 should also work.
By setting the column count to '2' you're displaying the StudentId and the Name. Then by setting StudentId column width to '0' you are hiding the column.
When you switch to Form View you will see the Student Names, but the value stored underneath is really the StudentId. Neat trick.
Hope this helps.
I have a form (fCen1-20) containing two combo boxes. The first combo box is called Lookup Value and the dropdown contains the field Lookup_Value which serves as the primary key for every table in the database. The second combo box is called Category and the dropdown contains the fields Category, Code, and Table.
I would like for the user to select the Lookup Value and Category and for those selections to inform a query which returns the value of the selected Category for the selected Lookup Value. The complicating factor is that each Lookup Value is associated with over 1500 unique categories of information which are each assigned a unique code -- the code serves as the field name.
For your reference, I have pasted my code, along with my rationale, below:
SELECT [Forms]![fCen1-20]![Category 1].Code
' Rationale: Get the value for the Code associated with a given category
FROM [Forms]![fCen1-20]![Category 1].Table
' Rationale: Reference the Table where the selected Category/Code is housed
ON [Forms]![fCen1-20]![Category 1].Table.Lookup_Value = _
[Forms]![fCen1-20].[Lookup Value];
' Rationale: Select only those records in the table
' for which the Lookup_Value field matches the Lookup Value
' selected in the form
When I run this code, I'm given a "Syntax error in FROM clause" error. Any suggestions on how to make this work? Please let me know if you'd like any additional detail or clarification. Thanks!
If you use this in a query, it will probably work assuming the form fCen1-20 is open in Form View.
SELECT [Forms]![fCen1-20]![Category 1]
The value returned will be from the bound column of the currently selected combo box row. The fact that [Category 1] includes 3 columns does not matter. The db engine only sees the column which is "bound". (Check the combo's Bound Column property on the Data tab of the combo's property sheet.) The bound value is the only combo value available in a query.
You can not append a column name to the combo name to retrieve the values from those columns, so these will both fail:
[Forms]![fCen1-20]![Category 1].Code
[Forms]![fCen1-20]![Category 1].Table
That was my explanation for why I believe your approach is not working. However, I don't know what to suggest instead. In general, if you use a table's primary key as a combo's bound value, you can use that bound value with a DLookup expression in a query. As an example, assuming all values are numeric ...
SELECT fld1, fld2, etc
FROM YourTable
WHERE some_field = DLookup(
"lookup_field",
"AnotherTable",
"pkey_field = " & [Forms]![fCen1-20]![Category 1]
);
Unfortunately I don't know whether that suggestion is useful for your situation because I don't clearly understand what you're trying to accomplish.
What I am trying to accomplish is a single list box with two columns. In each column, results from a field will be displayed. Take this query for example:
SELECT FirstName, LastName FROM Names WHERE FirstName = 'Tom'
The list box would have two columns, with the first column holding all first names selected from the query. The second column would have all last names selected from the query, but each column would be matching. Ie. in the database, a "Tom A" record would not be mixed with a "Tom B" record when displayed in the list box columns.
I've tried searching before, but all I can find is using listbox.AddItem, which will not work in my case since I am querying a database to populate the listbox.
Put that SQL in the RowSource property of the list box. Make sure your Column Count property is set to 2, and that the Column Width property is set to a value. Empty values or "0" will result in the column not being seen. So, your Column Widths property should be set to "2; 2" (without the quotes, and you can adjust those as necessary).