How random can it be given your example? 2/13/2014 and 2/15/2014 (You have 2/14/2014 and what else??)
Here's a randomNumber generator I used on a previous project. It should give you soome ideas.
Code:
'---------------------------------------------------------------------------------------
' 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 Integer, Hi As Integer) As Integer
On Error GoTo random_Error
Randomize
randomNumber = Int((Hi - Lo + 1) * Rnd - Lo)
On Error GoTo 0
Exit Function
random_Error:
MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure randomNumber of Module "
End Function
Here is a test routine to show how to call the randomNumber
Code:
Sub mytestOfRandomNumber()
Dim a As Integer
Dim z As Integer
Dim i As Integer
a = 3
z = 300
For i = 1 To 10
Debug.Print randomNumber(a, z)
Next i
End Sub
Here is the result showing 10 random numbers between 3 and 300
Code:
273
101
23
57
113
180
199
64
187
275
You could call this routine passing integer values based on your form.
eg
add a randomNumber of days to your lowest date value using a DateAdd function.