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

#16
ç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ı?
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: berduş - 30/10/2021, 16:46
Task