[MS_AccessPros] Re: Write all items in a list box to a table

 

I have worked it out so far to the following code.

 

  With Me

 

    For Each varX In Me.lsteSubFolder.ItemsSelected

 

        rstSubFolder.AddNew

        rstSubFolder!SubLevelOneKey = Me.txtSubLevelOneKey

        rstSubFolder!SubFolderName = .lsteSubFolder.ItemData(varX)

        rstSubFolder!CAbinetID = Me.txtCabinetID

        rstSubFolder!SL1NextLevel = "No"

        rstSubFolder.Update

    Next varX

End With

 

THis is really close but the only problem is I have to select items and then click my cmdDone button. I just want to click the cmdDone and have it write all items in the list box automatically.

__._,_.___

---

Posted by: dbalorenzini@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (2)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___