List 1 to list 2

[drunkenneo]

I have a task here which i need a great help, i will try to explain in most suitable way,




I have list 1 where date and count of a file sent date and count of entries for the date appears, i want when i double click on item it should go to list 2 and disappears from list 1. and on clicking ok it should open form with file detailed entries from list 2. I think thats the simple way i could explain.

[drunkenneo]

Bump!!!Bump!!!

[June7]

The 'moving' is not easy. Why do you need to? It isn't really necessary to 'move' items to other list just to open a form or report filtered to the selected item(s). Make list1 multi-select.

Regardless, the same code is involved to build filter criteria from items in a listbox. http://allenbrowne.com/ser-50.html

[lfpm062010]

Did something similar a while back.

I have 2 list like you did. I have a Yes/No or True/False column which control the list display. On the list event "Double Click", you turn on and off the Yes/No or True/False column. Then refresh the form or query (forgot which one). The list one can be just display what is No/False and the list 2 can be just the Yes/True. Or you can have 2 tables. One contain list 1 and insert the record to list 2 on "Double Click". Either way should work.

Hope this will help you on your way.

[amrut]

What is the listbox based on, Values or Table/query ?

[drunkenneo]

What is the listbox based on, Values or Table/query ?

Its on table/query

[drunkenneo]

The 'moving' is not easy. Why do you need to? It isn't really necessary to 'move' items to other list just to open a form or report filtered to the selected item(s). Make list1 multi-select.

Regardless, the same code is involved to build filter criteria from items in a listbox. http://allenbrowne.com/ser-50.html

This is a great help, also intrested in either wasy of doing it.

[amrut]

You will need to loop through the selected listbox items and build a SQL which will be the rowsource of listbox.

[lfpm062010]

The listbox row source can be table or query (its your choice). I used query based on a table.

Something like this.

MainTable:
SDATE Date --> Primary Key
CTRNO Number
INCLUDED Yes/No

qry_ListBox1:
SELECT MainTable.SDATE, MainTable.CTRNO, MainTable.INCLUDED
FROM MainTable
WHERE (((MainTable.INCLUDED)=No))
ORDER BY MainTable.SDATE;

qry_ListBox2:
SELECT MainTable.SDATE, MainTable.CTRNO, MainTable.INCLUDED
FROM MainTable
WHERE (((MainTable.INCLUDED)=Yes))
ORDER BY MainTable.SDATE;

ListBox1 "Row Source":
SELECT [qry_ListBox1].[SDATE], [qry_ListBox1].[CTRNO] FROM qry_ListBox1 ORDER BY [SDATE];

ListBox2 "Row Source":
SELECT qry_ListBox2.SDATE, qry_ListBox2.CTRNO FROM qry_ListBox2 ORDER BY qry_ListBox2.[SDATE];

ListBox1 "Double Click":
Private Sub ListBox1_DblClick(Cancel As Integer)
Dim mySQL As String
Stop
' MsgBox "SDATE = (" & ListBox1.Column(0) & ", " & ListBox1.Column(1) & ")"
mySQL = "UPDATE MAINTABLE SET INCLUDED = Yes "
mySQL = mySQL & "WHERE SDATE = #" & ListBox1.Column(0) & "#"
DoCmd.SetWarnings False
DoCmd.RunSQL (mySQL)
DoCmd.SetWarnings True
Me.Refresh
End Sub

ListBox2 "Double Click":

Private Sub ListBox2_DblClick(Cancel As Integer)
Dim mySQL As String
' MsgBox "SDATE = (" & ListBox2.Column(0) & ", " & ListBox2.Column(1) & ")"
mySQL = "UPDATE MAINTABLE SET INCLUDED = No "
mySQL = mySQL & "WHERE SDATE = #" & ListBox2.Column(0) & "#"
DoCmd.SetWarnings False
DoCmd.RunSQL (mySQL)
DoCmd.SetWarnings True
Me.Refresh
End Sub

This is one way of doing it.

[Missinglinq]

Here is another site that give two examples for doing this:

http://www.tek-tips.com/faqs.cfm?fid=6326


Linq ;0)>

[orange]

Here's a video that may help with concepts.
http://www.datapigtechnologies.com/f...tboxtrick.html