Use Model Level Dialog Form
---------- Code for Builder Form ------------
Public Enum FormulaBuilderResults
FormulaBuilder_Cancel
FormulaBuilder_OK
End Enum
Private m_Response as FormulaBuilderResults
Private m_strFormula as String
Public Property Get Response() as FormulaBuilderResults
Response = m_Response
End Property
Public Property Get Formula() as String
Formula = m_strFormula
End Property
Sub Form_Load()
Response = FormulaBuilder_Cancel
End Sub
Sub cmdOK_Click()
m_strFormula = txtFormula.Text
Response = FormulaBuilder_OK
Unload Me
End Sub
Sub cmdCancel_Click()
m_strFormula = ""
Response = FormulaBuilder_Cancel
Unload me
End Sub
----------- End of Formula Builder Code ---------------
Now in calling form use as,
Sub cmdBuildFormula()
frmFormulaBuilder.Show vbModal
if frmFormulaBuilder.Response = FormulaBuilder_Cancel Then Exit sub
debug.Print frmFormulaBuilder.Formula
End Sub
Enter your message below
Sign in or Join us (it's free).