Kodunuzu aşağıdaki gibi yapınız.
Dim Sql As String
Dim Tabloadı As String
If Me.ak70 = "Ev Tekstili" Then Tabloadı = "EvTekstili"
If Me.ak70 = "Oturma Grubu" Then Tabloadı = "OturmaGrubu"
If Me.ak70 = "Panel Mobilya" Then Tabloadı = "PanelMobilya"
If Me.ak70 = "Kanepe" Then Tabloadı = "Kanepe"
Sql = "SELECT Satış.[NO], Satış.[Müşteri No], Satış.Ad, Satış.Soyad, Satış.Cinsiyet, Satış.[Doğum Tarihi], Satış.Telefonu, Satış.Adresi, Satış.İli, Satış.[Ürün No], Satış.Markası, Satış.Modeli, Satış.[Ürün Adeti], Satış.[Ürün Fiyatı], Satış.[Sipariş Tarihi], Satış.[Teslim Tarihi] INTO "
Sql = Sql & Tabloadı
Sql = Sql & " FROM Satış WHERE (((Satış.Markası)= "
Sql = Sql & "'" & Me.ak70 & "'"
Sql = Sql & "));"
DoCmd.RunSQL SQL