Is it possible to "move" an item from one listbox to another?

[zy0n1c]

I have a rather silly project that I'm hoping I can make work in Access. Basically, as visitors enter the building our receptionist records their name, date/time, and who they're here to see. I've got that working flawlessly and it displays nicely in a List Box.

I'd then like to put several "blank"(temporarily) list boxes to the side representing each office/personnel.

I'd like our receptionist to be able to "move" visitors from "Lobby" list box to the office they're visiting.



Right now I've got

"CompanyTBL" (AutoID, List of Offices/Employees)

"VisitorTBL" (AutoID, VisitorName, HereFor, DateNTime)

"VisitorLog" (I'm not sure what I'm doing with this yet, honestly. Maybe the log of when the visitor actually moves to that office for their meeting?)

Two forms: One form is Visitor Logging (write down their name, who they're here for). Other form is "Lobby" where I want to be able to move those names around.

[ranman256]

lstbox1 is bound to table1

lstbox2 is bound to table2

dbl-click the item in lst1 ,it runs an append query to add it to tbl2
refresh the listbox after

sub lstBox1_dbl_click()
docmd.setwarnings false
docmd.openqeury "qaAdd1Itm"
lstBox2.requery
end sub

query:
insert into tbl2 ( field) select tbl1.field where tbl1.field = forms!myform!lstBox1

[ssanfu]

When the visitor arrives, are you more concerned with the office or the employee?
How many offices?
How many list boxes do you think you need/want?
Are you concerned with when the visitor leaves Date-N-Time? Or maybe have fields ArrivalDate, ArrivalTime, DepartTime.
Do you require visitor badges?


Could have list boxes to see where visitors are supposed to be or could use an unbound combo box to filter a subform to select an office to see visitors.

[zy0n1c]

lstbox1 is bound to table1

lstbox2 is bound to table2

dbl-click the item in lst1 ,it runs an append query to add it to tbl2
refresh the listbox after

sub lstBox1_dbl_click()
docmd.setwarnings false
docmd.openqeury "qaAdd1Itm"
lstBox2.requery
end sub

query:
insert into tbl2 ( field) select tbl1.field where tbl1.field = forms!myform!lstBox1

Still trying to figure this out. Thanks for your reply.

[Micron]

I wouldn't bother. Not because there's anything wrong with the answer (not that I can see) but because your tables aren't really set up correctly. You can probably get this working but are liable to run into problems down the road. Since you're more concentrated on the first solution and didn't provide answers to ssanfu, I'll leave it at because whatever I say about tables might be for naught. Just sayin...