mümkün olduğunca az kod kullanarak, Ekleme Sorgusu ile bir örnek yaptım.
Eklemeden önce o öğrencide aynı dersin olup olmadığı da kontrol ediliyor.
Siz durum tablosunda öğrencileri adi_soyadi alani ile kayıt ve kontrol ediyorsunuz
ancak bu işin öğrenci id si veya numarası ile yapılması gerektiğini de belirteyim.
Mesela, Matematik butonunun kodu;
Kod:
Private Sub Komut_Matematik_Click()
If DCount("*", "Durum", "adi_soyadi='" & Forms!ogrenci!adi_soyadi & "' And Ders='Matematik'") = 0 Then
With DoCmd
.SetWarnings False
.OpenQuery "Durum_Ekle_Matematik"
.SetWarnings True
End With
Me.AltForm_Durum.Requery
End If
End Sub