liste kutusundan çoklu seçimde hata
#1
merhaba. yaptığım programımda kişi verilerine ait pm1 adlı alanı çoklu seçimle değiştirmeye çalışıyorum. eklediğim öreneğimde pm_degistir formunda liste kutusunda 8 adet kayıt var. ve bunlardan 5 taneye kadar seçip yeni pm kutusuna tarih yazıp değiştirdiğimde sorun yok. fakat 6 ve üzeri seçim yaptığımda ve yeni pm ye tarih girip değiştire tıkladığımda hata alıyorum. silerden istediğim öreneği açıp 6 veya 7 kişiyi seçip yeni pmye bir tairh girip( tarih formatı 13-Oca-11 gibidir ) değiştir butonuna tıklayıp hatayı görmeniz ve bu hatayı düzeltmeme yardımcı olabilirseniz sevinirim. tşkler şimdiden ilginiz için


Eklenti Dosyaları
.rar   REVİR V2 - Kopya.rar (Boyut: 65,24 KB / İndirilme: 98)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

İlgili kısmı bu şekilde kullanınız..:

Visual Basic
  1. '............
  2. '..................
  3. Else
  4. For x = 0 To Me.Liste38.ItemsSelected.Count - 1
  5.  
  6. kyt.Open "tbl_personel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  7.  
  8. row = Me.Liste38.ItemsSelected(x)
  9. kayno = Me.Liste38.Column(0, row)
  10.  
  11. Metin29 = kayno
  12. kyt.Find "[p_id]= " & kayno
  13. kyt("PM 1") = Format(DateAdd("m", 0, yenipm), "dd-mmm-yy")
  14. kyt("PM 2") = Format(DateAdd("m", 6, yenipm), "dd-mmm-yy")
  15. kyt("PM 3") = Format(DateAdd("m", 12, yenipm), "dd-mmm-yy")
  16. kyt("PM 4") = Format(DateAdd("m", 18, yenipm), "dd-mmm-yy")
  17. kyt("PM 5") = Format(DateAdd("m", 24, yenipm), "dd-mmm-yy")
  18. kyt("PM 6") = Format(DateAdd("m", 30, yenipm), "dd-mmm-yy")
  19. kyt("PM 7") = Format(DateAdd("m", 36, yenipm), "dd-mmm-yy")
  20. kyt("PM 8") = Format(DateAdd("m", 42, yenipm), "dd-mmm-yy")
  21. kyt.Update
  22. kyt.Close
  23. Next x





  Alıntı
Bu mesajı beğenenler:
#3
çok tşkler hocam bayadır çözüm bulamamıştım. tkrar tşkler



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  çoklu Seçinle Kayıt Girme? kesoka 1 357 02-07-2025, 23:31
Son Mesaj: dsezgin
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.193 18-02-2025, 08:49
Son Mesaj: mkoblayek
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 450 09-01-2025, 13:26
Son Mesaj: celalll
  Nerde Hata Yapıyorum SBNS 3 381 21-10-2024, 20:38
Son Mesaj: halily
  [FORM] Dcount Hata Veriyor TheREDROSE 4 382 04-08-2024, 15:12
Son Mesaj: TheREDROSE
  Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme Pasham 24 1.610 04-04-2024, 01:18
Son Mesaj: halily
  [FONKSiYON] Fonksiyonda Hata zimbit 1 341 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 480 26-10-2023, 14:11
Son Mesaj: serdem48

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi