[Resolved] String As Variable

[DJHotIce]

Lets say I have a string that contains label.Caption. The variable name is Send (Not the useage but similar structure)

I want to know how would I get it to show frmHello.Show instead of Send on Runtime.

I want it to show

label.Caption = Value
instead of
Send = Value

It seems so simple! Do I need to declare an object. If so How. I'm still learning the object useage. The book isn't being very nice w/ me right now.

[|2eM!x]

i dont understand your question at all..please clarify a bit

[DJHotIce]

I want to dynamically create an event that will insert information inside of a control.

So I need to define a var and a value. I'm using a module to do this, I plan on reusing this event.

I have a dialog that shows up and it calculates a value, I want that value to be inserted correctly when I hit the update button. So far I've got the field to be updated to the dialog. Now I need to output it out.

[Bruce Fox]

If 'Send' is a Variable as you stated, then:
label1.Caption = Send should work!


However, I suspect that a few keys pieces of info are missing



Bruce.

[Bruce Fox]

Is it that the Variable 'Send' has limited scope?
Is it Public, declared at the Module level so it can be seen by a Form?




Bruce.

[DJHotIce]

Bruce! I see what your saying. That would work only for a few problems! But that would be cool. I might consider it if all else fails. Possibly put a prefix on all items that could be updated. but that would mean I would have to take all my code back to the drawing board for validation techniques.

Lets say for instance I want to send something to a textbox like ImaTextbox. I couldn't use that example

I want
Var1 = Var2

Var 1 references an control to be updated and Var2 shows the value of the control

[DJHotIce]

Bruce, This is my Brainstorming Code:

Public Function PassBack(ByVal Send As String, ByVal Value As String) As Long
    [Send] = Value
End Function

[|2eM!x]

Var 1 references an control to be updated and Var2 shows the value of the control

text1.text = label1.caption?

[Bruce Fox]

Ok,

i [think] I understand.

If you know the name of the contol (Label in this case), you can append a number to it like:

Me.Controls("Label" & 1).Caption = "Test"

Bruce.

[Bruce Fox]

Alternatly, you could pass the Control ByReference as an argument in that sub.

[DJHotIce]

Ok Thanks Bruce, I'm very satisfied w/ your responses. Added to your reputation, and am closing this by calling it resolved.

[Bruce Fox]

Ok,

Try:

Option Explicit
 
Private Sub Form_Load()
    Call PassBack(ImaTextbox, "This is a Test")
End Sub
 
Public Sub PassBack(ByRef Send As TextBox, ByVal strValue As String)
    Send = strValue
End Sub

I changed the Function to a Sub (as noting (in this case) was being passed back)

[Bruce Fox]

The appending a number is not the solution here (I dont beleive) - that was just an example if you did know just the name of the control. I think the solution is to pass the
control (see Sub in previous post).




Bruce.

[DJHotIce]

Read My mind, I was looking for some code to help me. I wasn't fully sure what you wanted, but before I posted ran a quick google and nothing showed up! Thanks again!

[DJHotIce]

I'm getting a type mismatch error. And It's pointing to

Private Sub Submit_Click()
    Call TextBack(Label3[b].Caption[/b], txtMil.Text)
End Sub

Hmmmm. THe Textbox is a MaskedEdit box, I've changed that in the Sub.

Public Sub TextBack(ByRef Send As MaskEdBox, ByVal strValue As String)
    Send = strValue
End Sub

Edit, However a normal textbox DOES work.
What is up with Masked edit. Oh Well I'll work on it.

[DJHotIce]

I'm pulling the text from a var label.caption but it won't work.

This is because it is not a valid textbox item. However the text contained within that is the key. How do I break the variable and show only the text. I keep getting this text mismatch error. And have it narrowed it down to that issue.

[dglienna]

Post your code. I don't understand what the label has to do with the textbox.

[Bruce Fox]

Does 'Label3.Caption' identify a Control? ie Text1?

[Bruce Fox]

If so, then I succsefully tested this:

Option Explicit
 
Private Sub Submit_Click()
    Call TextBack([b](Me.Controls(Label1.Caption)[/b], txtMil.Text)
End Sub
 
Public Sub TextBack(ByRef Send As TextBox, ByVal strValue As String)
    Send = strValue
End Sub

In this case, my Labe1's Caption = "Text1".


Note: I used a TextBox.... (cant load MaskedEditBox on this PC)



Bruce.

[DJHotIce]

Ahha, little modifying of the code and it works. Thanks again!