opening a form from a combobox selection

[GregJG]

I have a form with a combobox (cboCust).

If "add a new" (which is in the list of cboCust) is selected, or if th
text typed into cbocust is not located in the list of cbocust, I wan
it to automatically open up another form (newcustfrm). the newcustfr
needs to open when the user leaves cbocust.

I have been using a simular vba code in worksheet_change to do it wit
a certain cell on a worksheet. but I would like to be able to do i
from a form. This is what I am using on the worksheet;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim found As Range
With Target(1)
If Not Intersect(.Cells, Range("D3")) Is Nothing Then
If Not IsEmpty(.Value) Then
Application.ScreenUpdating = False
With Workbooks.Open("f:\db1.xls")
Set found = .Sheets("Cust").Columns(1).find( _
What:=Target(1).Value)
.Close True
End With
If found Is Nothing Then _
frmNewCust.Show
End If
End If
Application.ScreenUpdating = True
End With

I have been trying to code this into cboCust_change() but can't seem t
get anything going.

Can anyone help

 

[BrianB]

Something like this :-


Code

 

[GregJG]

works great, thanks!

now, i have another issue.

recap: I have user form (newproposal) that pulls in a list for
combobox (cbocust) from another workbook (db1.xls,
sheet Cust). When "add Item" is selected in cboCust
another form(newCust) opens to add a new Customer
to "db1.xls, Cust".

question is... after I hit the okay button on newCust form, it adds th
customer like it should to the other workbook, but I also need it t
add the text from "newCust, CustNameBox" to "newproposal, cboCust"

i have tried this in varible ways

cboSub.Copy.Value = FrmNewProp.cboSub.Tex

 

[GregJG]

I figured it out

FrmNewProp.cboSub.Value = cboSub.Value


Thanks for your time