Teşekkür ederim. Kod dizilimi doğrumu peki. Kodların satır sıralaması.

---

Private Sub kmtkaydet_Click()

On Error GoTo Err_kaydıkaydet_Click

If DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "' and sinifi='" & Me.txtsinif & "' and alan_id=" & Me.cbalan.Column(0) & " and dali=" & Me.cbdal.Column(0)) >= 1 Then

MsgBox "Bu alanda ve sınıfıta, bu ders eklenmiştir.Lütfen kontrol ediniz.", vbCritical + vbOKOnly, "Ders Ekleme"

Me.txtdersadi.Undo

Else

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

     DoCmd.SetWarnings False

     DoCmd.OpenQuery "srg_guncelle"

        DoCmd.SetWarnings True

    Me.listedersler.Requery

Exit_kaydıkaydet_Click:

    Exit Sub

Err_kaydıkaydet_Click:

    MsgBox Err.Description

    Resume Exit_kaydıkaydet_Click

    End If

 Me.listedersler.Requery

End Sub