sayın hocalarım soruma çözüm bulundu. ihtiyacı ve aynı tarz sorun yaşayan arkadaşlar için kodu ekliyorum. yardımı geçen arkadaşlara tşkler

'............

'..................

Else

For x = 0 To Me.Liste38.ItemsSelected.Count - 1

 

    kyt.Open "tbl_personel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

 

    row = Me.Liste38.ItemsSelected(x)

    kayno = Me.Liste38.Column(0, row)

 

        Metin29 = kayno

         kyt.Find "[p_id]= " & kayno

            kyt("PM 1") = Format(DateAdd("m", 0, yenipm), "dd-mmm-yy")

            kyt("PM 2") = Format(DateAdd("m", 6, yenipm), "dd-mmm-yy")

            kyt("PM 3") = Format(DateAdd("m", 12, yenipm), "dd-mmm-yy")

            kyt("PM 4") = Format(DateAdd("m", 18, yenipm), "dd-mmm-yy")

            kyt("PM 5") = Format(DateAdd("m", 24, yenipm), "dd-mmm-yy")

            kyt("PM 6") = Format(DateAdd("m", 30, yenipm), "dd-mmm-yy")

            kyt("PM 7") = Format(DateAdd("m", 36, yenipm), "dd-mmm-yy")

            kyt("PM 8") = Format(DateAdd("m", 42, yenipm), "dd-mmm-yy")

        kyt.Update

   kyt.Close

Next x