Aslında benim yazdığım yukarıdaki kod Başlık değeri = 1 ise nin altındaki koda göreydi.

If bloğunda her iki durumda da yaz2 kullanıldığı için karar verememiştim. Bu durumda :

If (islemsonu <> 0) Then

           dosyaadi = Trim(.SelectedItems.Item(1))

           yazi = Trim(.SelectedItems.Item(1))

           yazi2 = yazi & "#" & yazi & "#"

           If Me.BASLIKSEC = 1 Then

     DoCmd.RunSQL "INSERT INTO LINKEDDOCS ( LINKDOC_NAME, LINKDOC_GROUP_ID, LINKDOC_SUBJECT_ID ) VALUES ('" & yazi2 & "','" & Me.GROUPSEC & "','" & Me.KONUSEC & "')", 0

           Else

     DoCmd.RunSQL "INSERT INTO LINKEDDOCS ( LINKDOC_NAME, LINKDOC_GROUP_ID, LINKDOC_SUBJECT_ID ) VALUES ('" &  me.BASLIK & yazi & "','" & Me.GROUPSEC & "','" & Me.KONUSEC & "')", 0

           End If

    Me.frm_doclist.Requery

    Call temizle

    End If

---

Bende dosya seçme diyaloğu açılmadığı için kontrol edemiyorum.