Also, I get no error messages or msgboxes showing up for this either.

If it's highlighting the RunSQL line, then I would add a msgbox right before that to msgbox S and see what comes up. You can also try to hover over the S at the end of RunSQL to see if it shows anything

Let's have a look at the Form in Design View with the TestResultID selected and the Properties Sheet showing.

Also is that your code in the Begin Test Button Event?

I would also change RunSQL S to:

CurrentDb.Execute S, dbFailOnError

This way you don't have to worry about the Warnings popping up saying you're about to Append 1 record and it will save you having to turn Warnings off and then back on again.

Donald Donald this is the results of the MsgBox placed before the RunSQL S

Alex Alex this is the code for the Begin Test Button and Image to follow for the property sheet on TestResultID"

Details

Private Sub BeginTestBtn_Click()

    'Make sure a valid selection has been made
    
    If IsNull(StudentCbo) Then
        MsgBox "Select a student"
        Exit Sub
    End If
    
    If IsNull(TestCbo) Then
        MsgBox "Select a Test"
        Exit Sub
    End If
    
    ' check to make sure the test has questions
    
    Dim C As Long
    
    C = Nz(DCount("*", "QuestionT", "TestID=" & TestCbo), 0)
    If C = 0 Then
        MsgBox "Test has no questions."
        Exit Sub
    End If
    
    ' Lock the combo boxes
    
    StudentCbo.Enabled = False
    DepartmentCbo.Enabled = False
    ClassCbo.Enabled = False
    TestCbo.Enabled = False
    
    ' HIDE OR DISABLE BEGIN TEST BUTTON****************
    
    'Create a record for this test intance in TestResultT
    
    Dim S As String
    S = "INSERT INTO TestResultT (TestID, StudentID, TestDateTime)" & _
        " VALUES (" & TestCbo & ", " & StudentCbo & ", #" & Now() & "#);"
    MsgBox S
    DoCmd.RunSQL S
  
    ' Look up the TestResultID that was just assigned by the SQL S statement
    TestResultID = Nz(DMax("TestResultID", "TestResultT", "TestID=" & TestCbo & _
        " AND StudentID=" & StudentCbo), 0)
    If TestResultID = 0 Then
        MsgBox "Error getting TestResultID"
        Exit Sub
    End If
    
End Sub

Copy

Kevin Thanks Kevin, but will that make the ID number appear in the box on the form?

You have misspelled TestResultID.

Thank you again, Kevin.  I couldn't even see that spelling error. I guess somehow I am going to have to find a way to use the zoom view on all that stuff. My sight seems to be getting worse. Sad but old age is no joke. Again Thank you.

One option I find handy is with dragging the Table/Query Fields onto the Form, then it should be spelled correctly
Or if you are adding textboxes yourself is to have the Table open in Design View and copy over the Field name from there.

I too often have to strain sometimes to see stuff on the screen and especially in older videos or pdfs. Between getting older, working on stuff when if I'm too tired, sugar too high, or just looking at the screen too long, aside from just taking a break, sometimes, I have to use some tricks when I'm coding or proofreading.

Just some reminders of some things you can do in and out of Access.
1) In most fields, SHIFT+F2 lets you go to zoom box where you can adjust font size to be easier to read
2) If the zoom box isn't available, if the Expression Builder is available (in some fields), you can view the text there and then use the mouse wheel along with shift to zoom in or zoom out
3) Copy/paste into NotePad or another application that can zoom/resize
4) If looking at a video or pdf that is blurry even when zoomed, if you're using windows 10 or 11, it has built in Windows Snipping Tool which has a decent OCR feature that lets you press the print screen button on the keyboard and the option bar will appear at top of screen and you can select the OCR button and select the area of screen you're trying to read and it will convert it to text you can copy/paste to be able to read as above.

There are also other third party screen capture tools available also.

ZoomIt too
https://learn.microsoft.com/en-us/windows/powertoys/zoomit

Or PowerToys
https://learn.microsoft.com/en-us/windows/powertoys/

You can also use Windows Magnifier.

Thank all of you for the information and I will look into it all in hopes I can see it all better.