Create a form for a tournament

[Moose812]

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

 

[Moose812]

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

 

[Moose812]

Thanks anyway but I think I have it figured out in Access