Card Reader Application

Several years ago, I developed a custom Card Reader Application in Microsoft Access for Tramore Golf Club, designed to efficiently manage their weekly time-sheet draw.

The system simplifies the Saturday evening process where members visit the clubhouse to register for the draw by swiping their GUI cards. A connected card reader retrieves member details from the database and automatically adds them to the draw.

To initiate the draw, the user inputs the competition start time and the time interval between groups. The system then randomly selects three registered participants, allowing the user to announce their names. If desired, the user can manually add unregistered players as playing partners and view a list of recent partners to avoid repetitive pairings.

Once a member is assigned to the time-sheet, their name is removed from the waiting list, ensuring an organized and seamless scheduling experience.

Card Reader Application code for calling the next 3 members

Function nextForList(tmpNumber)
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryRandom"
DoCmd.SetWarnings True
Dim rst As Recordset, tmpSql As String
tmpSql = "select * from tblWaitingList where called=0 and allocated=0 order by Randonno"
Set rst = CurrentDb.OpenRecordset(tmpSql)
If rst.RecordCount > 0 Then
    rst.MoveFirst
    Do While Not rst.EOF And tmpNumber > 0
        rst.Edit
        rst!Called = -1
        rst!CallSequence = Nz(DMax("[CallSequence]", "tblWaitingList", "called=-1"), 0) + 1
        rst.Update
        
        rst.MoveNext
        tmpNumber = tmpNumber - 1
    Loop
End If
Set rst = Nothing


End Function
Random Query
Random Query Call

The random query takes the waiting list of members whose names have not yet drawn or allocated to a time slot. I generate this by using RND function on the ID (Auto number) of the table. AS members swipe their card they are added to the table. Once a player is added to the time-sheet the name is marked as allocated and will not be draw from the listing.

Card Reader Application

Members can be added on the main screen or you can open the lisitng “Edit Members” to paste all your club membership from the BRSGolf system.

You can download a copy of the database from this link – if you need help getting it setup send an email to support@anythingaccess.com