AccessTr.neT

Tam Versiyon: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
yon,mat ve ort alanları çoklu değer almayan normal metinsel alan mı olacak?
berduş hocama ek yaptım,sanırım istediğin bu
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??
ç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 x
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 atayabilirsiniz
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ı?
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
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 x
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 atayabilirsiniz
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??
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??
Sayfalar: 1 2 3 4 5