They can enter up to as many times in each event as I specify on my form. I just don't want them to end up say number 1,2,3,4,5. I want to specify on my form how far apart to put them, like 1,5,10,15,20.
Public Function GenerateRopingOrder(ByVal EventID As Long, ByVal MinSpacing As Long) As Boolean
On Error GoTo Err_GenerateRopingOrder
Dim UserResponse As Long
Dim conn As ADODB.Connection
Dim rstRegistration As ADODB.Recordset
Dim rstRopingOrder As New ADODB.Recordset
Dim SlotCount As Long
Dim...
I have a code that assigns records in the order the entry to the event comes in. My problem is that if the same person enters 3 times in a row they end up back to back in the event, I would like to have it make them no closer than a number I enter on my Main form. I thought about using random...
I have the following code and it works and generates my order, but does not number my roping order correctly. Generally does not begin with one and then I have a duplicate number, say like 2 4's. Is there any way to make this come back starting with 1. Any help would be appreciated:
Private...
I have a code that contains
For X = intNumberOfSlots To 1 Step -1
rsExists.Open "SELECT * FROM Registration WHERE EventID = " & Me!EventID & " and RopingOrder = " & X, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.