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
Cevapla