listbox and textbox

[Darren Smith]

I have tried to link a listbox item to a value in my textbox see below. Can anyone tell me why this won't work?

Private Sub Bottom_of_Page_1_Change()

Dim LBox As ListBox
Dim x As Integer
Dim y As Integer

Set LBox = Me.ListBox4
x = 67
y = 61

If LBox = "STD Page 1" Then
  Value = x
  End If
 
If LBox = "STD Page 2" Then
  Value = y
  End If
 
End Sub

 

[My Aswer Is This]

If your trying to enter a value in a Textbox and have that value entered into a listbox.
Try this. Otherwise please explain in words what your wanting to achieve

The script runs when you Exit the Textbox

Private Sub TextBox1_LostFocus()
'Modified  12/14/2020  7:28:12 AM  EST
ListBox1.AddItem TextBox1.Value
End Sub

 

[Darren Smith]

Sorry i will add a number value in Textbox code that links with the choose on listbox

 

[Darren Smith]

For example if this

LBox = "STD Page 1"

then textbox value should be 67

LBox = "STD Page 2"

then textbox value should be 61

 

[My Aswer Is This]

Sorry i will add a number value in Text to the code that links with the choose on listbox

Sorry i will add a number value in Textbox code that links with the choose on listbox

I'm sorry I still have no ideal what your trying to do.
Do you mean if you enter 12 into TextBox you want

Sorry i will add a number value in Textbox code that links with the choose on listbox

 

[Darren Smith]

I'm sorry I still have no ideal what your trying to do.
Do you mean if you enter 12 into TextBox you want

If Listbox says std page 1 that`s = 67
or If Listbox says std page 2 that`s = 61 which needs to show in the textbox for form user to see.

 

[My Aswer Is This]

So what is the name of your Listbox
and you

If Listbox says std page 1 that`s = 67
or If Listbox says std page 2 that`s = 61 which needs to show in the textbox for form user to see.

This is beyond my knowledgebase.
I will continue to monitor this thread to see what I can learn.

 

[Darren Smith]

So what is the name of your Listbox
Listbox 4
and you

This is beyond my knowledgebase.
I will continue to monitor this thread to see what I can learn.