Merhabalar,

Ekte bir uygulama var. Sol taraftaki açılır kutudan rastgele seçtiğim isimler, ekle butonu ile sağ taraftaki metin kutusunun içine aktarılacak. Ancak aktarılırken isimler yan yana, aralarında boşluk olmadan virgülle ayrılacak şekilde olacak. Nasıl yapılabilir? Tşk.

Örnek:
-Solda Ahmet seçip ekleye basınca sağda Ahmet
-Sonra solda Mehmet seçip ekleye basınca sağda Ahmet,Mehmet
....gibi.

(09/11/2018, 10:01)notrino yazdı: Merhabalar,

Ekte bir uygulama var. Sol taraftaki açılır kutudan rastgele seçtiğim isimler, ekle butonu ile sağ taraftaki metin kutusunun içine aktarılacak. Ancak aktarılırken isimler yan yana, aralarında boşluk olmadan virgülle ayrılacak şekilde olacak. Nasıl yapılabilir? Tşk.

Örnek:
-Solda Ahmet seçip ekleye basınca sağda Ahmet
-Sonra solda Mehmet seçip ekleye basınca sağda Ahmet,Mehmet
....gibi.

dosya ekte ama kodun çalışabilmesi için "ADLAR" alanını vt ile bağlantısı olmamalı
butonun kodu:
Me.ADLAR.Value = Me.ADLAR.Value & IIf(Len(Me.ADLAR) > 0, "," & Me.Metin0.Column(1), Me.Metin0.Column(1))

(09/11/2018, 11:21)haliliyas yazdı:

(09/11/2018, 10:01)notrino yazdı: Merhabalar,

Ekte bir uygulama var. Sol taraftaki açılır kutudan rastgele seçtiğim isimler, ekle butonu ile sağ taraftaki metin kutusunun içine aktarılacak. Ancak aktarılırken isimler yan yana, aralarında boşluk olmadan virgülle ayrılacak şekilde olacak. Nasıl yapılabilir? Tşk.

Örnek:
-Solda Ahmet seçip ekleye basınca sağda Ahmet
-Sonra solda Mehmet seçip ekleye basınca sağda Ahmet,Mehmet
....gibi.

dosya ekte ama kodun çalışabilmesi için "ADLAR" alanını vt ile bağlantısı olmamalı
butonun kodu:
Me.ADLAR.Value = Me.ADLAR.Value & IIf(Len(Me.ADLAR) > 0, "," & Me.Metin0.Column(1), Me.Metin0.Column(1))

Teşekkürler Halil Bey,

Evet sistem çalışıyor. Ancak ADLAR kısmının ilişkisini kaldırdığınız için Tablo2 de ilgili alana veri kaydı yapılamıyor. Bu aktarılan verinin kaydedilmesi hatta açılan kutudaki isimlerin sayısal değerlerinin kaydedilmesi gerekiyor. (O yüzden açılan kutudaki ilişkili
sütunu sayı olarak seçmiştim) Nasıl bir değişiklik yapılabilir? Ben kodlamada Column(0) olarak seçsem de olmuyor. ADLAR alanı İlişkisiz olunca isimlerin sayısal değerlerini virgülle ayrılmış olarak görüyorum ama Tablo2 de ilgili alana kayıt olarak giremiyorum.

(09/11/2018, 11:51)notrino yazdı:

(09/11/2018, 11:21)haliliyas yazdı:

(09/11/2018, 10:01)notrino yazdı: Merhabalar,

Ekte bir uygulama var. Sol taraftaki açılır kutudan rastgele seçtiğim isimler, ekle butonu ile sağ taraftaki metin kutusunun içine aktarılacak. Ancak aktarılırken isimler yan yana, aralarında boşluk olmadan virgülle ayrılacak şekilde olacak. Nasıl yapılabilir? Tşk.

Örnek:
-Solda Ahmet seçip ekleye basınca sağda Ahmet
-Sonra solda Mehmet seçip ekleye basınca sağda Ahmet,Mehmet
....gibi.

dosya ekte ama kodun çalışabilmesi için "ADLAR" alanını vt ile bağlantısı olmamalı
butonun kodu:
Me.ADLAR.Value = Me.ADLAR.Value & IIf(Len(Me.ADLAR) > 0, "," & Me.Metin0.Column(1), Me.Metin0.Column(1))

Teşekkürler Halil Bey,

Evet sistem çalışıyor. Ancak ADLAR kısmının ilişkisini kaldırdığınız için Tablo2 de ilgili alana veri kaydı yapılamıyor. Bu aktarılan verinin kaydedilmesi hatta açılan kutudaki  isimlerin sayısal değerlerinin kaydedilmesi gerekiyor. (O yüzden açılan kutudaki ilişkili
sütunu sayı olarak seçmiştim)  Nasıl bir değişiklik yapılabilir? Ben kodlamada Column(0) olarak seçsem de olmuyor. ADLAR alanı İlişkisiz olunca isimlerin sayısal değerlerini virgülle ayrılmış olarak görüyorum ama Tablo2 de ilgili alana kayıt olarak giremiyorum.

Tablo ilişkisini kesip, ADLAR alanının veri türünü metine çevirince verileri sayısal olarak tutabiliyorum ancak bu kez de metin kutusu sayısal veri gösteriyor, isimleri göstermiyor.

Yani istediğim; ADLAR alanı hem Tablo2 ye sayısal olarak kaydedilsin, hem de görsel olarak isimleri göreyim.

(09/11/2018, 12:06)notrino yazdı: Yani istediğim; ADLAR alanı hem Tablo2 ye sayısal olarak kaydedilsin, hem de görsel olarak isimleri göreyim.

Ekle butonunun olay kısmına aşağıdaki kodu ekleyin
DoCmd.RunSQL "insert into Tablo2 (ADLAR) " & _
             "values(" & Metin0.Column(0) & ");"
Me.ADLAR.Value = Me.ADLAR.Value & IIf(Len(Me.ADLAR) > 0, "," & Me.Metin0.Column(1), Me.Metin0.Column(1))



Örnek vt aşağıda dilerim işinize yarar

(09/11/2018, 12:24)haliliyas yazdı:

(09/11/2018, 12:06)notrino yazdı: Yani istediğim; ADLAR alanı hem Tablo2 ye sayısal olarak kaydedilsin, hem de görsel olarak isimleri göreyim.

Ekle butonunun olay kısmına aşağıdaki kodu ekleyin
DoCmd.RunSQL "insert into Tablo2 (ADLAR) " & _
             "values(" & Metin0.Column(0) & ");"
Me.ADLAR.Value = Me.ADLAR.Value & IIf(Len(Me.ADLAR) > 0, "," & Me.Metin0.Column(1), Me.Metin0.Column(1))



Örnek vt aşağıda dilerim işinize yarar

Teşekkürler, bu bilgilerle değişik kombinasyonlar uygulayacağım..