+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma (/konu-birlesik-giris-kutusu-ile-tabloya-coklu-secimleri-yazdirma.html)
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - berduş - 30/10/2021
yon,mat ve ort alanları çoklu değer almayan normal metinsel alan mı olacak?
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - C*e*l*o*y*c*e - 30/10/2021
berduş hocama ek yaptım,sanırım istediğin bu
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - tabloman - 30/10/2021
Sayın celoyce-atoykan-berduş arkadaşlar çok özür dilerim, örnek eklerken eksik yapmışım,
asıl yapmak istediğim,celoyce hocamızın örneğinde olduğu gibi tbl_yonler tablosuna eklemek ve bu tabloyu da olduğu gibi tbl_yonler_aktarma adlı tabloya aktarmak.Tam da bu kısımda takılıyoruz,tablodan tabloya aktarma yaparken butonun olay yordamına yazılmış insert into sorgusu birden çok değer içeremez uyarısı alıyoruz.
Konuyu anlatabilmek için parçalamak zorunda kaldık,asıl aşmamız gereken kısım burası,tablodan tabloya aktarma yapan kodda ki birden çok değer içeremez hatasını nasıl çözeriz??
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - berduş - 30/10/2021
çalışmanızdan anladığım şuydu; siz çoklu seçimli açılır kutuyu kullanmak istediniz, tablo yapınız buna uygun olmadığından ara bir tablo oluşturup bundan elde edeceğiniz değerleri ana tabloya aktarmaya çalışıyorsunuz değil mi?
bu durumda asıl tablonuzda değişiklik yapmadan
For x = 1 To 3
Controls("Mtn_" & x) = ""
If IsNull(Controls("Ak_" & x)) = False Then
Dim Dz() As Variant
Dz = Controls("Ak_" & x)
iLower = LBound(Dz)
iUpper = UBound(Dz)
son = ""
For xL = iLower To iUpper
son = son & ", " & Dz(xL)
Next xL
Controls("Mtn_" & x).Value = Mid(son, 2)
End If
Next xama eğer 2 tablonuz da aynı yapıdaysa neden ara tablo kullanıyorsunuz? doğrudan ekleme silme değiştirme işlemlerini ana formdan yapmanız daha uygun olmaz mı?
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - tabloman - 30/10/2021
Asıl tabloda farklı alanlarda var,ara tabloda atıyorum 15 alan varsa,ana tabloda 40a yakın alan var bu sebeple sizin dediğiniz gibi yapmak mantıklı geldi bilmiyorum yapabilir miyiz??
Verdiğiniz kodu uyarlamaya çalışcağım,şuan biraz işim var uygular uygulamaz buradan iletirim.
Çok teşekkür ederim
(30/10/2021, 16:46)berduş yazdı: çalışmanızdan anladığım şuydu; siz çoklu seçimli açılır kutuyu kullanmak istediniz, tablo yapınız buna uygun olmadığından ara bir tablo oluşturup bundan elde edeceğiniz değerleri ana tabloya aktarmaya çalışıyorsunuz değil mi?
bu durumda asıl tablonuzda değişiklik yapmadan
kodlarını kullanarak metin kutularına değer atayıp bu değerleri, asıl tablonuza -içinde çok değerli alanın olmadığı MVF- tabloya insert into ile atayabilirsinizFor x = 1 To 3
Controls("Mtn_" & x) = ""
If IsNull(Controls("Ak_" & x)) = False Then
Dim Dz() As Variant
Dz = Controls("Ak_" & x)
iLower = LBound(Dz)
iUpper = UBound(Dz)
son = ""
For xL = iLower To iUpper
son = son & ", " & Dz(xL)
Next xL
Controls("Mtn_" & x).Value = Mid(son, 2)
End If
Next x
ama eğer 2 tablonuz da aynı yapıdaysa neden ara tablo kullanıyorsunuz? doğrudan ekleme silme değiştirme işlemlerini ana formdan yapmanız daha uygun olmaz mı?
bu kodu tam olarak nerede nasıl kullanacağım?
ara tablomuz tbl_yonler
ana tablomuz ise tbl_yonler_aktarma
formda sorgu çalıştır ya da kaydet butonu yormanına mı yazılacak bu kod??
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - tabloman - 30/10/2021
Malesef sorunu çözemedim ,bahsettiğiniz kodu nerede nasıl kullanmam gerektiğini anlayamadım,yardımcı olur musunuz?uygulamam örneği üzerinde gösterir misiniz??