ecces veri tabanına koşullu veri yazdırma

[recep]

ListBox3(dersler var) ü tıkladığımda ListBox2.List deki öğrenci numaraları veritananında bulup D1Y1 ye yazıyor. Ben bu yeriyi değiştirdiğimda veri tabanındaki veri değişmiyor bunu nasıl yapabilirim. Örnekleri incalediğimda kayıdı o noya ait tüm kayıtları siliyor ama ben sadece dersin o notunu silip yeni yazdığımı kaydetsin istiyorum
Kısacası( nonun bulunduğu satırdan sadece 1 sütunu nasıl güncelleyebilirim.diğer verilere dokunmadan.neden mi aynı satırda dolu 200 sutun var)

Private Sub ListBox3_Click()
ognotD1Y1.Value = ""
On Error Resume Next
Set Baglan = New ADODB.Connection
On Error Resume Next
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\OKUL.mdb;"
Set KAYIT = New ADODB.Recordset
KAYIT.Open "SELECT * FROM [KÜTÜK] where NOSU= '" & ListBox2.List(ListBox2.ListIndex) & "'", Baglan, adOpenDynamic, adLockOptimistic


If Not IsEmpty(ListBox3.List(ListBox3.ListIndex)) Then D1Y1.Value = KAYIT(ListBox3.List(ListBox3.ListIndex))


KAYIT.Close
Set KAYIT = Nothing
Baglan.Close
Set Baglan = Nothing

ogders.Value = ListBox3.List(ListBox3.ListIndex, 0)
End Sub

 

[Levent Menteşoğlu]

Sn recep

Türkçe kelimelerdeki yazım hatalarınıza birde İngilizce yazım hatalarını eklediniz. "ecces" nedir? Üstelik birde sorunuz hiç alakası omayan bir başlık altında.