Uygulamada alt formun güncellenmesi için halihazırda
Forms!frm_degerlendirmeyap!frm_degerlendirmealtform.Form.Requery
kodu zaten mevcut.
Sıkıntı girdiğiniz yeni öğrenci bilgilerinin seçim yaptığınızda kaydedilmemiş olması. Yani Tablo1 isimli tabloda öğrenciye ait bilgi olmadığı için ekleme sorgusu çalışmıyor.
lst_altbaslik isimli liste kutusunun çift tıklandığında olayındaki kodları aşağıdaki ile değiştir.
If Form.Dirty = True Then
If MsgBox("Öğrenci Bilgileri Kaydedilsin mi?", vbInformation + vbYesNo, "Kaydediliyor...") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
End If
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_gecici ( altbaslikid, id, alanlar, beceriid, geciciid ) SELECT tbl_altbaslik.altbaslikid, [Formlar]![frm_degerlendirmeyap]![Kimlik] AS İfade1, beceriler.beceri, beceriler.beceriid, (select count([beceriid]) from tbl_beceri where [beceriid]<=beceriler.[beceriid] and [altbaslikid]=beceriler.[altbaslikid]) AS sirano FROM tbl_beceri AS beceriler INNER JOIN tbl_altbaslik ON beceriler.altbaslikid = tbl_altbaslik.altbaslikid WHERE (((tbl_altbaslik.altbaslikid) = [Formlar]![frm_degerlendirmeyap]![lst_altbaslik])) ORDER BY beceriler.beceriid;"
DoCmd.SetWarnings True
DoCmd.OpenForm "frm_secimformu"
Ayrıca, tabloda "not" adında alan olmaz. Bu alan adının şimdiden değiştirilmesi gerekli. Aynı şekilde "tblŞifre" isimli tablo adı, tablodaki "Şifre" ve "Kullanıcı" ismindeki alanlar ile frmŞifre isimli form adının düzeltilmesi gerekli.