Append through list box
- Thread starter syntaktik
- Start date
Hm, I hope what I am trying to do is right.. but..What I am doing is using a list of people. And then from the list box form, I select people to append their name under the event's table.
I hope that makes more sense.
I hope that makes more sense.
So you want to be able to select a name from that list box, click a button and it adds that selection value to a seperate table and removes it from the list box?
I know the left list box gets its data from the name list. The list box on the right gets its data from the event. So I guess I only need to have an append query that only appends the selected item from the list box. But i have no clue how to get that far.
oh! But i do have something very similar. It deltedes the selected item though. Any idea how to make it append to the second table?
Code:
Private Sub DeleteRecord_Click()
Dim strSql As String
strSql = "DELETE [EventName] FROM tblEvents WHERE " & _
"tblEvents.[EventName] = '" & Me![EventList] & "'"
CurrentDb.Execute strSql, dbFailOnError
Me![EventList].Requery ' requery the list
End SubSomething along these lines
Code:
strSQL = "UPDATE tblSecondTable SET [Field1] = '" & Listbox1.value & "' " & _
"WHERE [secondTableID] = tableIDNumber;"
CurrentDb.Execute strSQL, dbFailOnError
' Requery both list boxes Here.well, i guess i spoke too soon. I can not find a way to make it work. Then doing some more research i found this site.
I have these two tables:
tblNames
tblEvent
and both share the
FullName
field.
How can I make the names move with the buttons according to the list box? And then remove them if they were already selected?
I hope I am not piling on more
I have these two tables:
tblNames
tblEvent
and both share the
FullName
field.
How can I make the names move with the buttons according to the list box? And then remove them if they were already selected?
I hope I am not piling on more
well, i guess i spoke too soon. I can not find a way to make it work. Then doing some more research i found this site.
I have these two tables:
tblNames
tblEvent
and both share the
FullName
field.
How can I make the names move with the buttons according to the list box? And then remove them if they were already selected?
I hope I am not piling on more
You are certainly delving into the world of VBA here, good way to learn though. What you are looking for isn't an update query. You want to be able to "move" the list box A to listbox B. Firstly you need to enable the Multi select property for both list boxes. I'm positive someone has answered a post of the same nature as yours. Do a search and if you're still stuck write back on here and I will show you how?
wow, you have got me there. I am not sure what to do after that. I mean i know how to delete a selected file. But no matter what I do I can't get thew append query to work properly. It sounds like you seem to have knowlege about VBA judging by you name however haha .
.
Last edited:
wow, you have goo me there. I am not sure what to do after that. I mean i know how to delete a selected file. But no matter what I do I can't get thew append query to work properly. It sounds like you seem to have knowlege about VBA judging by you name however haha
Haha! It's just a random name. I only joined two days ago and it's quite interesting helping out. There are a good number of gurus and MVPs on this forum.
On the On Click event of the button with caption ">" do something like this:
Dim i as long
If Available.ListIndex > -1 Then
Attending.AddItem Available.value
Else
Msgbox "Please make a selection",,"Item not selected"
End if
For the one that reads ">>", this:
If Available.ListIndex > -1 Then
For i = 0 to Available.ListCount - 1
Attending.AddItem Available.value
Next
Else
Msgbox "Please make a selection",,"Item not selected"
End if
This is a start.
That code should work. Upload your db, let me have a look.
Ok, I took out this part of my database to simplify things. I am still not sure why it isnt working though. Link: http://dl.dropbox.com/u/1254531/Database1.accdb
Similar threads
