Private Sub FoyNo_Click()
Dim sor As String
sor = InputBox("Lütfen Seçeneği Belirleyiniz.", "SEÇENEK")
If sor = 1 Then
DoCmd.OpenReport "TasarimFisA4-1", acViewPreview
ElseIf sor = 2 Then
DoCmd.OpenReport "TasarimFisA4", acViewPreview
Else
MsgBox "Lütfen 1 veya 2 seçeneğinden birisini belirleyiniz.", , "DİKKAT"
End If

End Sub

SELECT aTasarimFis.FoyNo, aTasarimFis.Musteri, aTasarimFis.MusteriTemsilcisi, aTasarimFis.FoyTarihi, aTasarimFis.Kumasi, aTasarimFis.Model, aTasarimFis.NumuneTipi, aTasarimFis.Adet, aTasarimFis.MakNo, aTasarimFis.OzelNotlar, aTasarimFis.PlanTarih, aTasarimFis.Ulke, aTasarimFis.TeslimTarih
FROM aTasarimFis
WHERE (((aTasarimFis.FoyNo)=[Formlar]![TasarimListesiExcell]![FoyNo]));