Merhaba,

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