Combo Box to Prop. not working.. help 
Author Message
 Combo Box to Prop. not working.. help

I'm trying to use a custom form, for selecting part numbers & description,
to populate computer shapes, and the selected item isn't getting back to the
shape.
Can someone tell me what is needed..  thanks. greatly appreciated

Dim shpObj As Visio.Shape
Dim celObj As Visio.Cell

Private Sub ComboBox29_Change()
End Sub

Private Sub UserForm_Initialize()
    'Add list entries to combo box.
    ComboBox1.AddItem " DA-64AAA-DA= Tru64 UNIX 500MHz 1GB/4MB"
    ComboBox1.AddItem " DA-64AAA-EA= Tru64 UNIX 500MHz 2GB/4MB"
    ComboBox1.AddItem " DA-64BAA-DA= Tru64 UNIX 667MHz 1GB/8MB"
    ComboBox1.AddItem " DA-64BAA-EA= Tru64 UNIX 667MHz 2GB/8MB"
    ComboBox1.AddItem " DA-64BAA-FA= Tru64 UNIX 667MHz 4GB/8MB"
    ComboBox1.AddItem " DA-64CAA-CA= Tru64 UNIX 833MHz 512GB/8MB"
    ComboBox1.AddItem " DA-64CAA-DA= Tru64 UNIX 833MHz 1GB/8MB"
    ComboBox1.AddItem " DA-64CAA-EA= Tru64 UNIX 833MHz 2GB/8MB"
    ComboBox1.AddItem " DA-64CAA-FA= Tru64 UNIX 833MHz 4GB/8MB"
End Sub

Private Sub ComboBox1_Click()
    TextBox1.Text = (ComboBox1.Value)
Set shpObj = Visio.ActiveWindow.Selection.Item(1)
Set celObj = shpObj.Cells("Prop.BasePNPD")
 celObj.Formula = (ComboBox1.Value)     <---- ??? somethings missing, error
= #NAME?  but MsgBox shows selected item
MsgBox (ComboBox1.Value)
End Sub



Tue, 04 Nov 2003 21:51:56 GMT  
 Combo Box to Prop. not working.. help
Found it

 celObj.Formula = Chr(34) & (ComboBox1.Value) & Chr(34)


Quote:
> I'm trying to use a custom form, for selecting part numbers & description,
> to populate computer shapes, and the selected item isn't getting back to
the
> shape.
> Can someone tell me what is needed..  thanks. greatly appreciated

> Dim shpObj As Visio.Shape
> Dim celObj As Visio.Cell

> Private Sub ComboBox29_Change()
> End Sub

> Private Sub UserForm_Initialize()
>     'Add list entries to combo box.
>     ComboBox1.AddItem " DA-64AAA-DA= Tru64 UNIX 500MHz 1GB/4MB"
>     ComboBox1.AddItem " DA-64AAA-EA= Tru64 UNIX 500MHz 2GB/4MB"
>     ComboBox1.AddItem " DA-64BAA-DA= Tru64 UNIX 667MHz 1GB/8MB"
>     ComboBox1.AddItem " DA-64BAA-EA= Tru64 UNIX 667MHz 2GB/8MB"
>     ComboBox1.AddItem " DA-64BAA-FA= Tru64 UNIX 667MHz 4GB/8MB"
>     ComboBox1.AddItem " DA-64CAA-CA= Tru64 UNIX 833MHz 512GB/8MB"
>     ComboBox1.AddItem " DA-64CAA-DA= Tru64 UNIX 833MHz 1GB/8MB"
>     ComboBox1.AddItem " DA-64CAA-EA= Tru64 UNIX 833MHz 2GB/8MB"
>     ComboBox1.AddItem " DA-64CAA-FA= Tru64 UNIX 833MHz 4GB/8MB"
> End Sub

> Private Sub ComboBox1_Click()
>     TextBox1.Text = (ComboBox1.Value)
> Set shpObj = Visio.ActiveWindow.Selection.Item(1)
> Set celObj = shpObj.Cells("Prop.BasePNPD")
>  celObj.Formula = (ComboBox1.Value)     <---- ??? somethings missing,
error
> = #NAME?  but MsgBox shows selected item
> MsgBox (ComboBox1.Value)
> End Sub



Wed, 05 Nov 2003 02:03:05 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Combo box and mousepointer not working as expected

2. Double-click in combo box does not work

3. Scroll bar not working in windowless combo box

4. Combo box not working with DataGrid/Adodc

5. Ado cancel update does not work with combo box

6. List() prop of ListBox in MS Forms 2.0 not working

7. Help filling second combo box from fist combo box

8. Help filling second combo box from first combo box

9. Help : Combo box not displayed

10. Newbie Help: Combo box not validating/updating Access Database

11. Up/Down box does not lose focus for Combo Box

12. Combo Box help, need a better combo

 

 
Powered by phpBB® Forum Software