Everything about wireless networks


sbthome.org keyword stats



Most current MSN search phrases:

employee  
Most current Yahoo search phrases:

how to check tcp traffic in linux  

Access Database Tip: How to Multiselect in a Listbox

Access Database Tip: How do I multi select"DELETE tmpIndextbl.sFileName FROM
in  a  List  box?tmpIndextbl"sql = sql & " WHERE
(((tmpIndextbl.sFileName)='" &
When you have a list box it is handy to bectl.ItemData(selItem)  &  "'));"
able to multiselect to perform some action on
multiple items in the list box. Here is aDoCmd.RunSQL  (sql)
simple set of instructions to get you
started. These instructions will create aNext  selItem
quick way to multiselect and delete rows from
a  table.SelCt  =  X
Follow  these  steps:List0.Requery
1]create  a  simple  form**********
2]add  two  text  boxes named SelCt and LstCtSave  the  form
3]add  a  list  box  named  List07]Create a table with data for this example
named "Tmpindextbl. " Make sure you have at
4]on the list box properties form tab "Other"least  one  field  named  sFileName.
set  the  Multi  Select  to  Extended
You will need to add some dummy data for
5]on  the  "Data"  tab  settesting.
Rowsource type to Table/queryrow source toYou can download the example and the demo mdb
SELECT tmpIndextbl.sFileName FROM tmpIndextblthat accompanies this tip at. Getting the
ORDER  BY  tmpIndextbl.sFileName;example there will save you a little work.
The demo database also has a counter to show
6]put this code between the *****on theyou  how  many  entries  have  been selected.
"Event"  tab  "After  update"  event
BioMation Systems, Inc provides process
**********improvement services that include solutions
used by both large and small companies that
Private  Sub  List0_AfterUpdate()are affordable and easy to use. Our products
and services are proven to enable our
Dim ctl As Control, X As Integer, selItem Ascustomers to provide better service to their
Variant,  sql  As  Stringcustomers while saving them money in the
process. Our customers find that their
Set  ctl  =  List0return on investment is most often realized
after using their applications just a few
For  Each  selItem  In  ctl.ItemsSelectedtimes.
X  =  X  +  1What  could  BioMation  Systems  do  for you?
Debug.Print ctl.ItemData(selItem)sql =Go ahead, take a look.



1 A B C 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98