Random Message code not randomising on form open

[zellan692]

My database opens to a specific form, I want a random message to be generator on the open form event.

Problem: the same message is generated every time the database/form opens.

The only way I can get the message to randomise is by toggling between design/running mode of the form in question.

Have tried:
google
onsite individuals
on open event of form
on load event of form
on timer event of form
on activate event of form

Any assistance to truely randomise on open event would be appreciated.

Dim sMessages() As String
Dim iUpper As Integer
Dim iLower As Integer
Dim rndGet As Integer
  iLower = 1
  iUpper = 10
  ReDim sMessages(iLower To iUpper)
  sMessages(1) = "test 1"
  sMessages(2) = "test 2"
  sMessages(3) = "test 3"
  sMessages(4) = "test 5"
  sMessages(5) = "test 6"
  sMessages(6) = "test 7"
  sMessages(7) = "test 8"
  sMessages(8) = "test 9"
  sMessages(9) = "test 9"
  sMessages(10) = "test 10"
  rndGet = Int((iUpper - iLower + 1) * Rnd + iLower)
  MsgBox sMessages(rndGet), vbOKOnly, "Reminder"

 

[Galaxiom]

The Randomize command is required before the Rnd function is used.

Just put the word Randomize on a line of the code.

 

[zellan692]

Thank you very much - I appreciate your assistance
zellan692