User Forms - Command Button defines value to be used later

[Guest]

I have a very basic User Form and I can get it to display. This is the
limited code I have within the user form:

Private Sub cmdMonthly_Click()
Dim Inchstone As String
Inchstone = "Monthly"
Unload Me
End Sub

Private Sub cmdWeekly_Click()
Dim Inchstone As String
Inchstone = "Weekly"
Unload Me
End Sub

I've tried to find info on User Forms but haven't found anything related to
this. How do I get the value of Inchstone back into the main code from
which I call the user form? Again, if I've done something wrong, please let
me know.

Thanks in advance,
Barb Reinhardt

 

[Dave Peterson]

Maybe...

Dim InchStone as String
Private Sub cmdMonthly_Click()
Inchstone = "Monthly"
End Sub
Private Sub cmdWeekly_Click()
Inchstone = "Weekly"
End Sub

When you declare InchStone outside any procedure, then any procedure in that
module can see it (and change it or read it).

(Unloading the form didn't seem like what you wanted to do...)

 

[Guest]

Dave,

When I took the "UNLOAD" out, the form never goes away. What might be the
problem?

Thanks,
Barb

 

[Dave Peterson]

Ah, you're opening another userform to get this value?

Move that
Dim InchStone as String
from the top of the userform module
to the top of a General module
And make this change:
Public InchStone as String

That Public means that it can be seen everywhere.

(and add the unload me stuff back.)

 

[Guest]

Thanks. That helps a lot. It's working the way I want now.

Barb