Private Sub Form_Load()
DoCmd.OpenForm "Companyvalues"
DoCmd.GoToRecord acDataForm, "Companyvalues", acGoTo, Rnd
End Sub
Private Sub Form_Load()
DoCmd.OpenForm "frmMemo"
DoCmd.GoToRecord acDataForm, "frmMemo", acGoTo, randomNumber(1, DCount("*", "tblMemo"))
End Sub'---------------------------------------------------------------------------------------
' Procedure : randomNumber
' Author : Jack
' Created : 11/18/2010
' Purpose : To Generate Random numbers between and including a range of numbers.
'Lo and Hi are the lowest and highest random numbers you wish to generate.
'
'The Randomize keyword is critical to getting different results for each Access session.
'=======================================================================================
'---------------------------------------------------------------------------------------
' Last Modified:
'
' Inputs: N/A
' Dependency: N/A
'------------------------------------------------------------------------------
'
Function randomNumber(Lo As Long, Hi As Long) As Long
10 On Error GoTo randomNumber_Error
20 Randomize
30 randomNumber = Int((Hi - Lo + 1) * Rnd + Lo)
40 On Error GoTo 0
randomNumber_Exit:
50 Exit Function
randomNumber_Error:
60 MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure randomNumber of Module AccessMonster"
70 GoTo randomNumber_Exit
End FunctionThe requirement doesn't make sense. Wouldn't it be better to open the form to an empty record and use a combo or search field to choose a specific record. I can't imagine an app where users actually work on random records but perhaps you can enlighten us.
you just write it, either in the form module or a general module if you want to use it in multiple forms/reports or queries. function name cannot have spaces and is usually given a sensible name when called
Private Sub Form_Load()
DoCmd.OpenForm "CompanyValues"
DoCmd.GoToRecord acDataForm, "CompanyValues", acGoTo, randomNumber(1, DCount("*", "Values"))
End Sub