Count the number of records to determine Sample Size

Good day,

Here is some sample code that will calculate your sample size.  It first gets the number of items in the database, I used the Sample-Bank Transactions but you can change that for your file.  I then have a series of if / elseif statements to calculate the sample size (I could have also done this with a select case) and then at the end I have a message box that displays the sample size.  Hope this makes sense.

Sub Main
	Dim db As database
	Dim count As Long
	Dim sampleSize As Long
	
	Set db = client.OpenDatabase("Sample-Bank Transactions.IMD")
		count = db.count
		If count < 250 Then
			sampleSize = .10 * count
		ElseIf count <= 2500 Then
			sampleSize = 25
		ElseIf count <= 10000 Then
			sampleSize = 45
		Else
			sampleSize = 60
		End If
		MsgBox "This is your sample size: " & sampleSize
	Set db = Nothing
End Sub

Thanks that works great! 
Once I assign sampleSize, I am using it within the RandomSample task, is there a way to generate a random number to use for the 'random number seed'
 
I currently have:
Set task = db.RandomSample
task.IncludeAllFields
dbName = "NonParticipants Random Sample.IMD"
task.CreateVirtualDatabase = False
task.PerformTask dbName, "", sampleSize, 1, db.Count, 19531, False
Set task = Nothing
Set db = Nothing
the 19531 is the field I am trying to make a random amount. 
 
 
Thanks!
 

Thanks Brian, this worked perfectly for the first set of selections I needed to make, however I then have a set of selections where I am getting an error of 'Invaild number of records', and I set it up using the same logic
 
This is the one that works:
Function NPRandomSample1
Set db = Client.OpenDatabase("CY non participants.IMD")
'Assign count and caculate the number of selections to be made
nonParCount = db.Count
If nonParCount < 250 Then
nonParSel = .10 * nonParCount
ElseIf nonParCount <= 2500 Then
nonParSel = 25
ElseIf nonParCount <= 10000 Then
nonParSel = 45
Else
nonParSel = 60
End If
'Run the random selection
randomStart = 10000000 * Rnd()
Set task = db.RandomSample
task.IncludeAllFields
dbName = "NonParticipants Random Sample.IMD"
task.CreateVirtualDatabase = False
task.PerformTask dbName, "", nonParSel, 1, db.Count, randomStart, False
Set task = Nothing
Set db = Nothing
End Function
 But this is the one that is getting an error:
Function PartRandomSample1
Set db = Client.OpenDatabase("2018 Participants.IMD")
'Assign count and caculate the number of selections to be made
ParCount = db.Count
If ParCount < 250 Then
ParSelTot = .10 * ParCount
ElseIf ParCount <= 2500 Then
ParSelTot = 25
ElseIf ParCount <= 10000 Then
ParSelTot = 45
Else
ParSelTot = 60
End If
Set db = Nothing
'Run the random selection of max out participants
Set db = Client.OpenDatabase("18.5k.IMD")
ParCountMax = db.Count
ParSelMax = Round((.10 * ParCountMax) ,0,0)
randomStart = 10000000 * Rnd()
Set task = db.RandomSample
task.IncludeAllFields
dbName = "Max Out Participants Random Sample.IMD"
task.CreateVirtualDatabase = False
task.PerformTask dbName, "",ParSelMax, 1, db.Count, randomStart, False <-Line with the error showing up
Set task = Nothing
Set db = Nothing
'Run the random selection of catch up particpants
Set db = Client.OpenDatabase("Catch up.IMD")
ParCountCU = db.Count
ParSelCU = .10 * ParCountCU
randomStart = 10000000 * Rnd()
Set task = db.RandomSample
task.IncludeAllFields
dbName = "Catch Up Participants Random Sample.IMD"
task.CreateVirtualDatabase = False
task.PerformTask dbName, "",ParSelCU, 1, db.Count, randomStart, False
Set task = Nothing
Set db = Nothing
'Run the random selection of remaining participants
Set db = Client.OpenDatabase("Less than 18.5k.IMD")
ParSel = ParSelTot - (ParSelCU + ParSelMax)
randomStart = 100000 * Rnd()
Set task = db.RandomSample
task.IncludeAllFields
dbName = "Less than 18.5k Participants Random Sample.IMD"
task.CreateVirtualDatabase = False
task.PerformTask dbName, "",ParSel, 1, db.Count, randomStart, False
Set task = Nothing
Set db = Nothing
End Function
 
 
 
 
 

Thanks for taking a look, I tried this and it appeas that the in the data set I am using the line:
ParSelMax = Round((.10 * ParCountMax) ,0,0) 
is returning 0 because ParCountMax is 4 (therefore resulting in .4, when I need it to round up to 1)
I added the following after the ParCountMax = db.Count in order to combat this issue but it seems like a messy way to deal with the problem.
If ParCountMax = 0 Then
Set task = Nothing
Set db = Nothing
ElseIf ParCountMax *.10 < 1 Then
ParSelMax = 1 + (.10 * ParCountMax)
Else
ParSelMax = .10 * ParCountMax
End If