(24-10-2022, 13:27)halily demiş ki: Rica ederim
iyi çalışmalar)
Halily bey bir sorum daha olacaktı.
Şimdi benim tablolarım
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,A1,A2,A3,A4,A5,A6,D1,D2,D3,D4,D5,D6,D7,D8,D9,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15
Bu şekilde access de tablolarım var. Metin kutusunun değiştiğinde kısmında olay yordamına sizin verdiğiniz şekildeki kodu bu şekilde yazmaya çalışıyorum.
Visual Basic
Private Sub Metin0_Change()
xUnion = "select A.* from (select * from 1 " & _
"union All " & _
"select * from 2 " & _
"union All " & _
"select * from 3 " & _
"union All " & _
"select * from 4 " & _
"union All " & _
"select * from 5 " & _
"union All " & _
"select * from 6 " & _
"union All " & _
"select * from 7 " & _
"union All " & _
"select * from 8 " & _
"union All " & _
"select * from 9 " & _
"union All " & _
"select * from 10 " & _
"union All " & _
"select * from 11 " & _
"union All " & _
"select * from 12 " & _
"union All " & _
"select * from 13 " & _
"union All " & _
"select * from 14 " & _
"union All " & _
"select * from 15 " & _
"union All " & _
"select * from 16 " & _
"union All " & _
"select * from 17 " & _
"union All " & _
"select * from 18 " & _
"union All " & _
"select * from 19 " & _
"union All " & _
"select * from 20 " & _
"union All " & _
"select * from 21 " & _
"union All " & _
"select * from 22 " & _
"union All " & _
"select * from 23 " & _
"union All " & _
"select * from A1 " & _
"union All " & _
"select * from A2 " & _
"union All " & _
"select * from A3 " & _
"union All " & _
"select * from A4 " & _
"union All " & _
"select * from A5 " & _
"union All " & _
"select * from A6 " & _
"union All " & _
"select * from D1 " & _
"union All " & _
"select * from D2 " & _
"union All " & _
"select * from D3 " & _
"union All " & _
"select * from D4 " & _
"union All " & _
"select * from D5 " & _
"union All " & _
"select * from D6 " & _
"union All " & _
"select * from D7 " & _
"union All " & _
"select * from D8 " & _
"union All " & _
"select * from D9 " & _
"union All " & _
"select * from S1 " & _
"union All " & _
"select * from S2 " & _
"union All " & _
"select * from S3 " & _
"union All " & _
"select * from S4 " & _
"union All " & _
"select * from S5 " & _
"union All " & _
"select * from S6 " & _
"union All " & _
"select * from S7 " & _
"union All " & _
"select * from S8 " & _
"union All " & _
"select * from S9 " & _
"union All " & _
"select * from S10 " & _
"union All " & _
"select * from S11 " & _
"union All " & _
"select * from S12 " & _
"union All " & _
"select * from S13 " & _
"union All " & _
"select * from S14 " & _
"union All " & _
"select * from S15) as A where A.Ad like '*" & Me.Metin0.Text & "*'"
Me.alt_form.Form.RecordSource = xUnion
End Sub
Tek seferde yapıştırmama müsade etmiyor. aşağıdaki gibi hata alıyorum yapıştırmaya çalıştığımda
To many line continuations
Başka nasıl bir yöntem denenebilir acaba?