Arkadaşlar form üzerinde birleşik liste kutum var ama çoklu seçim. bunu bir temp tablosunda tutuyorum. Mavi renkli işaretli alandan seçilen rapor türüne göre kırmızı renkli işaretli alan için rowsource ekliyorum. ancak bu rapor türü değişimi sırasında kırmızı alan olan rapor içerik değişmeden önce ilgili tablodan kalkmıyor. 

DoCmd.RunSQL "Delete tbl_temp.raporicerik.Value FROM tbl_temp;" bu sorgu ile siliyorum hata vermiyor ama tablo açık olduğundan dolayı sanırsam silmiyor. ama aynı sorgu fo

Arkadaşlar, öncelikle özür dilerim sanırım oldukça basit olacak sorum. Ancak oldukça uzun süre uzak kalınca böyle oluyor. Konularda arattım ancak çözümünü bulamadım. Ekteki VT de açılır kutuda adı ve sınıfının görünmesini istiyorum ancak açılır kutuyu tıkladığımda ad sınıf var seçince sadece ad görünüyor.

Herkese merhabalar,

Amaç: Oluşturduğumuz bir form içinde eklediğimiz bir birleşik kutu sayesinde, formun kayıt kaynağını değiştirmek. Yani tablolar arası geçiş. Bunun için sanırım bir VBA prosedürü işlememiz gerekecek. Çünkü bu tablolar ayrı bir DB de depolanıyor olacak. Ayrıca depolanan DB de günlük olarak tablo ekleneceği için, birleşik kutuya SQL ile bu tablolar listelenecek. 

Umarım açıklayıcı bir soru şekli olmuştur. Ortada bir örnek yok. Fakat bunu yapab

3 adet tablo var. 
1. Tablonun id si 2 tabloda birleşik kutu şeklinde. 
1.tablo id si ve ikinci tablo id si 3 tablo içerisinde birleşik giriş kutusu. 
Tablo 1 id sine göre tablo 2 id si açılmasını istiyorum.

Tablo 1 de 
Tablo1İd1 A
Tablo1İd2 B

Tablo2 de ise
A Tablo2id (1)
A Tablo2id (2)
B Tablo2id (3)
B Tablo2id (4)
 
Burada A ve B ler (tablo1id) birleşik giriş kutusu.

Tablo3 de ise

Tablo1id.                        tablo2id                         tablo3id.   yer alıyor.

[code=vba]Sub FormMetinKutusuListele()
   Dim ctrl As Control
   Dim frm As Form
   Dim mesaj As String
   
   ' Aktif formu al (kullanıcı o anda hangi formdaysa)
   Set frm = Screen.ActiveForm
   
   ' Formdaki tüm kontrolleri dolaş
   For Each ctrl In frm.Controls
       ' Metin kutusu veya birleşik giriş kutusu ise ekle
       If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
           If mesaj <> "" Then mesaj = mesaj & ", "
           mesaj = mesaj & ctrl.