why i get sometimes the message

[bariana]

Private Sub student_id_AfterUpdate()
'On Error GoTo Err_cmdshow
Dim db As Database
Dim r1 As Recordset
Dim r2 As Recordset
Set db = CurrentDb()
Dim i As Integer
Dim mclass As String
 
Dim mmonth As Integer
mmonth = 6
If Me.NewRecord Then
db.Execute "delete * from [csubjects]", dbFailOnError
db.Execute "INSERT INTO [csubjects] " & _
"SELECT [subjects].* FROM subjects " & _
"WHERE [subjects].[class_id] = '" & Me.Parent.class_id & "'"
 
'MsgBox ("hello")
mclass = Me.Parent.class_id
MsgBox (mclass)
 
Set r1 = db.OpenRecordset("cexams", dbOpenTable)
Set r2 = db.OpenRecordset("csubjects", dbOpenTable)
'msubject_no = DCount("[class_id]", "[csubjects]")
'MsgBox (str(msubject_no))
 'r2.Index = "primarykey"
If r2.RecordCount > 0 Then
        'For i = 1 To mmonth
        r2.MoveFirst
        ' MsgBox (" subj " & str(r2![subject_id]) & "i   " & str(i))
        'MsgBox ("subj= " & str(r2![subject_id]))
            Do Until r2.EOF
                For i = 1 To mmonth
                   r1.Index = "primarykey"
 
                   r1.Seek "=", mclass, r2![subject_id], Me.student_id, i
                   'MsgBox ("c = " & mclass & "s = " & str(r2![subject_id]) & " " & "st " & Me.student_id & "m " & str(i))
                      If r1.NoMatch Then
                        r1.AddNew
                        r1![class_id] = Me.Parent.class_id
                        r1![student_id] = Me.student_id
                        r1![student_name] = Me.student_name
                        r1![month_id] = i
                        r1![subject_id] = r2![subject_id]
                         r1![coef] = r2![coef]
                       'r1![grade] = r2![grade]
 
                        r1.Update
                     Else
                     'MsgBox ("subj= " & str(r2![subject_id]))
                     MsgBox "found"
                    End If
                   Next i
                r2.MoveNext
           Loop
        'Next i
 
 
 
    Else
        MsgBox "empty subjects"
    End If
r1.Close
r2.Close
'Me.Refresh
 
End If
 
Exit_cmdshow:
    Exit Sub
 
Err_cmdshow:
    MsgBox Err.Description
    Resume Exit_cmdshow
End Sub

[Rabbit]

Please use code tags when posting code or formatted data.

You haven't told us what problem your having.