[FORM] Metin kutusuna birden çok değer girerek liste kutusunda arama yapmak
#1
Selamlar,
Metin kutusuna birden çok değer girerek(örneğin bir kaç araç plakası) liste kutusuna bu değerleri getirerek çoklu seçim yapmak istiyorum. bunu metin kutusuna tek değer yazarak yapabiliyorum fakat çoklu değerde takıldım. Bu konuda yardım rica edebilir miyim? Yapmak istediğim işlemin resmini ekledim umarım bir fikir oluşturur.



Eklenti Dosyaları
.jpg   Snap 2017-01-24 at 09.20.19.jpg (Boyut: 34,6 KB / İndirilme: 84)



  Alıntı
Bu mesajı beğenenler:
#2
Form tasarim modunda acin, Liste kutusu ozelliklerinden diger-->coklu secim bolumunden basit olani secin. Secim sonrasi eylem icin liste kutusunu secime gore okutup, yonlendirme yapmalisiniz.
Liste kutusu tabloda herhangi sutun ile iliskili ise alan ozelliklerinden bu alan icinde coklu secim ayarlarini yapmalisiniz.

ARAMA icin
Visual Basic
  1. Private Sub ARA_Click()
  2. Dim Kutu As Control, sayac As Long, Kosul As String
  3. Set Kutu = Me.Liste
  4. With Kutu
  5. For sayac = 0 To Kutu.ListCount - 1
  6. If Me.Controls(Kutu.Name).Column(0, sayac) And Me.Controls(Kutu.Name).Selected(sayac) = True Then Kosul = Kosul & Me.Controls(Kutu.Name).Column(0, sayac) & "', '"
  7. Next sayac
  8. Kosul = Mid(Kosul, 1, Len(Kosul) - 4)
  9. End With
  10. Set Kutu = Nothing
  11. DoCmd.OpenForm "y_frm_araç_kartı", , , "[Plate]='" & Kosul & "'"
  12. End Sub


prosedurunu kullanabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Merhaba,
hızlı çözüm öneriniz için teşekkürler, Seçim sonrası eylem konusunda ne yapmamı önerirsiniz? Benim şu an çalışan kodum şu şekilde

Private Sub Liste0_DblClick(Cancel As Integer)

DoCmd.OpenForm "y_frm_araç_kartı", , , "[Plate]='" & Liste0.Column(1) & "'"


End Sub



  Alıntı
Bu mesajı beğenenler:
#4
Once ki mesaj da anllattim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Tabloya Değer Kümesinden Veri Seçerek Veri Girişi Saglanması sevincili 2 31 26-03-2024, 20:07
Son Mesaj: sevincili
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 136 22-01-2024, 22:12
Son Mesaj: orderyazbim
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 285 24-12-2023, 14:38
Son Mesaj: dsezgin
  Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme adnnfrm 3 158 18-11-2023, 19:54
Son Mesaj: dsezgin
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 192 06-08-2023, 03:51
Son Mesaj: adnnfrm
  [SORGU] Onay Kutusuna Göre Sorgu Listesi Oluşturma 88888888 6 364 31-07-2023, 16:40
Son Mesaj: 88888888
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 361 21-07-2023, 10:31
Son Mesaj: onur_can
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 378 21-07-2023, 10:09
Son Mesaj: onur_can

Foruma Git:


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