I have a listbox on a form that looks up a table to to allow me to pick a stock location. The table only has 2 colums in it, the Primary Key Field (ID) and the Store location. When using this in a a form instead of getting the Stores Location, all I get is the ID. I have tried changing the Bound Volumn Value and the Column Count Fields, however no change.
View RepliesI have a list box with 3 columns and one line on my form and am writing an update query that is to use the value from the first column of the query to update a record in a table. I have referenced the list box as ListBox.Column(0) but the code displays a value of null when I run it and the record that is to be updated is updated to Null (it is blank). How do I write the code so that the value that is in column 0 of this list box is passed through the code?
View 14 Replies View RelatedIs it all possible to create the equivalent of a combo chart in Excel in Access?
What I need is a graph showing a certain dataset as columns but also a line showing the average for that set.
As an example lets take an exercise programme in a school, each child performs a series of exercises every week and data is recorded, to monitor their fitness progression.
Lets say I wanted to show a graph of one particular exercise, with the class students listed along the x axis, and then show the class average for that exercise dataset as a line on the same graph.
Table Info:
EmpProfile: EmpID (Primery Key), EmpFirstName, EmpLastName, Emptitle, EmpPhoneNumber
EmpTimes: EmpID (1 to Many relationship with EmpID primery key), Timein, Break, TimeOut, Totalhours
Query Name:
Selects the table from EmpTimes
Calculates the total hours worked for an empid, on a given day. It produces the total hours as "CalcTime"
Form Info:
1st Form Name: MainForm
Text name to enter empID : Txtempid (unbound)
Record Source: EmpProfile
2nd form name: SFTimeSheet
This is a subform within main form
Record Source: QryTime
Child and master fields are linked using : EmpID
Expecting Result:
When enter empid on the MainForm, in txtempid
subform should retrieve all entries for that empid
Getting result:
regardless what empid entered in txtempid, subform shows only the 1st record available in EmpTimes.
The following code works to change the column header name for a listbox in form view when the data source is a local table, but not when the data comes from a sharepoint list.
Code:
sqlstatement = "SELECT ID, PONum as [PO Number], ActDate as [Date], VendorName as [Vendor Name], Service, BuildingNumber as [Building Number], ReservationDescription as [Description], POAmount as [Amount], QuoteType as [Type of Quote], Comments" & _
" FROM ActivityLog" & _
" WHERE (Activity = 'AcceptReservation') AND (PSCName = '" & Me.PSCCombo4.Column(0) & "')" & _
" ORDER BY ActDate;"
'MsgBox sqlstatement
Me.EditPOListBox.RowSource = sqlstatement
sqlstatement = ""
Also it appears that there is no such thing as a caption property for a sharepoint list column.
The code I have is.
Code:
Private Sub Command26_Click()
If Forms![test site]![prp test].Form.[A Right Answer] = -1 Then
Forms![test site]![number correct] = Forms![test site]![number correct] + 1
End If
DoCmd.FindNext
End Sub
Then when clicked it checks a yes/no box to see if "A right Answer" is the correct yes. Then it should pop to the main form and take the number correct cell and add one to it. I am trying to get the record to go to the next record inside the sub-form but docmd.findnext seems to be wrong too.
Hi Everyone,
I hope I'm posting in the right place, I've been trying to solve my problem using queries so I thought it might be appropriate here.
I have a database for a health care service which contains among others the following four tables...
Table 1 contains client details, primary key [ClientID] plus other client details.
Table 2 contains Episode of care details, primary key [EpisodeofcareID], [episodeofcareDate] etc...
Table 3 contains all test results for assessment 1, primary key [CoreID], [CoreDate] plus numerous scores for individual tests.
Table 4 contains all test results for assessment 2, primary key [HonosID], [HonosDate] plus numerous scores for individual tests.
Table 1 is linked to Table 2, and Table 2 is linked to both Table 3 & 4.
I have set up a search procedure whereby the user enters a clients name which then opens a list box of all clients with that name. When the client selects from the listbox I want a second listbox to open which has three visible columns. One giving the date of each episode of care for the client, the second giving the date of each assessment completed and the third giving the name of the assessment carried out.
I'm managing to get the date of the Episode of Care to display on the first visible column but I'm getting stuck on the next two. This would seem to involve somehow combining data from different tables into individual columns on the listbox. For example I need the second visible column on this listbox to list all the dates of assessments for the chosen client from tables 3 & 4. (e.g. [CoreDate] and [HonosDate]). Column three would then give the title of the assessment next to the date in column two. None of the tables have a field listing titles as this is determined by which table the data is entered into. I've been trying to solve this by queries without much success.
Could anyone give some ideas as to how I could solve these problems?
Many Thanks
John
i have created a login form that opens the home page when the correct credentials are entered. i would like to add an 'access level' so that when logging in the database checks the access level and opens the appropriate home page. (i.e. level one has selected options.. level three has admin)
i just need a code that checks what the users level is and then open home lvl#
(i.e. user level 1 - open 'home lvl1', user level 2 - open 'home lvl2 etc)...
Hi everyone,
I have a combo box that is populated from a table called tblProducts.
There are only three fields ID, Model and Description in this table.
ID is the primary key field and is an Autonumber
In the form when a user selects a product from the combo box the "Model" fields is displayed which is how I want it.
I am doing a query that should show the "Model field however when I run the query it shows the "ID" field which is useless information for the end user.
How do I show the correct field in the query?
So i have a form with 3 fields. (This is just a test form/table):
ID: autonumber
Fullname: text field
Last4: number field
I have the following code:
Code:
DoCmd.OpenForm "test", , , "Id = '" & Me.List14 & "'"
It keeps giving a mismatch error. How do i get it so I can use the autonumber to filter the form?
Code:
DoCmd.OpenForm "test", , , "Fullname = '" & Me.List14 & "'"
When I do this it works just fine.
I have a form that should give me all values below " 0" but I am getting zero
but when I click on that value I see this
-1.52587890625E-05
I have a listbox that is populated with data from a table. I would like to use one of the columns data as the where clause of a sql string that will populate another form, how do I get the selected items column data that I need into a variable? This is in Access 2010 vba.
View 9 Replies View RelatedI have a form which contains fields from my main table and also has a subform containing a query based on a filtered list of my main table.
I have a combobox on the form to select a name and pass it to the query to filter on.
The list of names is in a table called tblnames which has 2 fields, name and ID. I have linked the ID field on this table to a field called nameid on my main table which is a numeric field (and that allows be to select a name from a list when I enter data into my main table.
The xox is unbound, control source empty and row source set to tblname.
The combobox is only showing a list of numbers (I assume they are the id field from tblname). Yesterday I had the list of names showing and I checked a backup and the only difference I can see is the row source property refers to the name field in tblname but I don't know how I got it there. When I click on the list box for row source I only get offered a list of my objects.
I'm still a little new to this, so please bear with me. I've searched to no avail for what I am looking for, so if there is an existing thread and you would rather point me in it's direction as opposed to answering my question, that would be fine.
I want one of the parameters of my delete query to be only the first column of my "ProdList" listbox, but don't know how to specify this. This is what my query looks like so far... Can someone tell me how do i need to change it?
DELETE ProductionLog.Username, ProductionLog.Date, ProductionLog.OrderNumber
FROM ProductionLog
WHERE (((ProductionLog.Username)=fOSUserName()) AND ((ProductionLog.Date)=[Forms]![Production]![TheDate]) AND ((ProductionLog.OrderNumber)=[Forms]![Production]![ProdList]));
If I have a Query, and I want to list the sum of one of the columns of that query in another text box on a form, is this the correct way of doing it?
=Sum([Drivers Other Shifts].[Duration])
In this case, "Drivers Other Shifts" is the name of the Query, and "Duration" is the column header. When I try this I get #ERROR, so if it's just that something else is wrong, or that my expression is the wrong way to go about it...
My form is setup with Continuous view, with data feeding from a table. The structure is straighforward (excel style). AgentID, workHrs, holidayPaid, holidayUnpaid, sickHrs etc. The structure is not normalized, and I know the risk. This is basically only for human interpretation, not really a structure that will cause instability or patched up working of the DB.
I have the continuous form view, so it can be viewed in one single display, I have placed a Totals at the footer, which is populated by nothing but a simple = Sum(columnName). This works great in most of the computers, except one. My boss's computer. Which is where it actually needs to work. I am baffled, because I have tested it on almost every single computer in my office, everyone's work. Just his computer is playing up. I am unable to pin point the problem. The status bar keeps going "Calculating..." but even after giving it a solid 5 minute it does not seem to work !
What I'm looking to do is calculate the success rate (%) of compliance rates with Quality Control paperwork. Essentially, each record has 12 "check box" fields representing the different QC sheets that are submitted each day.
QCflavourChange
QCfillerOperator
QCblowMoulding
QCtorqueTest
QCnetContents
QClabeller
QCpacker
QCpalletiser
RMpreform
RMclosure
RMlabel
RMcarton
I have been able to find the code for counting the success rate of a specific type of QC sheet across multiple days worth of testing, eg:
=Sum(IIf([RMpreform]=True,1,0))])
But I have been unable to determine how I can count the total of all the successful fields listed above, across a single record.
I had a badly corrupted form in a front end DB. Compact/Repair didn't work. Importing everything into a new DB didn't work .... the db crashed access.
I imported everything except the dud form into a new db and everything was fine. I copied all the fields and controls into a new form.
When it came to copying the VBA, I did it one control/procedure at a time (from the Property Sheet) as I though it was safer.
Was I being over-cautious? Could I have safely copied/pasted all the code in one go ?
I am trying to get the message Request added to show up when the new record command works.
The message "add button error" show if there are any errors, rather than just doing nothing and stopping.
However when it works I get both, I know I doing something very simple very wrong.
Private Sub bAddRecord_Click()
On Error GoTo errorhandler
RunCommand acCmdRecordsGoToNew
MsgBox "Request added "
On Error GoTo 0
errorhandler:
MsgBox "add button error"
End Sub
i want to allign a listbox column data, associated with a table as right, center & left, is it possible? if possible please help me
thanks in advance
hello all,
I was wondering whether there is an "easy" way to make the column widths of a list box to adjust to the largest peice of data under it.... without filling it in yourself in the design view... So in VB....
I know that there is the property COLUMNWIDTHS, and that you can adjust it by calling that property..
But how to make it the column width to adjust automatically to the largest piece of text in that column??
Any ideas would be welcome...
tnx
Zurvy
Anyone know how to reference the name or header of a particular column in a listbox control?
i've tried,
Me.lstBox.Column(1).Name
Scott
Using ms access 2010, I created a table called all items contains the ID, item name, item code, item price.
Second table I created called orders, contains item1,Q1=quantity,Tot1=calculated field.
Then a form to fill the orders table with a combo box for Q1 (gets the value from a table called numbers), second combo box for item1 (gets the value item code and item price from the table all items), and a text box to calculate the total of the Q1-item1(item price) All working perfect except the combo box for item1 ends up displaying a different item code that's only if the items were at the same price, for example, I choose latte from the combo box gives me correct item price but the code is cappuccino, only happening with items with the same price.
If I set the property of the combo box Bound Column to 1, I get correct item code but calculation error, Bound Column to 2, I get correct calculations but wrong item code. how to get the combo box to display the correct item code?
I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date
So instead of:
file1.txt (13-02-14)
Then
Send error message ("file not updated") to: Error.txt
IF NOT
no action requeried
This code does the following :
file1.txt (Modified date: 13-02-14)
Then
Send error message ("file not updated") to: Error.txt
file2.txt (Modified date: 14-02-14)
Then
Send error message ("file not updated") to: Error.txt
Code:
Sub CheckD()
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object: Set objFile = FSO.GetFile("C:Users
ameDocumentsShow5621.txt")
If objFile.DateLastModified <> Date - 1 Then
[Code] .....
So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.
How can I sum the amounts in the list box column and show the total on the main form?
View 2 Replies View RelatedHi
I've created a listbox and am using the following code
stWhat1 = "": stCriteria1 = ","
For Each vItm1 In Me!LstArchive.ItemsSelected
stWhat1 = stWhat1 & Me![LstArchive].Column(0, vItm1)
stWhat1 = stWhat1 & stCriteria1
Next vItm1
Me!txtCriteria1 = CStr(Left$(stWhat1, Len(stWhat1) - Len(stCriteria1)))
The problem is that my bound column is a text field. I'm really struggling on where to put my quotations so that I get the following with the In function
In('00638','00639').
Any help or pointing in right direction would be very much appreciated
Carrie