what is the best approach to get my listbox's values on a report. i have a form that has this listbox (the values in listbox can always change.. because the user has filter options.. to tell the listbox what records to display). this report will be run off of the same form (as the listbox is on)... can someone point me into the right direction?..thanks!
View RepliesI need to see in a report the content of a listBox with 2 columns, the listbox is of List of Values.
This one is an example of what I need.
:confused: :confused:
I have a report that is dependent on the content of a single text box (a student's name). I would like to be able to select multiple names from a listbox and loop through those names to print the reports. So far, no success.
I believe that if I could pass the name of the student during the loop to the text box, the report would print properly.
Below is an attempt to pass the names in the listbox to the textbox.
Set frm = Forms![Student Reports]
Set ctl = frm![lstStudentNames]
For Each vItem In ctl.ItemsSelected
Me.txtCurrentStudentName = ctl.ItemsSelected
Next v Item
Obviously this is not correct. Any ideas?
Thanks.
Hi,
I was wondering if anyone might be able to help me here. I have two tables, staff_table and salary_table.
Staff_table has the following fields,
Staff_ID, Staff_FN, Staff_LN,...
Salary_table has the following fields,
Sal_ID, Staff_ID, Sal_Date, Pay_Amt,...
In the salary form, i have a listbox that shows records of the joining of the two tables, because i'd like to be able to show the FirstName and LastName of staff. So Staff_table is joined to Salary_table via Staff_ID.
And also, in the form, i have a button to print out whatever's listed out in the listbox. It also has a combobox that is to filter the records by Staff_ID.
The salary report is created using the query named QSalary. QSalary is as a result of the joining of the two tables, Staff and Salary.
I hope i haven't lost you this far.
What doesn't work is when i filter by the Staff_ID of 10(michael), i can see there are a few number of records shown just for michael and i want to have them printed out on the report but it doesn't work. it shows the whole records in the salary table.
Here is my code
nlist = Me.LB_Salarylist.ListCount
For ncount = 0 To nlist - 1
stlinkcriteria = ",'" & Me.LB_Salarylist.ItemData(ncount) & "'" & stlinkcriteria
Next ncount
If Len(stlinkcriteria) > 0 Then
stlinkcriteria = "[QSalary.Sal_ID] In (" & Mid(stlinkcriteria, 2) & ")"
' i have tried [Sal_ID] and [Salary_table.Sal_ID], none of them work.
End If
stDocName = "Salary_SumReport" ' for producing salary summary report
DoCmd.OpenReport stDocName, acPreview
Your help is greatly appreciated.
Thank you in advance
I have a listbox inside name of workers which is coming from table (Workersdetail) on the otherside I have report from the same table which still showing all records of worker, this report execute through the form and by selection of listbox values. look into my following codes.
Dim strWhereworker As String
strWhereworker = "workername = Forms![workermenu]!workerslist"<--(Workerlist is the name of listbox)
Select Case Me!reporttoview
Case 3
'DoCmd.OpenReport "workerindividual1", acViewReport, , strWhereworker
Problem is, in the report all workers with related values showing while I want to get only the worker name I select from the listbox, I could not understand where I made mistake.
How can I pass data (an employee's first and last name) to a report ? I captured the employee's name from the listbox, but can't seem to pass it to the report. The desired report will only have the employee's name and records for related fields on the report. The table (contains emloyees' history data), form name, listBox (contains employees' names), and variable (contains the employee's name) are listed below.
Table_Employee_Detail_History
Form_Employee's Reports
Report_Attendance_Report
stremployee (variable
I have a report on this report there is a Destination City field and a Current City field, loaded from a table. I have a command button that loads a form to filter on the destination city, I have another command button that loads a form to filter on the current city location.
What I would like is, when I use the form to filter the destination city, then load the form to filter on current city, I want the listbox on the form for the current city to only list cities that are associated with that destination. Both form listboxes have the rowsource from the same table, just different fields. Is this possible?
I have a report based on a query, the report loads filter based on dates input to the query from Form1 when report loads. I want to filter this report further from a listbox on form2, but I want the listbox rowsource to populate based on a field in the loaded report. Is this possible?
View 2 Replies View RelatedI found a code which is work good with subform table for searching multivalued Listbox but it doesn't work with open report vba code. This is the code is used for filtering the subform and i need it for openreport command
If Me.cboDiscipline > "" Then
varWhere = varWhere & "[Discipline].value = '" & Me.cboDiscipline & "'"
End If
This the code (note: its for open filtered report)
Private Sub Toggle3_Click()
Dim strReport As String
Dim strDateField As String
Dim lngLen As Long
Dim strWhere As String
Dim lngView As Long
Const conJetDate = "#mm/dd/yyyy#"
[Code] ....
I have a form with a listbox on it and I am trying to make a button that will delete the selected records from a table. The List box is filled from a query. Any help would be very appreciated.
Table to delete records from = tbllinkPersonel_Training
listbox = lstTraining_In
_______________________________________________
Private Sub cmdDelete_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim var As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("tbllinkPersonel_Training")
If IsNull(Me.cboTraining) Then
MsgBox "No Class selected...", vbExclamation
Exit Sub
End If
For Each var In Me.lstTraining_In.ItemsSelected
With rs
.Delete
End With
Next
MsgBox "Deleted Successfully...", vbInformation
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Me.lstTraining_In.Requery
Me.lstpersonel.Requery
End Sub
____________________________________________
Thanks, Michael
I have a form with a subform which has a listbox on it which lists all the letters sent home to a student. However despite the subform being linked by admission Number the list box is showing all records and not just the ones associated with the student.
I know this is going to be really obvious but please can someone tell me what is wrong?
Here's a tough one that has been driving me crazy! (Probably easy, but I don't want to admit it!)
I have a form with a listbox called "lst_exclist". The recordsource for this listbox is the following query:
SELECT tbl_collexcludereasons.priority, tbl_collexcludereasons.excname, IIf(tbl_collexcludereasons.enabled=-1,'Enabled','Disabled') AS enabled, tbl_collexcludereasons.priority FROM tbl_collexcludereasons ORDER BY IIf(tbl_collexcludereasons.enabled=-1,'Enabled','Disabled') DESC , tbl_collexcludereasons.priority;
Which basically gives me this with dummy data:
2 PIPELINE ENABLED
3 HELLO ENABLED
5 GOODBYE ENABLED
1 BAD DISABLED
4 GOOD DISABLED
6 LAST DISABLED
I had two command buttons, one up arrow and one down arrow. The up arrow is supposed to move the selected record on the listbox up by exchanging the next lesser priority number with itself. The down arrow does the same. The DISABLED records are supposed to be ignored on the move up and move down procedures, meaning only ENABLED records are allowed to exchange priority numbers, and thus move up or down on the list. I tried the following code:
Me!lst_exclisthidden = Me!lst_exclist
DoCmd.SetWarnings False
Dim startingnumber As Integer
Dim endingnumber As Integer
Dim nametochange As String
Dim getchangerst As DAO.Recordset
If IsNull(Me!lst_exclist.Column(0)) = True Then
MsgBox "Please choose an entry on the above list to move.", vbCritical, "Error"
Exit Sub
Else
End If
If Me!lst_exclist.Column(2) = "Disabled" Then
MsgBox "There is no need to move a disabled selection, please enable the selection to change it's priority.", vbCritical, "Error"
Exit Sub
Else
End If
startingnumber = Me!lst_exclist.Column(0)
nametochange = Me!lst_exclist.Column(1)
endingnumber = startingnumber + 1
If Me!lst_exclisthidden = acLast Then
MsgBox "You cannot move the bottom selection on the list down, please choose another one.", vbCritical, "Error"
Exit Sub
Else
End If
While DCount("*", "tbl_collexcludereasons", "Priority = " & endingnumber & " and Enabled = -1") = 0
endingnumber = endingnumber + 1
Wend
DoCmd.RunSQL "Update tbl_collexcludereasons set tbl_collexcludereasons.priority = tbl_collexcludereasons.priority - 1 " & _
"Where tbl_collexcludereasons.priority <= " & endingnumber & " and tbl_collexcludereasons.priority > " & startingnumber
DoCmd.RunSQL "Update tbl_collexcludereasons set tbl_collexcludereasons.priority = " & endingnumber & " " & _
"Where tbl_collexcludereasons.excname = '" & nametochange & "'"
Me.Refresh
Me!lst_exclist = endingnumber
Me!lst_exclisthidden = Null
DoCmd.SetWarnings True
But it seems to loop when it gets the the area it is checking for numbers because the highest records is disabled, so it's ignored. How can I make this work? Please help!
Thanks
Vassago
Having an excruciatingly hard time seting up a txtBox and listBox to search records
ListBox, which contains an agency name should display all but filter out as user types in the textBox above. this listbox should allow a user to double-click to bring up record.
Will really appreciate the help! I have seen it being done on Access – and was wondering if anyone knows of a link or tip on setting this up!
ThankYou Friends!
Hello All...
I currently have a ListBox which I am using on a form as a "jump To..." record selector. It has to show 4 values to the users, and so far it has worked quite well. However, I recently added some queries to the footer of the form to help narrow down the data for searches, or if the user wants to see all open data of a certain topic. I'd like to have the ListBox "refresh" and only display the results of the query, but I cannot for the life of me figure out how to do it. The root of the problem seems to be that the initial SQL for the ListBox is selecting values from the under-lying table, and when the filter is applied, it simply doesn't care. When you click on entries that aren't in the filtered dataset, it doesn't error out or anything, and when you click ones that ARE in the filtered dataset, it does work properly... I'm close... How do I filter the listbox as well?
Thanks,
I have populated a list box with records using 3 columns. now I want to clear the list box
Me!Listproperty.Value = "" does not do it
what code should i use ?
Jabez
I need the following code to take data from a form and input it into two tables linked by the item ProjectID. My Code is as follows:
Code:
Dim pDate As Date
Dim fid, jan As Integer
Dim leng As Double
Dim strSQL As String
Dim varItem As Variant
pDate = Date
[Code] ....
I take the items that I'm putting into DailyT to track the date, foreman, Job Number, and how long they spent on the job. I got the DailyT part figured out.
What I don't know how to do is use the items in the list box lstSel and put them into the table ProjectT so that each record in ProjectT has the ProjectID from DailyT and the ActivityID that comes from the items in the listbox.
I know I'll need a loop but I don't know how to get the autonumber ProjectID (or define it) from the entry that I made in DailyT to put into ProjectT.
I have searched all the forms but could'nt find any answer which would help me , I have created a listbox , it works fine till the moment i set its 'Multi select' property to SIMPLE or EXTENDED , the minute i do that i get no results in my query , could someone please help me with this , i really really need to get this workin!! I have also uploaded my database so u could try it yourself...
View 11 Replies View RelatedI'm using pbauldy's code to filter a report by a multi-select listbox. The only issue is..how do I include more (7 to be exact) listboxes to the code? It seems the OpenReport vba is only allowing 1 where clause?
Code:
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'add selected values to string
Set ctl = Me.VP_ListBox
[Code] .....
Basically what I have is a form where a user has a drop down combo box that he can pick more than one value.
I then want to take what he has inputted e.g. Option1, Option2 and put that on a report in an unbound text box with another field value.
For example
=[Field1] & "/" & Option1/Option2
Those forward slashes are quite important as well, so any solution would need to include those.
I am using a SQL statement as the rowsource of a listbox. the expected result should be a list of 452 items which I verified by pasting the SQL statement into the Access query design and running the query directly. For some reason, in most cases, the listbox will only display 21 records. Other times it may display more than that (with the same SQL statement). What's really unusual is when I click on the form's "Find" button after the first set of 21 lines appears: it will then append more records to the list. Sometimes by doing this I can display all 452 records. The results seem to be somewhat random. I've tried adding delay loops, DoEvent statements, multiple requeries, repaint, etc. -- nothing I've tried seems to help. Any ideas?
View 3 Replies View Relatedhey all,
I'm using this code on a command button to delete single entries in a listbox... and it works fine
Private Sub DeleteMovie_Click()
CurrentDb.Execute "Delete from " & _
"tblMovies " & _
"where Title = """ & Me.lstList & """", dbFailOnError
Me.Requery
Me.lstList.Requery
Me.lstList = ""
End Sub
However, I want to try to select and delete multiple items in the list box. So I changed the property to allow multiple selections and now the button doesn't do anything when I click it. Ideally, I'd like the button to provide a "are you sure (yes or no)" prompt. Anyone know how to get this working? thanks a bunch
I am looking to loop through all of the rows in a listbox. For each row in the listbox, I want to check if the last name in the Labor column is contained in any records in the Labor column of a recordset. If it is contained, add the column value to a variable to eventually be shown in another listbox. It seems that the loop is not working correctly and the EstHours is always 0 and the instr function doesn't seem to be working.
Code:
Sub ScheduledHours()
'on error goto errorhandler
Dim LastName As String
Dim FullName As Variant
Dim EstHours As Long
[Code] ......
I use the follwing code to filter a report based on the listbox selection on a form. Below is the code I use, the problem it will error if the results have an apostrophe in the string.
Private Sub FilterDesc_Click()
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made
If Me.ListCarrier.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Carrier"
[Code] ....
I have button on my form that uses a selected record in a listbox (non multi-select) to run code that updates a table. The code itself works great so long as there is a record selected in the listbox. If no record is selected an error is thrown. I'd prefer the end user not to ever see that error. If the end user clicks the button and no records are selected, I'd like for nothing to happen at all. I've tried several variations of checking the listbox with an if / then statement to see if records are selected and if so to exit sub, but they all throw errors when no record is selected in the listbox.
Code:
If IsNull(Me!lstHeatTreatments) Then
Exit Sub
End If
[Code].....
I'm using the following code to clear selected records from a listbox after a button is pressed:
Code:
For i = 0 To lstProducts.ListCount - 1
lstProducts.Selected(i) = False
Next
The code works great except that it leaves the listbox scrolled all the way to the bottom. What is the best way to scroll back up to the top of the listbox without selecting another record?
I have a form where I do a search and find the correct auditor in the listbox from the AuditorTable. This form is opened from a master form where I have the same fields in the table (ClientTable). What I need is that when I find the one, I double click it and the records from that auditor is passed to the client table.how to use Dlookup.
View 14 Replies View Related