Skip to main content

AccessTr.neT


Ad Ekleme Uygulaması

Ad Ekleme Uygulaması

Çözüldü #1
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.
.zip ad_ekleme.zip (Dosya Boyutu: 21,26 KB | İndirme Sayısı: 3)
Cevapla
#2
(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))
.rar ad_ekleme_hy.rar (Dosya Boyutu: 21,42 KB | İndirme Sayısı: 4)
Cevapla
#3
(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.
Cevapla
#4
(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.
Cevapla
#5
(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
.rar ad_ekleme_hy2.rar (Dosya Boyutu: 22,22 KB | İndirme Sayısı: 3)
Cevapla
#6
(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..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da