rapor parametre istiyor

[thiefo]

selam arkadaşlar,
ben yaptığım formda bir rapor butonu koydum ve bu buton kayıtlı bir raporu açıyo...fakat komut satırına şunu yazdığım halde

DoCmd.OpenReport stDocName, acPreview, , "[dosyano]=" & Form_dosya.dosya_no.Value

raporu açarken bana tekrar dosyano' yu soruyor bunun sebebi nedir...
ayrıca raporun sorgu kısmına "WHERE dosya_no=[dosyano]" şeklinde ibareyi de ekledim...yardımcı olursanız sevinirim

 

[modalı]

Sayın thiefo,

Kodlarınızı

Dim strWhere As String
strWhere=""[dosyano]=" & Me.dosya_no.Value"
DoCmd.OpenReport stDocName, acPreview, , strWhere

Olarak deneyin

 

[thiefo]

Sayın thiefo,


Dim strWhere As String
strWhere=""[dosyano]=" & Me.dosya_no.Value"
DoCmd.OpenReport stDocName, acPreview, , strWhere

her iki baştaki tırnakları kabul etmedi bende onları kaldırdım çalıştı, fakat aynı sorun devam ediyo , yani burda parametreyi verdiğim halde buton tıklayınca bir pencere açılıp benden tekrar "dosyano" diye parametre istiyo

 

[modalı]

Sayın thiefo,

Örneğinizi eklemeniz mümkün mü? Bir de yakından bakayım.

İyi çalışmalar

 

[attila52]

sayın thiefo araya girdim kusura bakbayın sizin raporunuzu tasarım modunda açın ve rapor özelliklek kayat kaynağına giriniz oradaki alan adlarına bakınız koşul olarak siz dosyano ya bir değer atadıysanız kod da yazsanız mutlak onu soracaktır onu bir kaldırmayı deneyiniz. iyi çalışmalar

 

[thiefo]

sayın thiefo araya girdim kusura bakbayın sizin raporunuzu tasarım modunda açın ve rapor özelliklek kayat kaynağına giriniz oradaki alan adlarına bakınız koşul olarak siz dosyano ya bir değer atadıysanız kod da yazsanız mutlak onu soracaktır onu bir kaldırmayı deneyiniz. iyi çalışmalar

bunu kaldırdım fakat bu seferde tüm kayıtları ekrana getiriyor

 

[modalı]

Sayın thiefo,

Örneğinizi ekleyin. Bu şekilde çözüme ulaşmak zor görünüyor.

İyi çalışmalar

 

[thiefo]

ekte gönderiyorum ihale isimli dosyada teklif butonu var ...o... şimdiden teşekkürler

 

[modalı]

Sayın thiefo,


Formun kod sayfasındaki ilgili kodları şu şekilde değiştirin:

Private Sub Komut58_Click()
On Error GoTo Err_Komut58_Click
    Dim stDocName As String
    stDocName = "ihale"
    
    DoCmd.OpenReport stDocName, acPreview
Exit_Komut58_Click:
    Exit Sub
Err_Komut58_Click:
    MsgBox Err.Description
    Resume Exit_Komut58_Click
    
End Sub
Private Sub Komut59_Click()
On Error GoTo Err_Komut59_Click
    Dim stDocName As String
    
    
    
    stDocName = "Teklif"
    
    DoCmd.OpenReport stDocName, acPreview
    
    
Exit_Komut59_Click:
    Exit Sub
Err_Komut59_Click:
    MsgBox Err.Description
    Resume Exit_Komut59_Click
    
End Sub

İhale raporunun SQL değimlerini şu şekilde değiştirin:

SELECT ihale.ihale_no AS ihale_ihale_no, ihale.ihale_ad, ihale.kurum_ad, ihale.ihale_tarih, ihale.toplam_maliyet, ihale.toplam_satis, ihale.kar AS ihale_kar, urun.urun_ad, urun.miktar, urun.birim, urun.afiyat, urun.sfiyat, urun.toplam_alis, urun.toplam_teklif, urun.kar AS urun_kar, urun.tarih, urun.ihale_no AS urun_ihale_no
FROM ihale RIGHT JOIN urun ON ihale.ihale_no = urun.ihale_no
WHERE (((ihale.ihale_no)=[Formlar]![ihale]![ihale_no]));

Teklif raporunun SQL değimlerini şu şekilde değiştirin:

SELECT ihale.ihale_no AS ihale_ihale_no, ihale.ihale_ad, ihale.kurum_ad, ihale.ihale_tarih, ihale.toplam_maliyet, ihale.toplam_satis, ihale.kar AS ihale_kar, urun.urun_ad, urun.miktar, urun.birim, urun.afiyat, urun.sfiyat, urun.toplam_alis, urun.toplam_teklif, urun.kar AS urun_kar, urun.tarih, urun.ihale_no AS urun_ihale_no
FROM ihale RIGHT JOIN urun ON ihale.ihale_no = urun.ihale_no
WHERE (((ihale.ihale_no)=[Formlar]![ihale]![ihale_no]));

İyi çalışmalar

 

[thiefo]

harikasınız elinize sağlık canavar gibi oldu:hey: :icelim:

 

[attila52]

işte bak oldu neden oldu sizce örneğiniz sorunu çözdü bence sorunuzla birlikte herzaman örnek atınız ki çözüm hızlı olsun söylem herkes için geçerli vakit kaybı olmaması açısından.