ListBox Selects Row When Scroll Bar Is Clicked
Oct 31, 2006I'm using Access 2002 and when I try to scroll up or down it selects the row and then scrolls 1 row. Is this a bug?
thanks
Paul
ADVERTISEMENT
Listbox HELP: Horizontal Scroll???
Mar 15, 2006Settings are:
Column Count: 2
Column Widths: 0"; 20"
Bound Column: 1
Width: 9.5417"
Why am I not getting a horizontal scroll bar?
If I add a 3rd column in I get a horizontal scroll, but it scrolls from column to column instead of across the full text of one column.
Modules & VBA :: Scroll Listbox To The Top - No Selected Records
Apr 23, 2014I'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?
Modules & VBA :: Access 2007 - Scroll Listbox Back To Top Without Changing Selections
Jan 29, 2014I have a listbox which is populated by a query from a table.
I also have a sub which allows users to quickly select multiple items from the listbox (based on a pre-defined criteria) rather than scrolling through and selecting them manually / individually
The sub works fine but when it is finished, the listbox is automatically scrolled to the bottom (or, rather, to the last selected item)
I would like to have the listbox scroll back to the very top once all of the appropriate items have been selected.
(I could loop through the listbox items in reverse - or 'bottom-up' - in the code but that would only have the desired effect if the topmost item was selected. I want it scrolled to the top regardless of whether the topmost item is selected or not).
Forms :: Access 2003 - Scroll To Selected Item On Multiselect Listbox
Sep 2, 2013I've got a form with a multiselect listbox (extended) that holds a very long list of items (~90,000):
1 | Apple
2 | Orange
3 | Banana
...............
35313| Corn cob
...............
The user can select multiple items (non-sequential) on the listbox, say items 1 and 35313. I'd like the listbox to scroll (meaning display) to the currrently selected item, so that the user can see it while being processed.
I've seen stuff about property ListIndex, which does exactly that, but it's only useful when you have just ONE item selected (in a multiselect listbox apparently it deselects the rest of the items, so no point in using it, I guess, unless there's more to it!!).
So the key here is how to do the scrolling/display.
The code to loop through the listbox and process each selected item is attached:
Code:
Dim vItem As Variant
Dim Content as String
For Each vItem In Me.lst.ItemsSelected
'scroll to selected item ???
'processing of the selected item
Content = Me.lst.Column(1, vItem) 'copy the content to do sth with it
Me.lst.Selected(vItem) = False 'unselect the current item
Next vItem 'go to next selected item
how to scroll to the currently selected item? Mind that I need to go through the list of selected items to process them for further use (i.e, I need them selected).
Forms :: Subform Scroll Bar Scroll To Bottom?
Apr 25, 2013I have a form and in the form is a subform. When I add a record with the following code, the subform detail scrolls in such a way that you can't see the record you just added...only a single blank new record. Can you set the scroll position so that I can see all the previous records including the one I just added?
Private Sub Add_PROJ_RECORD()
On Error GoTo Err_Add_Click
Me.PROJECT_DATA.Locked = False
Me!PROJECT_DATA.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.PROJECT_DATA.Form.PROJ = PROJ_COMBO
Me.PROJECT_DATA.Form.SPEC = SPEC_COMBO
Exit Sub
Deleting Selects Field
Oct 7, 2005I have this code that works fine exept for one thing. If I have two names that are the same it deletes them both.
currentdb.execute "insert into charmer91 (last,first) values ('"me.list0 & "','" & me.list0.column(1) & "')"
currentdb.execute "delete table1 (last, first) from table1 where last ='"&list0 &"'"
How can I change the delete statement so it only deletes the selected name I have in list0, ie.. the highlighted one?
Basically Im moving data from one table to another via listboxes.
thanks in advance
Query Which Selects Fields?
Mar 17, 2007Is it possible to create a query which selects selects fields in a table, not just data in a field? If so, how?
TIA
Combo Box Which Selects From One Table Out Of Many?
Aug 9, 2014So instead of having all of my data on a single table which is filtered out as I make selections in my initial 3 combo boxes, I'd like for each set of data to be on it's own table. Instead of filtering out the irrelevant data in a single table, I'd like the initial 3 combo boxes to instead filter out the irrelevant tables. My main reasoning for doing this is that I figure it would first off save me much trouble in the future when editing data within the tables and also that one huge data table would slow down Access eventually.
View 9 Replies View RelatedUsing IIF Criteria To Choose Between Two Different Like Selects
Aug 26, 2014I am setting up an Access database for a small school. The database contains a record per person. When we get a duplicate lastname field we set a family_id field to lastname followed by a number.
So for example the first Smith family needs to family_id. But the second Smith family gets a family_id of smith1. To select an ordered list of Families I need a query that will use the family_id if it is set and if not use the the lastname to collect family members.
My query uses a presorted table, CurStuByGrdTbl , of current students to produce the families directory by grade and alphabetized.
The WellSchoolCommunityAll table is the entire database. So if the student entry has a valid family_id, matching pattern "*#" then
I perform a Like with family.id otherwise I perform a Like with lastname.
This query gets me nothing, no records.
IIf(([CurStuByGrdTbl].[family_id]="*#"),[CurStuByGrdTbl].[family_id] Like [WellSchoolCommunityAll].[family_id],[CurStuByGrdTbl].[lastname] Like [WellSchoolCommunityAll].[lastname])
Multiple Selects And Records Store
Dec 21, 2005I'm creating an Access data entry form for computer installations.
Basically the entry form will choose a software and license, then select one or more computers to install the software on.
Then later we can create a report that can track what softwares are installed on the computers, or track what computers has what softwares.
Now my question is for each record of the installation entry form, after we select the software, then we will choose a computer name or more computer names.
If just one computer is easy, but how can I choose multiple computers, which control should I use? and how can I store the computer name list in the installation table, do I have to make each computer installation a record in the table or put multiple computer names in one record in the field like memo, but if I use memo, later it seems i cannot group or search memo field?
Can anyone give me some ideas about what is an easy design solution or samples about these?
Thanks a lot
Queries :: Query Selects Records Twice
Aug 22, 2013why this query pulls every record twice and what I can do to fix it?I did it in design mode because I'm an amateur, but here is the SQL.
SELECT [Patient Data Table].[First Name], [Patient Data Table].[Last Name], [Patient Data Table].[C MRI Facility], [Patient Data Table].[C MRI Sched Date], [Patient Data Table].[C MRI Scan Done]
FROM [Patient Data Table], [Date Range]
WHERE ((([Patient Data Table].[C MRI Scan Done])=Yes) AND ((Month([C MRI Sched Date]))=[Date Range]![From Month]) AND ((Year([C MRI Sched Date]))=[Date Range]![From Year]));
Multiple Selects In An Access Passthru Query
Sep 7, 2005Hi,
I'm trying to run a pass thru query into a sybase server from Access. The query contains multiple selects which Access doesn't appear to like very much. The query works fine when run in Sybase.
Is there any way of circumventing this problem?
I could split the three selects into three seperate queries to view the individual results but the third set is dependant on the previous two sets and so therefore is difficult (impossible?) to seperate out as a third individual query.
Thanks for any suggestions?
Select
s.id_prtf Portfolio_ID,
s.id_imnt Instrument_ID,
s.id_imnt_swap Instrument_Swap_ID,
s.id_ccy_std Currency,
s.am_posn Position,
s.am_pnl_eqty PNL_Eqty
into #temptable1
from
SET_VALUATION s, INSTRUMENT i
where
s.id_imnt = i.id_imnt
and s.id_posn_ref is NULL
and s.id_imnt_swap is NULL
and s.am_pnl_eqty > 0
and i.id_typ_imnt != 'SFX'
Select
s.id_prtf Portfolio_ID,
s.id_imnt Instrument_ID,
s.id_imnt_swap Instrument_Swap_ID,
s.id_ccy_std Currency,
s.am_posn Position,
s.pr_imnt_mtm_prev,
sy.pr_imnt_mtm,
s.am_mv_prev,
sy.am_mv
into #temptable1a
from SET_VALUATION s, SET_VALUATION_HIST sy, REFERENCE_DATA r
where
s.id_prtf = sy.id_prtf
and s.id_imnt = sy.id_imnt
and s.pr_imnt_mtm_prev != sy.pr_imnt_mtm
and s.am_mv_prev != sy.am_mv
and r.dt_bus_lst = sy.dt_bus
select
t.*,
tt.pr_imnt_mtm_prev,
tt.pr_imnt_mtm,
tt.am_mv_prev,
tt.am_mv
into #newtemp
from #temptable1 t, #temptable1a tt
where
t.Portfolio_ID = tt.Portfolio_ID
delete from #temptable1
where #temptable1.Portfolio_ID in (select Portfolio_ID from #newtemp)
delete from #temptable1a
where #temptable1a.Portfolio_ID in (select Portfolio_ID from #newtemp)
select "Where id_posn_ref is NULL and id_imnt_swap is NULL is the only criteria"
select * from #temptable1
select "Where SET VAL's pr_imnt_mtm_prev does not equal SET VAL HIST's pr_imnt_mtm, is the only criteria"
select * from #temptable1a
select "Where the output satisfies both Where id_posn_ref is NULL and id_imnt_swap is NULL AND Where SET VAL's pr_imnt_mtm_prev does not equal SET VAL HIST's pr_imnt_mtm"
select * from #newtemp
drop table #temptable1
drop table #temptable1a
drop table #newtemp
Query Selects No Records, How To Convert Null To Zero
Apr 29, 2008Simple query, but I need to roll the results up with others and a null return is hurting me. I have been chasing my tail around with the nz(), input masks, IIF statements, only to prove my ignorance and possible insanity for expecting different results.
Here we go:
SELECT Count([LDB LOG].DSTHTL) AS ["tot120"]
FROM [LDB LOG]
WHERE ((([LDB LOG].[LDB Rcvd]) Between Now()-120 And #1/1/2008#))
GROUP BY [LDB LOG].[T-7 Date]
HAVING ((([LDB LOG].[T-7 Date]) Is Null));
This is being used to count open items into age buckets, the above is the greater than 120 days (discounting anything prior to 2008). If the T-7 Date is null the item is open. What is happening is that no records are being selected, resulting in the null value back.
Any help would be greatly appreciated as I have spent an unrealistic amount of time on this.
Thanks
Brendan
Access Selects All Field Text When Typing
Oct 30, 2012I have created a database.On opening the [Company] form opens up.After pressing the 'Add new company' button it creates a new record. when typing immediately into the 'Company Name' field, access highlights all the text whilst your typing making you delete what you have just typed.I have tried several macros and vba at various different events to try and solve including 'Gotocontrol', 'refesh'. I have even tried SelStart.
View 1 Replies View RelatedModules & VBA :: If User Selects Wrong Value / Display Message
Feb 23, 2015I have a field that is pre filled in with a value. The name is "Business".Then there is a combo box with various values. If the user would select a value that does not match with values that can be selected if in "business" a value is selected, it should show a message that the selection is wrong and user needs to select the correct one.
Example:If in the field "Business" the value "Food" is selected, then the possible values to be selected in the combobox would be: Fruit or Meet or Fast Food. If the value in "Business" would be "Wood" only selections could be made: Talble or Chair or Cabinet.So, if a user select "Food' in "Business" and in the combo box "Chair", it should show a message that the wrong selection was made and don't let them use the wrong one.
Forms :: Button That Opens Form And Pre-selects A Value In List Box
Aug 24, 2014I open a form (EntryBasic) for users to enter data in, which is then saved to the only table in the database (MasterTable). The form (EntryBasic) has a list box with four choices: red, white, blue, orange. The button that opens the form is placed on another form (MainForm) The form (EntryBasic) record source is MasterTable.
A user is on the MainForm and needs to add a new record related to red. When user clicks on the button (NewRedEntry), I need the form to open and the list box pre-selected to red.
Is there a macro or VBA code that might simply execute this action, preferably something that can be attached to the NewRedEntry button?Even better, if there are two list boxes, code such code be applied to same NewRedEntry button, where both list box values are pre-selcted with the click of this button?
Track Order In Which User Selects Items From A List
May 11, 2012I am trying to find out if there is a way to track the order in which items are selected from a list. I am a dabbler and any keyword searches that I can think of don't bring up what I am looking. So, here is what I am trying to do:
I have a table of symptoms with 3 fields (ID, Category, and Symptom).I have a combo box that will allows the user to pick a category (using select Distinct on category field). I then have a list box populated with all the symptoms that have a category of whatever the user selected. The problem I am having is that I need to somehow track the order in which the user selects symptoms and then save that order for future reference and to be printed on a report. The order is important because the most severe symptom needs to be listed first.
Queries :: Selects Active Records For Three Different Selections - Concatenate Query Results
Nov 3, 2014I have a query that selects the "Active" records for three different selections, A, B or C.. There may be 1, 2 or 3 results for a particular selection. That is Selection A may have one result or active records, but Selection B may have three results.
I want to use data from the query to populate a field on a form. For example, if the results for Selection A, having one "Active" record would be RecordAData. But for Selection B with three "Active" records the result would be RecordBData & " " & RecordBData2 & " " & RecordBData3
My query is:
SELECT tblSomething.ID, tblSomething.D1, tblSomething.D2, tblSomething.D3, tblSomething.D4, tblSomething.D5, tblSomething.D6, [D3] & " " & [D4] & " " & [D5] & "-" & [D6] & " " & "SomeText" AS Header
FROM tblSomething
WHERE (((tblSomething.D1)=Forms!frmSomethingHeaders!D1) And ((tblSomething.D2)=True));
The concatenation in the query is labeled "Header". I want to be able to Concatenate the "Header" which in itself is a concatenation in the query.
I thought that this might be a looping through the query results, but I cannot figure out how to do it. But then, that is only my uneducated guess.
Queries :: How To Write A Query Which Selects Multiple Records From A Table At Once For Updating
Aug 14, 2013I have a list box whose data is inserted in a table named as "test0" ,now in a macro of vba i want to select all the items in the list box and create there pdf files in a folder at my desired location. So far i have managed to create a pdf file of single item ,but i want to select multiple items at once ,
Code:
SELECT test0.ID, test0.item FROM test0 WHERE (((test0.item)=[ItemNumber]));
So, in this query itemNumber are multiple and i want to create there pdf files at once ..just on a click of one button ?
Message Box That Stays After You've Clicked Yes
Mar 12, 2006I've got this yes/no message box that deletes an appointment. When i click yes to confirm delete, the box just stays there. I have to click yes again before it works. Clicking no works fine. Its like its going round the else if statement for vbYes twice. Does anyone know why this is happening? Heres a snippet of the related code. Thanks in advance.
If myYesNoQuestion(strDelete) = vbNo Then
myDisplayInfoMessage "Appointment kept on file"
'If the user decides not to delete the customer then appointment kept
Calendar3.SetFocus
'Sets the focus away to allow the rooms to be disabled
lstRoom1.Enabled = False
lstRoom2.Enabled = False
lstRoom3.Enabled = False
lstRoom4.Enabled = False
'Disables the rooms again
ElseIf myYesNoQuestion(strDelete) = vbYes Then
strSQL = "DELETE * FROM tblAppointment where [AppointmentID]= " & .Column(2)
'SQL to delete appointment from table
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
'Turn warning off, run SQL, turn them back on again
myDisplayInfoMessage "Appointment Deleted OK"
'If the user decides to delete the customer then record is deleted and a message is shown to prove that
Calendar3.SetFocus
'Sets the focus away to allow the rooms to be disabled
lstRoom1.Enabled = False
lstRoom2.Enabled = False
lstRoom3.Enabled = False
lstRoom4.Enabled = False
'Disables the rooms again
End If
End If
Forms :: TBO Value According To Button Clicked
Jun 22, 2014I have a form, with just two buttons, say "Tyre" and "Engine". These buttons open the same form, say frmCar.
What I want to do is when I click the "Tyre" button, a tbo in the frmCar to get as value "Tyre" and when I click the "Engine" button, the same tbo in the frmCar to get the value "Engine".
Ticking A Check Box Once A Field Has Been Clicked
Jul 27, 2006Hi,
Please see attached image.
http://img136.imageshack.us/my.php?image=jkkv6.jpg
I have this subform in a form, i want the field that has a hyperlink (which is called Link) to display a check box once the file path has been pressed, so when each path (Link) is pressed i would like the form to display a check box that would tell the person if that pathfile had been pressed. I would like this to show for each of the path files.
Can anybody help please.
Thanks
Forms :: Calculation Only Displays When Clicked
Jan 8, 2014I have a form which has a few calculations on which are:
TotalPrice - =Nz([Quantity])*([UnitPrice])
Then at the bottom to calculate it all:
=IIf(Sum([Quantity]*[UnitPrice])=0,0,Sum([Quantity]*[UnitPrice]))
This has been working perfectly fine however the TotalPrice is no longer calculating the UnitPrice x Quantity and the TotalCost isnt calculating as nothing appears in the TotalPrice. However when we click the fields the data is diplayed but only on clicking, if we leave the record and go back its back to blank again.
General :: Calculated Value Invisible Until Been Clicked
Jan 9, 2014We are running Access 2010 runtime on Server 2008 R2 with both FE and BE on it. Each user has own FE copy on Server which is opened from own PC through remote desktop.
After fresh Server restart all goes well for 1-2 weeks. But then some strange behaviour starts:
- values of all calculated fields - whatever, on forms or on reports - disapears. When I click on a field it shows up again. And refresh does not work;
- all condition formats does not show up until I hover the mose on it.
When we restart the Server all comes to normal again. Its very annoying because users thinking data are gone!
Modules & VBA :: Recognize Which Button Was Clicked
Dec 1, 2014I'm designing a form which will display a lot of employee information in a tabular layout. Users need the option to update a lot of these controls, but I want them to do that on a separate form. I'm wondering if VBA can determine the position of a clicked button within the tabular layout.
So if I have a layout like this:
| label | textbox | button | label | textbox | button |
| label | textbox | button | label | textbox | button |
| label | textbox | button | label | textbox | button |
Can I have some code which determines that, for example, the second button across on the 3rd row is clicked and read the corresponding label?
I was planning to have each button just call a function passing an argument, but since all these buttons will be labelled "update" it could get a bit confusing if I need to re-arrange the controls. So I wondered if what I describe above is possible, and which VBA functions I would need to look into if so?