sayın hocalarım. sorunumu şu kod ile çözdüm ilginize teşkkürler.


Metin29 = kayno
If Me.Liste38.ItemsSelected.Count < 1 Then
MsgBox ("Aktarmak için seçili dosya yok")
Exit Sub
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