yalnız dikkatimi çekti açıklama alanı uzun metin türünde ama yanılmıyorsam liste kutuları çok uzun metinleri alamaz diyelim ki açıklama alanının uzunluğu 255ten büyük ve aradığınız sayısal alanlar 240 tan 270'e kadar ozaman 255ten sonraki verileri alamaz o durumda veriler eksik gösterilir

---

Bu durumda update olayı aşağıdaki gibi düzenlenebilir

Private Sub liste_AfterUpdate()

kodu = liste.Column(6)

islemadı = liste.Column(7)

'acıklama = liste.Column(8)

islem_turu = liste.Column(1)

islem_grubu = liste.Column(4)

yıldızlı_islem = liste.Column(5)

yururluk_tarihi = liste.Column(3)



Dim SQLB As String

Dim Kosulum As String

'______________________________________________



Dim AciklamaRs As DAO.Recordset

Dim AciklamaSql As String

AciklamaSql = "SELECT srg_bakanlıkkodları.ID, srg_bakanlıkkodları.TÜR, srg_bakanlıkkodları.AÇIKLAMA " & _

            "FROM srg_bakanlıkkodları " & _

            " where ID=" & liste.Column(0) & " and TÜR='" & liste.Value & "';"



Set AciklamaRs = CurrentDb.OpenRecordset(AciklamaSql, dbOpenDynaset)

acıklama = Nz(AciklamaRs(2))

'_____________________________________________

Kosulum = Sayim(acıklama)



SQLB = "SELECT srg_bakanlıkkodları.ID, srg_bakanlıkkodları.TÜR, srg_bakanlıkkodları.YIL, srg_bakanlıkkodları.[YÜRÜRLÜK TARİHİ] AS YÜRÜRLÜK, srg_bakanlıkkodları.GRUBU AS GRB, srg_bakanlıkkodları.YILDIZLI AS [*], srg_bakanlıkkodları.KOD, srg_bakanlıkkodları.ADI, srg_bakanlıkkodları.AÇIKLAMA, srg_bakanlıkkodları.PUAN, srg_bakanlıkkodları.FİYATI FROM srg_bakanlıkkodları " & _

"WHERE (((srg_bakanlıkkodları.TÜR)=[Formlar]![FRM_ANA]![islem_turu]) And " & Kosulum & _

"ORDER BY srg_bakanlıkkodları.YIL DESC;"



ListeFaturaEdilemez.RowSource = SQLB

ListeFaturaEdilemez.Requery



End Sub