I have students who are completing correspondence lessons. Each student's history is tracked for what we sent them, what they returned, who graded it, and when it was graded.

One of the problems is the StudentID is not following the Student that is searched for.  What needs to happen, is that I need to record the above items for each student as the student progresses through the lessons.

I do not find any lessons from Richard that I've been able to adapt.

Please point me in the right direction.

The code for the lesson fields are listed below; screenshots to follow.  
____________________________________________________________________________________________________

Option Compare Database
Option Explicit

Private Sub DateCourseReceived_AfterUpdate()
  
    Dim sDateCourseReceived As String, DateCourseReceived As String
    Dim SQL As String
    Me.Refresh
    
     StudentID = Nz(DLookup("StudentID", "StudentT", "TDCJ=""" & TDCJ & """"), 0)
  
        ' Lesson Date Course Received
            sDateCourseReceived = DateCourseReceived
            
            SQL = "INSERT INTO StudentCourseT (DateCourseReceived) " & _
            "SELECT """ & sDateCourseReceived & """"
            
            DoCmd.RunSQL SQL
            
                  
End Sub

Private Sub LessonGraded_AfterUpdate()
    
    Dim sLessonGraded As String, LessonGraded As String
    Dim SQL As String
    Me.Refresh
    
    StudentID = Nz(DLookup("StudentID", "StudentT", "TDCJ=""" & TDCJ & """"), 0)
  
        ' Lesson Graded
            sLessonGraded = LessonGraded
                      
            SQL = "INSERT INTO StudentCourseT (LessonGraded) " & _
            "SELECT """ & sLessonGraded & """"
            
            DoCmd.RunSQL SQL
                    
End Sub

Private Sub LessonGrader_AfterUpdate()
    
    Dim sLessonGrader As String, LessonGrader As String
    Dim SQL As String
    
    StudentID = Nz(DLookup("StudentID", "StudentT", "TDCJ=""" & TDCJ & """"), 0)
  
        ' Lesson Grader
            sLessonGrader = LessonGrader
                      
            SQL = "INSERT INTO StudentCourseT (LessonGrader) " & _
            "SELECT """ & sLessonGrader & """"
            
            DoCmd.RunSQL SQL
                    
End Sub

Private Sub LessonSent_AfterUpdate()

    Dim sLessonSent As String, LessonSent As String
    Dim SQL As String
    
    StudentID = Nz(DLookup("StudentID", "StudentT", "TDCJ=""" & TDCJ & """"), 0)
  
        ' Lesson Sent
            sLessonSent = LessonSent
                      
            SQL = "INSERT INTO StudentCourseT (LessonSent) " & _
            "SELECT """ & sLessonSent & """"
            
            DoCmd.RunSQL SQL

End Sub