Sn FB1907,

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