24-10-2022, 10:27
(21-10-2022, 01:31)halily demiş ki: an formunuz sorunlu galiba bende sürekli sorun çıkardığı için yeniden oluşturdum
arama için kullanılan metin kutunun (metin0) değiştiğinde olayının kodu
Visual Basic
Private Sub Metin0_Change() xUnion = "select A.* from (select * from 1A " & _ "union All " & _ "select * from 2A " & _ "union All " & _ "select * from 3A " & _ "union All " & _ "select * from 4A) as A where A.Ad like '*" & Me.Metin0.Text & "*'" Me.alt_form.Form.RecordSource = xUnion End Sub
alt formun sorgu kodu
Visual Basic
select * from 1A union All select * from 2A union All select * from 3A union All select * from 4A;
Teşekkür ederim uğraşlarınız için. Bunları girdim ama alt form da göremiyorum tamamen boş çıktı. Sizdeki çalışan halini eklemeniz mümkün mü acaba?

