Sub or Function not defined 2

[Matsul]

I created a form . If I run a procedure

Public Sub CCForm_Click()
CCForm_Initialize
End Sub

the form functions successfully.

If I call it from a macro I get Sub or Function not defined. The macro is in a module (Module1) of the same project.

Any ideas ?

 

[fumei]

If you are in the form, it is already Initialized. However, you can always Initialize again...the procedure can be run. So _Click works, because the form is active.

If you are NOT in the form, you can not _Click the form. Yes, there is a procedure that can be called, but the form is not, in fact, clicked.

To display a form from a module use .Show.

I am curious, why did you use _Click?

Gerry

 

[Matsul]

Yes that did the trick. I suppose I used _Click cos I don't know what I am doing. Fist project. Thanks

 

[Matsul]

Hi there,

My form needs to return a selection. CmdExit_Click's debug.print shows the value I want.

However, the calling sub suspense which is in module1 does not have the value.

Any idea how I can so about this ?

thanks

Private Sub CmdExit_Click()
Unload Me
TxtCC.Value = "Null"
Debug.Print TxtCC.Value
End Sub


Sub suspense()

CCForm.Show
Debug.Print "return" & TxtCC.Value

End Sub

 

[rmikesmith]

Matsul,

Try this:

Private Sub CmdExit_Click()
    [b]Me.Hide[/b]
    TxtCC.Value = "Null"
    Debug.Print TxtCC.Value
End Sub


Sub suspense()

    CCForm.Show
    Debug.Print "return" & TxtCC.Value
    [b]Unload CCForm[/b]
End Sub

Regards,
Mike

 

[Matsul]

No luck. TxtCC.Value is not getting any value

 

[rmikesmith]

Assuming TxtCC is a TextBox on Userform CCForm then you need to qualify the Textbox name with the Userform name outside its module (i.e. in a standard code module); like this:

Sub suspense()

    CCForm.Show
    Debug.Print "return" & [b]CCForm.[/b]TxtCC.Value
    Unload CCForm
End Sub

Regards,
Mike

 

[fumei]

Also things don't work so well when you unload the form before other instructions.

Private Sub CmdExit_Click()
    [b]Unload Me[/b]
    TxtCC.Value = "Null"
    Debug.Print TxtCC.Value
End Sub

Gerry