UserForm: Command Button enters numeric value to text box

No value property for textbox, only text

if you enter the number 3 the textbox returns the text "3"
http://msdn.microsoft.com/en-us/libr...vs.110%29.aspx

I would suggest you to have another text box or a label with the visible property set to invisible.

Set the text value to 1 , 2 and so on based on the text box clicked. Let us assume that the invisible text box is called as txt_Sel

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
txt_sel.Text = 1
End Sub

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
txt_sel.Text = 2
End Sub

When the user clicks the command box assign the value to that text box like this :

Private Sub CommandButton1_Click()
UserForm1.Controls("TextBox" & txt_sel.Text).Text = 100
End Sub

Hi, patel45,

No value property for textbox, only text

Can you show me where you found that because any Textbox on a UserForm has a Value. Awaiting your information.

Ciao,
Holger

Hi, Gal403,

maybe you should hve a look at class programming for this.

Option Explicit

Dim mstrTextbox As String

Private Sub cmdDelete_Click()
If Len(mstrTextbox) > 0 Then
  With UserForm1.Controls(mstrTextbox)
    If Len(.Text) > 0 Then
      .Text = Left(.Text, Len(.Text) - 1)
      mstrTextbox = vbNullString
    End If
  End With
End If
End Sub

Private Sub CommandButton1_Click()
If Len(mstrTextbox) > 0 Then
  UserForm1.Controls(mstrTextbox).Text = 1
'  UserForm1.Controls(mstrTextbox).Text = UserForm1.Controls(mstrTextbox).Text & "1"
  mstrTextbox = vbNullString
End If
End Sub

Private Sub CommandButton2_Click()
If Len(mstrTextbox) > 0 Then
  UserForm1.Controls(mstrTextbox).Text = 2
  mstrTextbox = vbNullString
End If
End Sub

Private Sub CommandButton3_Click()
If Len(mstrTextbox) > 0 Then
  UserForm1.Controls(mstrTextbox).Text = 3
  mstrTextbox = vbNullString
End If
End Sub

Private Sub CommandButton4_Click()
  UserForm1.Controls(mstrTextbox).Text = 4
  mstrTextbox = vbNullString
End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
mstrTextbox = "Textbox1"
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
mstrTextbox = "Textbox2"
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
mstrTextbox = "Textbox3"
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
mstrTextbox = "Textbox4"
End Sub

Ciao,
Holger