Drukowanie selektywne

Article View: pl.comp.bazy-danych.msaccess

Article #124990

Back to pl.comp.bazy-danych.msaccess Previous Next

#124990

From: MaxImuS
Date: Tue, 12 Aug 2008 21:23

38 lines
1835 bytes

Witam

w zwiazku z wystąpieniem różnek wartości w polu KOD

chciałbym zastosować różne raporty


Private Sub btnDrukuj_Click()
Dim stDocName As String
If Me.KOD = 0 Then
    stDocName = "rpt_1"
If Me.KOD = 1 Then
    'stDocName = "rpt_2"
If Me.KOD = 2 Then
    'stDocName = "rpt_3"

End If


DoCmd.OpenReport "rpt_1", acViewPreview ', , "DataWyst>=#" & 
Me.txtData_WystOD & "#"
Report_rpt_1.Filter = "DataWyst>=" & "#" & Me.txtData_WystOD & "# and 
DataWyst<=" & "#" & Me.txtDataWystawDo & "#"
Report_rpt_1.FilterOn = True


End Sub

tyle tylko, że nie bardzo wiem jak to skończyć
bo teraz w danym zakresie czasowym mam ten sam raport
który się drukuje nawet jezeli dany kod nie wystąpi
może można to odwrócić niech nie drukuje pozostałych kodów
to zrobie przyciski dla poszczególnych kodów


pozdrawiam
i z góry dzięki za sugestie

Technical Details

Message-ID: <g7sv2o$p62$1@atlantis.news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!wsisiz.edu.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!wsisiz.edu.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail
From: "MaxImuS" <maximus_one@_CIACH_interia.pl>
Newsgroups: pl.comp.bazy-danych.msaccess
Subject: Drukowanie selektywne
Date: Tue, 12 Aug 2008 23:23:19 +0200
Organization: TP - http://www.tp.pl/
Lines: 41
Message-ID: <g7sv2o$p62$1@atlantis.news.neostrada.pl>
NNTP-Posting-Host: cqt69.neoplus.adsl.tpnet.pl
X-Trace: atlantis.news.neostrada.pl 1218576281 25794 83.31.251.69 (12 Aug 2008 21:24:41 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Tue, 12 Aug 2008 21:24:41 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
X-RFC2646: Format=Flowed; Original
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit