Skip to main content

AccessTr.neT


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

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

#17
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??
Son Düzenleme: 30/10/2021, 16:55, Düzenleyen: tabloman.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Birleşik Giriş Kutusu İle Tabloya Çoklu Seçimleri Yazdırma - Yazar: tabloman - 30/10/2021, 16:50
Task