değişken rapor alma...

[karaayhan]

raporumda iki kriter var biri başlama tarihi ikincisi miktar
başlama tarihi 1/1/2008 den büyükse ve miktar 7.000'den büyükse A raporu
başlama tarihi 1/1/2008 den büyükse ve miktar 7.000'den küçükse B raporu
başlama tarihi 1/1/2008 den küçükse ve miktar 7.000'den büyükse C raporu
başlama tarihi 1/1/2008 den küçükse ve miktar 7.000'den küçükse D raporu

istediğim bu ama sorun çıkıyor sanırım kodlar ve vt ekte.

iyi çalışmalar

 

[gulsum1]

cevap

Private Sub Komut18_Click()
On Error GoTo Err_Komut18_Click
With CodeContextObject
Select Case Me.başlamatarihi
Case Is >= #1/1/2008#
If Me.[ücret] >= 7000 Then
DoCmd.OpenReport "yeni(+)", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
Case Is >= #1/1/2008#
If Me.[&#252;cret] <= 7000 Then
DoCmd.OpenReport "yeni", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
Case Is > #1/1/2008#
If Me.[&#252;cret] > 7000 Then
DoCmd.OpenReport "eski(+)", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
Case Is < #1/1/2008#
If Me.&#252;cret < 7000 Then
DoCmd.OpenReport "eski", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
End Select
End With
Exit_Komut18_Click:
Exit Sub
Err_Komut18_Click:
MsgBox Err.Description
Resume Exit_Komut18_Click
End Sub
denemedim fakat bu mant&#305;kla bir dene bakal&#305;m

 

[karaayhan]

&#231;al&#305;&#351;m&#305;yor say&#305;n gulsum1,

malesef

ayn&#305; hata yani raporu &#246;nizlemiyor...

l&#252;tfen help...

 

[gulsum1]

senin bilgisayarda bir sorun vard&#305;r bende &#231;al&#305;&#351;&#305;yor

 

[karaayhan]

örnek ekte çalışıyormu bir deneyin....

sayın gulsum1,
sorun yok kodlar doğru belki ama yine de çalışmıyor..
örnek ekte çalışıyormu bir deneyin....

benim pc de ne gibi bir sorun olacak olabilir ki debug yaptım sorun yok...!

 

[mehmetdemiral]

Sevgili karaayhan ...Rapor d&#252;&#287;mesi kodlar&#305;n&#305; &#351;&#246;yle d&#252;zenleyin:

Private Sub Komut18_Click()
On Error GoTo Err_Komut18_Click
With CodeContextObject
Select Case Me.ba&#351;lamatarihi
Case Is >= #1/1/2008#
If Me.[&#252;cret] >= 7000 Then
DoCmd.OpenReport "yeni(+)", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
Else
If Me.[&#252;cret] <= 7000 Then
DoCmd.OpenReport "yeni", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
End If
Case Is < #1/1/2008#
If Me.[&#252;cret] >= 7000 Then
DoCmd.OpenReport "eski(+)", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
Else
If Me.[&#252;cret] <= 7000 Then
DoCmd.OpenReport "eski", acViewPreview, , "[PostaListesiNo]=[Forms]![Posta Listeleri]![PostaListesiNo]", acNormal
End If
End If
End Select
End With
Exit_Komut18_Click:
Exit Sub
Err_Komut18_Click:
MsgBox Err.Description
Resume Exit_Komut18_Click
End Sub


Bu arada > ve < i&#351;aretlerinde yanl&#305;&#351;l&#305;k yapm&#305;&#351; olabilrim. Eskiden beri onlar&#305; hep kar&#305;&#351;t&#305;r&#305;r&#305;m.))

 

[karaayhan]

say&#305;n demiral,
oldu te&#351;ekk&#252;r ederim... demekki benim bilgisayarda sorun yokmu&#351;


iyi &#231;al&#305;&#351;malar

 

[mehmetdemiral]

)) Rica ederim.