Create a form for a tournament

Moose812

New Member
Joined
Oct 1, 2006
Messages
6
Greets and I appologize if I overlooked this while searching.

I need to create an input form for a black jack tournament. When a player signs up I'll want to input the player id, first & last name, to keep track of the early registration and entry fees etc. When the players lose and come back to rebuy I want to have a quick look up feature (by player ID or name) then click a button or something, (to keep track off how many times a player rebuys & the money) I need to be able to send them back to the tables as quick as possible. All that said and done bottom line is I need to total how many buy ins and rebuys there were so I can figure the house match and the payoff to the players.
Thanks in advance
 

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.

Moose812

New Member
Joined
Oct 1, 2006
Messages
6
Bear with me I’m a noob to VB & macros, (this is my first try).
I have a wookbook with a sheet named BuyIn, ReBuy and PlayerDataEntry.
PlayerDataEntry has two buttons 1st is “click to Add New Player” the 2nd ” Click to Add ReBuy”
they both have a form, 1st is to add a player into the tourney, 2nd to allow a registered player to rebuy when they loose.
The add player works good but I forgot a few items and don’t know how to make it do what I want.
The information I left out is The option to pick a table and round.
There are 6 tables, 5 rounds and 6 seats per table. This is because if a couple signs up, they don’t have to play against each other.
After the table and round are chosen I want it assign a TourneyID which it will get from the position it places the player on the buy in sheet, 1 through 180.
The finished entry will position the player by round, table and available sign up position, then place him on the rebuy sheet. It'll look something like this.

PlayerID / First Name / Last Name / Paid / TournyID /Round / Table / SignUp
1234 / Joe / Player / $25.00 / 1 / 1 / 1 / 1 of 6
if a spouse wants to be on another table it would be like this
4321 / Jan / Player / $25.00 / 7 / 1 / 2 / 1 of 6


Here’s what I have so far (right now it'll place the data in the next blank row)
Thank you for any help available

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("BuyIn")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a player id
If Trim(Me.txtPlayerID.Value) = "" Then
Me.txtPlayerID.SetFocus
MsgBox "Please Enter Player ID"
Exit Sub
End If

'check for a first name
If Trim(Me.txtFirstName.Value) = "" Then
Me.txtFirstName.SetFocus
MsgBox "Please Enter First Name"
Exit Sub
End If

'check for a last name
If Trim(Me.txtLastName.Value) = "" Then
Me.txtLastName.SetFocus
MsgBox "Please Enter Last Name"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtPlayerID.Value
ws.Cells(iRow, 2).Value = Me.txtFirstName.Value
ws.Cells(iRow, 3).Value = Me.txtLastName.Value
ws.Cells(iRow, 4).Value = Me.txtPaid.Value

'clear the data
Me.txtPlayerID.Value = ""
Me.txtFirstName.Value = ""
Me.txtLastName.Value = ""
Me.txtPlayerID.SetFocus

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub
 

Forum statistics

Threads
1,136,926
Messages
5,678,605
Members
419,775
Latest member
joh93

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top