örnek ekte hocam. periyodik muayeneden giriceksiniz. orda periyodik düzenle tuşu var


hocam orda tek kayıt var ve kodu incelerseniz sevinirim. tek kayıt seçtiğimde sorun yok ama 10 kayıt gibi fazla kayıt seçtiğimde liste kutusundan hata veriyor pm 1 koduyla ilgili....

Sayın kesoka;
Yanılmıyorsam pm verileri tbl_personel adlı tablodan alıyorsunuz. Bunun üzerinden pm_sorgusu ile formdaki listeye aktarıyorsunuz.
1- tbl_personel deki pm alanları metin
2- formdaki sorguya temel aldığınız gecici adlı görünmez alanlar metin ve özellikleri düz metin olarak ayarlı
Bence bunları bir değiştirerek deneyin.
Saygılar.

sn kesoka, konuya geri bildirimde bulunmanız bekleniyor.

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