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??