[FORM] Metin kutusuna birden çok değer girerek liste kutusunda arama yapmak

aykutarslan · 24-01-2017, 09:24

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.

dsezgin · 24-01-2017, 09:40

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
Private Sub ARA_Click()
Dim Kutu As Control, sayac As Long, Kosul As String
Set Kutu = Me.Liste
With Kutu
For sayac = 0 To Kutu.ListCount - 1
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) & "', '"
Next sayac
Kosul = Mid(Kosul, 1, Len(Kosul) - 4)
End With
Set Kutu = Nothing
DoCmd.OpenForm "y_frm_araç_kartı", , , "[Plate]='" & Kosul & "'"
End Sub

prosedurunu kullanabilirsiniz.

aykutarslan · 24-01-2017, 09:51

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

dsezgin · 24-01-2017, 10:00

Once ki mesaj da anllattim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Arama Sorunu	Pasham	0	108	08-04-2024, 14:32 Son Mesaj: Pasham
	Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme	Pasham	24	333	04-04-2024, 01:18 Son Mesaj: halily
	Tabloya Değer Kümesinden Veri Seçerek Veri Girişi Saglanması	sevincili	2	110	26-03-2024, 20:07 Son Mesaj: sevincili
	[FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama	orderyazbim	2	145	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	299	24-12-2023, 14:38 Son Mesaj: dsezgin
	Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme	adnnfrm	3	172	18-11-2023, 19:54 Son Mesaj: dsezgin
	Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz?	adnnfrm	2	205	06-08-2023, 03:51 Son Mesaj: adnnfrm
	[SORGU] Onay Kutusuna Göre Sorgu Listesi Oluşturma	88888888	6	377	31-07-2023, 16:40 Son Mesaj: 88888888

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL