September 7, 2008 09:46am pdt

1. danaseaman 68,675
2. jpaulino 65,685
3. rorya 41,950
4. GrahamSkan 35,320
5. PaulHews 32,939
6. Idle_Mind 28,790
7. angelIII 25,222
8. RobSamp... 23,364
9. zorvek 17,680
10. ee_rlee 17,650
11. emoreau 16,800
12. robinu 16,475
13. shasunder 15,200
14. webtubbs 14,925
15. FER_G 13,925
16. mlmcc 13,375
17. EDDYKT 13,350
18. LSMCons... 11,800
19. jeverist 10,000
19. VBRocks 10,000
21. Dhaest 9,755
22. c0ldfyr3 9,425
23. purplepo... 9,400
24. Sancler 9,000
25. aiklamha 8,950

1. Idle_Mind 506,525
2. danaseaman 230,599
3. GrahamSkan 213,105
4. emoreau 210,988
5. vinnyd79 208,855
6. vb_elmar 167,017
7. Dabas 166,771
8. angelIII 163,447
9. shijusn 145,034
10. Dhaest 139,451
11. EDDYKT 129,003
12. TimCottee 117,614
13. jpaulino 116,432
14. Sethi 107,849
15. edwardiii 101,199
16. JR2003 98,026
17. bruintje 95,512
18. ryancys 90,368
19. Computron 89,772
20. dbrckovi 88,665
21. rorya 86,225
22. zzzzzooc 83,209
23. fds_fatboy 76,385
24. PaulHews 75,311
25. appari 71,576

04.20.2008 at 03:17AM PDT, ID: 23337558

	[x] Attachment Details

Manipulating values in listbox in Word VBA userform

Asked by gwh2 in VB Controls, Visual Basic Programming, Microsoft Word

Tags: Microsoft, Word, 2003, 2004, 2007, VBA

Hi everyone,

I need some help with revising some code relating to a listbox on a page on a multi-page vba userform in Word. On the page I have two textboxes and one list box. The user enters 'milestone' information into one of the textboxes and a date into the second box. Once data is entered into both of the textboxes, I have an "add" button to insert the information into a 2 column listbox. The user continues to add as many milestone /date pairs as needed.

I also have a delete button to delete the entries from the listbox if needed.

I'm trying to implement some functionality so that after the entries have been entered into the listbox, I'd like the user to be able to click on any row and have the values in the two columns jump back into the two text boxes, ie. milestone and date, so that they can edit these values if required. Once the values are edited, I have a "change" button which would do the following:

I have a Public array in a standard module, separate from the userform module, with the following code:

Option Explicit
Public MyList() As String

The following is the code relating to the change button:

Private Sub cmdChange_Click()
Dim var
On Error Resume Next
For var = 0 To lstTiming_Milestones.ListCount
ReDim Preserve MyList(var)
MyList(var) = lstTiming_Milestones.List(var)
Next
MyList(mySelected) = txtTiming_Milestone.Text
MyList(mySelected) = txtTiming_Date.Text
lstTiming_Milestones.Clear
lstTiming_Milestones.List = MyList()
End Sub

I Redim the array with the items of the listbox and get the ListIndex of the selected item. I then make the array value the new value (the edited value in the textbox), I clear the Listbox, and then repopulate it with the new array.

When I test, I enter text into the two boxes called txtTiming_Milestone and txtTiming_Date. When I press "add" the data gets inserted into the two columns of the listbox. When I click on the row in the listbox, the values get inserted back into the two textboxes as they should and I can edit them, but when I click change the edited date gets inserted in the first column of the listbox (which is where the milestone should go) and the milestone disappears altogether. I'm wondering if the code in the following code block is incorrect?

Private Sub lstTiming_Milestones_Change()
txtTiming_Milestone.Text = lstTiming_Milestones.Text
txtTiming_Date.Text = lstTiming_Milestones.Text
mySelected = lstTiming_Milestones.ListIndex
End Sub

I have all the other relevant code below and wondered if someone could take a look to tell me what I might be doing wrong?

I'd really be grateful if someone could help me out here.
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

           
           
             Option Explicit 
Dim bAllowValidate As Boolean 
Public mySelected As Long 
 
Private Sub UserForm_Initialize() 
     
    MultiPage1.Value = 0 
     
End Sub 
 
 
Private Sub cmdChange_Click() 
    Dim var 
    On Error Resume Next 
    For var = 0 To lstTiming_Milestones.ListCount 
        ReDim Preserve MyList(var) 
        MyList(var) = lstTiming_Milestones.List(var) 
    Next 
    MyList(mySelected) = txtTiming_Milestone.Text 
    MyList(mySelected) = txtTiming_Date.Text 'extra line to accommodate 2nd text box
    lstTiming_Milestones.Clear 
    lstTiming_Milestones.List = MyList() 
End Sub 
 
 
Private Sub lstTiming_Milestones_Change() 
    txtTiming_Milestone.Text = lstTiming_Milestones.Text 
    txtTiming_Date.Text = lstTiming_Milestones.Text 'extra line to accommodate 2nd text box
    mySelected = lstTiming_Milestones.ListIndex 
End Sub 
 
 
Private Sub cmdAddTiming_Click() 
    With lstTiming_Milestones 
        .AddItem txtTiming_Milestone.Value 
        .Column(1, .ListCount - 1) = txtTiming_Date.Value 
    End With 
    txtTiming_Milestone.Value = "" 
    txtTiming_Date.Value = "" 
End Sub 
 
Private Sub cmdDeleteTiming_Click() 
    With lstTiming_Milestones 
        .RemoveItem (.ListIndex) 
    End With 
End Sub

           
         

Keywords: Manipulating values in listbox in Word V…

	Title
1	Userforms
2	Excel VBA userform control to view se…
3	Percentage value from Userform textb…
4	Placing the Cursor in a textbox on a us…
5	Userform - develpment
6	VBA Userform code question

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Manipulating values in listbox in Word VBA userform

Asked by gwh2 in VB Controls, Visual Basic Programming, Microsoft Word

Tags: Microsoft, Word, 2003, 2004, 2007, VBA

About this solution