 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / November 2004Populating a list box from a database
Can I populate a list box in word from values within an access database? I am using Microsoft Word 2002/Access 2002. I want to be able to dynamically build the values within the list box from the result of a query within access Use the following method (You need to set a reference to the DAO object library) Private Sub UserForm_Initialize() Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database Set db = OpenDatabase("D:\Access\ResidencesXP.mdb") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT * FROM Owners") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset ListBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records ListBox1.Column = rs.GetRows(NoOfRecords) ' Cleanup rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub  SignaturePlease respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP > Can I populate a list box in word from values within an access database? > > I am using Microsoft Word 2002/Access 2002. > > I want to be able to dynamically build the values within the list box from > the result of a query within access Doug, I like your solution below. I tried it and it worked. I was wondering if you or anyone else could provide a solution to one of my problems related to this. I will be using the code you used when the form initializes but I used my access database to populate a 'combo box'. After making a selection in the 'combo box', if I click 'ok' on my user form, I would like to pull a specific field(for example, the phone number of the person I selected in the combo box) from that same database that populated the 'combo box'. I would then want to insert that phone number in a 'bookmark' named 'Phone_Number' in the Word file I am using. How can I do this? Thanks, MM > Use the following method (You need to set a reference to the DAO object > library) [quoted text clipped - 53 lines] > > I want to be able to dynamically build the values within the list box from > > the result of a query within access before you close the form, run activedocument.Bookmarks("Phone_Number").Range.Text=combobox1.text SignaturePlease reply to NG only. This email is not monitored. Alex. > Doug, > I like your solution below. I tried it and it worked. I was wondering if [quoted text clipped - 76 lines] >> > from >> > the result of a query within access You first need to set the .BoundColumn property of the combobox to the column that contains the phone number. SignaturePlease respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP > before you close the form, run > activedocument.Bookmarks("Phone_Number").Range.Text=combobox1.text [quoted text clipped - 80 lines] >>> > from >>> > the result of a query within access
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.