Selam değerli Üstatlarım
Bir Access listem var ve bu listedeki foyno dunu tıkladığımda bana bir secim ekranı getirecek ve hangi raporu çalıştırmam gerektiğini soracak. 1. Rapor dersem o raporu 2. Rapor dersen diğer rapora foy bilgilerini yollayacak.

Saygılarımla

Ek Dosyalar

ORNEK ICIN.rar(5.54 MB)

Liste düğmesine tıkladığınızda gelen formunuzdaki FoyNo alanının tıklandığında olayına

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

yazınız ve deneyiniz. Bu arada raporlarınızın Açılan ve Kalıcı özelliklerini "Evet" yapmayı unutmayınız.

Bununla birlikte TasarimFisA4 ve TasarimFisA4-1 raporlarının kayıt kaynağını

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]));

ile değiştiriniz.

Çok tşk ederim üstadım. Hemen deniyorum..

Denedim ama tam istediğim gibi olmadı. Ellerinize sağlık ama biraz eksik var gibi.
Nasıl yapaız. ?

Eksiğin nerede olduğunu belirtirseniz çözüm arayabiliriz.

Selam
Resim olarak anlatmaya çalıştım..
Yardımlarınız için tşk ediyorum.