UserForm_Activate & _Initialise will not Run

[krissz]

I am adding a UserForm to speed data entry for our test engineers. This has 3 pairs of TextBox & SpinButtons for selection of product & test plus the test result. Also an Exit button & 2 labels.
_Initialise & _Activate is supposed to set the text for the TextBoxes plus values for the SpinButtons, default or otherwise.
Neither will run. Have tried location the procedures under Forms & the applicale Sheet, but no avail.
Have now stripped out all the code apart from Message Boxes & some text to try & debug.

What is preventing the routines from running ?

 

[Datsmart]

Welcome to the board.


Initialization code would go in the UserForm.
In VBA, right click your UserForm, choose "View Code".
Paste your code there.

You say your code does not run. Are you getting any errors?
Please post your code if you need help with it.

 

[krissz]

Thanks.
The code is in Forms.

In the Sheet, I have:

Option Explicit

Private Sub Show_Ent_Win_Click()
 ' Open Data Entry Box
         
    Load Data_Entry
    Data_Entry.Show
    
   Unload Data_Entry

End Sub

In Forms, I have:

[INDENT]Option Explicit

Public Test_No As Integer
Public Meter_No As Integer

Private Sub DE_Close_Button1_Click()
' Close the Entry Box
    
   Worksheets("Reference").Range("C202").Value = Meter_No
   Worksheets("Reference").Range("C203").Value = Test_No
   
    Data_Entry.Hide
 

End Sub

Sub Data_Entry_Initialise()
    
 MsgBox "Initialising"
    
    Meter_No = Worksheets("Reference").Range("C202").Value
    Test_No = Worksheets("Reference").Range("C203").Value
        
    TextBox_Reading.Text = "Run"

End Sub

Sub Data_Entry_Activate()

 MsgBox "Activating "
   
    If TextBox_Reading.Text = "" Then
        Data_Entry_Initialise
        TextBox_Reading.Text = "Init'ed"
    Else
        TextBox_Reading.Text = "Not Run"
    End If

End Sub
[/INDENT]

None of the message boxes appear.

Whether important, I do not know, but I first started with default names for all the boxes & controls; then renamed them.

 

[Datsmart]

Change your Initialise entry line from:

Sub Data_Entry_Initialise()

To:

Private Sub UserForm_Initialize()

 

[krissz]

John
Thank you. I expected the commands to be specific to the form. Have also changes the _Activate & that now works. Also, I note that I had to change the spelling if Initialise to Initialize to make it work.

I presume that if I have several Userforms, the code will be located within each module & be localised that way.

The next fun will be transferring data between the various modules - gave up on this & am using part of a excel sheet. There appears to be no truly Global Variables - as I understand the Global simply means that the definition is valid within the Sheet, Form, etc.

Thanks again
Kris

 

[Norie]

Why are you using Activate and Initialiaze?

 

[sykes]

Kris

Welcome to Mr Excel!

Just an aside...............

A quick way to get to the correct place to place your code, with may of the objects, is to right_click them and select "View code." This goes for the userforms too. If you do this with a userform at design time, all you have to do is select the event you wish to use, from the right-hand drop down at the top of the VBA pane, and the event holder is there for you, pre-loaded, which takes away a lot of the frustration, and spelling errors etc! Same for spinners, commandButtons etc - well, at least the ActiveX ones.

As for Global Variables - if you declare them at the TOP of a module, then they are truly global....... so

 Public Kris As String

.......at the top of any module will create a place in memory.

To give the variable a value from ANYWHERE in your workbook / project...

Sub set_Kris()
Kris = "Testing Kris"
End Sub

To test the variable a value from ANYWHERE in your workbook / project...

Sub check_Kris()
MsgBox Kris
End Sub

 

[krissz]

Norie
To set the variables in the box. Data entered via the box will be put into the main sheet.
It is a lot quicker for the operator to centralise all data entry into the one box rather than moving around the sheet. Also reduces the possibility of errors as the potential entries will be limited.

 

[krissz]

Sykes
Thank you ! I am rather far down the line with this, having set up a sheet area for variable storage, but will certainly use it in future.
I am just moving into VBA, most of my cosing was on databases with a very different (& flexible) coding structure. Also minimal help except for books.
Kris

 

[Norie]

So why are you using Activate and Initialize?