Formun kayıt kaynağındaki sorguya
projsoru: [PROJE].[PROJE_ID] & "-" & [SORU_ID]
alanı eklendi,
SoruListesi isimli liste kutusunun (bu liste kutusunun adı "lst_SoruListesi" olmalı) satır kaynağındaki sorguya
projsoru: [PROJE_ID] & "-" & [SORU_ID]
alanı eklendi,
SoruListesi isimli liste kutusunun güncelleştirme sonrasında olayındaki kod
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[projsoru] = '" & Nz(Me![SoruListesi].Column(3), 0) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.SoruListesi.Requery
kodu ile değiştirildi.
Amaç, kaydı SORU_ID alanına göre bulmak yerine yeni oluşturulan projsoru alanına göre buldurmak. SORU_ID e göre aratırsan bulduğu ilk kaydı gösterir, ilk kaydın PROJE_ID'i 1