Help with entering data in textbox & checkbox for database

I'm new to creating databases using excel and have been asked to continue work on one that has been started by someone else with some knowledge of this.

User input screen has been created and some coding has been done. I understand the coding which is attached to the "enter hours" button, which is used to enter the user input into the database.

I need help with the following:
1) how to allow user to input information into text box and checkbox
2) how to ensure only numeric input is allowed in textbox

I have very little knowledge of VBA but have been reading online forums and help files to learn what I can. Any help would be greatly appreciated.

Attached is a copy of the file. Thank you.

Not sure why you are using text boxes, could you not use the cells?

I could, but did not know if getting rid of the text boxes would affect the code, since I have very little knowledge of VBA, I didn't want to change anything in the screen setup.

After changing these text boxes I find the code does not work. Will I now have to go back and create labels for each item and make sure it has the same name as in the code. ie.

Private Sub EnterAllHours_Click()
  ActiveWorkbook.Sheets("Payroll Calculation Program").Activate
      Range("Records").Select
      Do
      If IsEmpty(ActiveCell) = FalseThen
          ActiveCell.Offset(1, 0).Select
      End If
      Loop Until IsEmpty(ActiveCell) = True
     
      ActiveCell.Value = PayPeriod.Value
      ActiveCell.Offset(0, 1) = PayPeriodDay.Value
      ActiveCell.Offset(0, 2) = DSHour.Value

End sub

Do I need to create a label on the input screen named "payperiod" and another for payperiodday and DSHour etc for each variable in the code?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

It seems like a lot of work placing textboxes over a cell, especially when it is not required.
Why not use a cell value instead of a textbox value?

As Dave says, don't bother with the TextBoxes just use the cells. Your code will not find an empty TextBox it's looking at cells & looping to find an empty cell is inefficient

From the example that youhave attached

1. Data Entry is into textBoxes not cells
2.The code that you posted needs a Named Range called Records, this does not exist

You would greatly simplify this if you forgot about using textBoxes & used the cells themselves. Also, delete all the existing code.

Then this code is all you need,obviously expand it to include all entries & check the input is in the correct columns

Sub AddData()
    Dim NextRw As Long
    With Sheet2
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(NextRw, 1).Value = Sheet1.Range("E8").Value
        .Cells(NextRw, 2).Value = Sheet1.Range("E9").Value
        .Cells(NextRw, 3).Value = Sheet1.Range("E10").Value
        'etc
    End With
    'clear entries
    Sheet1.Range("E8:E35").ClearContents
End Sub

Thank you for your help, I have added some comments to the code you provided. Could you please check my comments to make sure I am understanding exactly what the code does.

One more question, how do I mark this post as "Solved" , thanks

Sub AddData()
    Dim NextRw As Long  ' declares variable to accept any number
    With Sheet2   ' tells code to use sheet2
        ' starts at row 1 and then moves up 1 row?
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        ' use current row and offsets the column by1, 2, 3, etc
         .Cells(NextRw, 1).Value = Sheet1.Range("E8").Value
        .Cells(NextRw, 2).Value = Sheet1.Range("E9").Value
        .Cells(NextRw, 3).Value = Sheet1.Range("E10").Value
        'etc
    End With
    'clear entries
    Sheet1.Range("E8:E35").ClearContents
End Sub

Finding the next empty row in the code is achieved by taking the last row in the column & moving up to the last used cell, equivalent to Ctrl+Shift+ Up Arrow. Then it gets the Row number & adds 1.

Enters data using Cells(Row Number, Column Number), in this case Row Number is the Variable NextRw