Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma

Bu kod butonun olay yordamında var. Basınca kayıtı tabloya aktarıyor, sorun yok.

Biz form üzerinde metin kutuları yerine yon-mat-ort alanları için birleşik giriş kutusu üzerinden çoklu seçim yapmak istiyoruz.
Birleşik giriş kutusu üzerinden çoklu seçim yapıp, seçilenlerin tabloya aktarılması için kodda yon-mat- ort alanları için nasıl bir düzenleme yapmamız gerekir?

Örneğin yon alanı için biz birleşik girişkutusundan çoklu seçim ile kuzey-güney-batı şeklinde seçim yapmış olalım,bunu tabloda yon alanına kuzey,güney,batı şeklinde virgüllü olarak yanyana yazmasını istiyoruz,Oradan da rapor alacağız ve yanyana olması lazım.
Aynı şekilde mat ve ort alanları içinde bu şekilde olmasını istiyoruz..

içinde sahte verilerin olduğu örnek çalışmanızı eklemeniz çözümü kolaylaştırır

orta ölçekli bir kurumda kullanılan bir uygulama ve içinde kurumsal bilgiler var, buradan paylaşmam mümkün değil.Basitçe izah etmem gerekirse, form var,form üzerinde bilgileri metin kutuları ile seçilmekte.Yön-mat-ort alanları için metin kutularını kaldırıp yerine çoklu seçim yapabilmek için birleşik giriş kutusu eklemek istiyoruz,(metin kutularında tek bir yönü seçtiriyor örneğin batı) bu sayada birden fazla yönü seçmek istiyoruz,örneğin kuzey-batı gibi.. seçtiklerimizi de tabloya aralarında virgül olacak şekilde kayıt etsin yeterli.Aynı şey mat ve ort alanları içinde geçerli.

Bunun içinde yukarıda verdiğimiz kayıt butonunda bulunan kodda nasıl bir düzenleme yapmak lazım?

Örneğiniz olmadan verilecek her cevap farazi defalarca belirttik, sorunuza uygun olarak basit bir örnek hazırlayıp ekleyebilirsiniz. Ayrıca sitede çok sayıda Çoklu Veri Girişi ile ilgili benzeri bir çok örnek var öncelikle bunları araştırın.

AccessTr Forum Kuralları'nı dikkatle inceleyin.

3-a) Sorulara örnek uygulama eklemek zorunludur. Uyarı Bitiş Süresi : 4 Ay, Uyarı Seviyesi +2

4-) Bir konu açmadan önce o konunun forumumuzda mevcut olup olmadığını lütfen arama yaparak araştırınız. Benzeri konu daha önceden sorulmuş olabilir. Sürekli ihlalde uyarı puanı verilecektir. Uyarı Bitiş Süresi : 4 Ay, Uyarı Seviyesi +2

(29/10/2021, 14:29)atoykan yazdı: Örneğiniz olmadan verilecek her cevap farazi defalarca belirttik, sorunuza uygun olarak basit bir örnek hazırlayıp ekleyebilirsiniz. Ayrıca sitede çok sayıda Çoklu Veri Girişi ile ilgili benzeri bir çok örnek var öncelikle bunları araştırın.

AccessTr Forum Kuralları'nı dikkatle inceleyin.

3-a) Sorulara örnek uygulama eklemek zorunludur. Uyarı Bitiş Süresi : 4 Ay, Uyarı Seviyesi +2

4-) Bir konu açmadan önce o konunun forumumuzda mevcut olup olmadığını lütfen arama yaparak araştırınız. Benzeri konu daha önceden sorulmuş olabilir. Sürekli ihlalde uyarı puanı verilecektir. Uyarı Bitiş Süresi : 4 Ay, Uyarı Seviyesi +2

verdiğiniz örnek konuda bahsedileni incelemiştim ancak orada liste kutusundan çoklu seçim anlatılmakta,bizim istediğimiz ise birleşik giriş kutusu üzerinden çoklu seçim yapabilmek ve seçtiklerimizi tabloya kayıt ederken aralarında virgül olacak şekilde kayıt etmesidir.

Birleşik giriş kutusu ile çoklu seçimlerin tabloya kayıt konusunda sitede konu araştırdım ve bulamadım bu sebeple konuyu açmak zorunda kaldım.

Örnek ekleme konusuna gelince ikinci mesajda belirttim buraya yüklmemem imkansız çunku yasal iznim yok,kurum bilgilerini içermekte ve buna izin vermezler.


Sizden ricam sadece kodu nasıl düzenleriz bu konuda fikir vermenizdir.

@atoykan hocamın da benim de belirttiğim şey aynı
sizden özel verilerinizi yada tüm çalışmanızı eklemenizi istemiyoruz
içinde 5-10 sahte veri olan, tablo yapınıza uygun basit bir tablo
ve sadece bu sorununuza çözmeye yarayacak basit bir form o kadar
ayrıca Birleşik giriş kutusu derken kast ettiğiniz ne? benim bildiğim Birleşik giriş kutusu o örnekte de gösterilen açılır kutudur
ve Birleşik giriş kutusunda çoklu seçim sadece tablo yapınız uygunsa olabilir
tablo yapınız uygun değilse sadece liste kutusunda çoklu seçim yapabilirsiniz
Not:Yön-mat-ort alanlarındaki veriler ne olacak
yön için diyelim 4 ana 4 de ara olmak üzere 8 seçenek tek var kast ettiğiniz böyle bir şeyse açılır kutuya bu seçenek eklenebilir onun dışında liste kutusu olursa seçtikleriniz
for each döngüsüyle aktarılabilir
o nedenle basit bir örnek eklemeniz ve bu örnek üzerinden açıklama yapmanız daha uygun olur
for each örneği

    dim xYon as string

With Me.listekutusu

        For Each i In .ItemsSelected

            xYon = xYon  & ", " & .ItemData(i)

        Next i

    End With

benzeri bir kodla alınabilir