Dim Not Working

D

DS

This statement isn't passing a value..

Event 1
This is to set the Number.....

Private Sub Image21_Click()
Dim BT As Integer
BT = 1
End Sub


Event 2
This is to set the text in text11

Private Sub Image18_Click()
Dim BT As Integer
Select Case BT
Case 1
Me.Text11 = "Transfer Bar Check"
Case 2
Me.Text11 = "Transfer Bar Tab"
Case 3
Me.Text11 = "Quik Screen"
End Select
End Sub

After you click the first event, then the second, nothing happens,
Text11 doesn't fill.
Any Suggestions Appreciated.
Thanks
DS
 
R

RuralGuy

You need to define BT as a Public Variable at the top of your code page outside
of any sub or function. Then do not define it elsewhere, just use it.

This statement isn't passing a value..

Event 1
This is to set the Number.....

Private Sub Image21_Click()
Dim BT As Integer
BT = 1
End Sub


Event 2
This is to set the text in text11

Private Sub Image18_Click()
Dim BT As Integer
Select Case BT
Case 1
Me.Text11 = "Transfer Bar Check"
Case 2
Me.Text11 = "Transfer Bar Tab"
Case 3
Me.Text11 = "Quik Screen"
End Select
End Sub

After you click the first event, then the second, nothing happens,
Text11 doesn't fill.
Any Suggestions Appreciated.
Thanks
DS
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
D

DS

RuralGuy said:
You need to define BT as a Public Variable at the top of your code page outside
of any sub or function. Then do not define it elsewhere, just use it.




_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Great, That did it! Thanks
DS
 
T

Turtle

Move
Dim BT As Integer
outside your procedure declarations.
(remove it from inside each declaration)

The way you have it now, you have declared a separate variable for each
procedure (even though they have the same name). They can't see each other,
because each is only valid within its own procedure.
 
Top