+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listeden 2 Ayrı Rapor Secmek hakkında (/konu-listeden-2-ayri-rapor-secmek-hakkinda.html)
Listeden 2 Ayrı Rapor Secmek hakkında - HAKKI34 - 21/09/2011
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
Cvp: Listeden 2 Ayrı Rapor Secmek hakkında - ercansahin - 21/09/2011
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
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]));
Cvp: Listeden 2 Ayrı Rapor Secmek hakkında - HAKKI34 - 22/09/2011
Çok tşk ederim üstadım. Hemen deniyorum..
Cvp: Listeden 2 Ayrı Rapor Secmek hakkında - HAKKI34 - 22/09/2011
Denedim ama tam istediğim gibi olmadı. Ellerinize sağlık ama biraz eksik var gibi.
Nasıl yapaız. ?
Cvp: Listeden 2 Ayrı Rapor Secmek hakkında - ercansahin - 22/09/2011
Eksiğin nerede olduğunu belirtirseniz çözüm arayabiliriz.
Cvp: Listeden 2 Ayrı Rapor Secmek hakkında - HAKKI34 - 22/09/2011
Selam
Resim olarak anlatmaya çalıştım..
Yardımlarınız için tşk ediyorum.