belgeno çift tıklama olayındaki kodu aşağıdaki kod ile değiştir.

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    strSQL = "SELECT * FROM açıklama "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

        .Find "[belge]=" & Me![belgeno]

            If Not rstkayit.EOF Then

                .Fields("belge") = Me.belgeno

                .Update

             Else

                .AddNew

                .Fields("belge") = Me.belgeno

                .Update

             End If

        End With

DoCmd.OpenForm "açıklama", acNormal, , "[belge]=" & "'" & Me![belgeno] & "'"