Re: Access 2010 łączenie kilku kryteriów do kwerendy

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

Article #137170

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

#137170

From: MaciejF
Date: Wed, 04 May 2016 19:51

35 lines
2682 bytes

Witaj,
Zbigniewowi chodziło raczej o użycie zmiennej strId_Kryt w funkcji Filtruj():

Private Sub Polecenie37_Click() 
   Call Filtruj("Kryt3") 
End Sub 
'--------------------------------------------------------- 
Private Sub Filtruj(strId_kryt As String) 
Dim qryTmp As DAO.QueryDef 
Dim sWhere  As String 

sWhere = DLookup("kryt_pow2", "Kryteria_3", "[GU] ='" & strId_kryt & "'") 

If IsNull(DLookup("[kryt_pow2]", "Kryteria_3", "[GU] = '" & strId_kryt & "'")) Then 
         MsgBox "Brak kryterium = " & strId_kryt 
     Exit Sub 
End If 


sWhere = String$(1, 34) & Replace(Trim([sWhere]), Chr(59), String$(1, 34) & 
Chr(44) & String$(1, 34)) & String$(1, 34) 
sWhere = Replace(sWhere, Chr(32) & Chr(34), Chr(34)) 
sWhere = Replace(sWhere, Chr(34) & Chr(32), Chr(34)) 
  'Usuń tymczasową kwerendę 
   On Error Resume Next 
     DoCmd.DeleteObject acQuery, "qTemp" 
   If Err.Number <> 0 Then Err.Clear 
   On Error GoTo 0 

   Set qryTmp = CurrentDb.CreateQueryDef("qTemp", _ 
       "SELECT Imp_temp.* FROM Imp_temp WHERE F14 IN (" & sWhere & ")") 

   DoCmd.OpenQuery qryTmp.Name, acViewNormal 

End Sub

Technical Details

Message-ID: <3dba9a86-1130-4922-812d-2c6c953d8e1f@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news-1.dfn.de!news.dfn.de!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!proxad.net!feeder1-2.proxad.net!209.85.213.216.MISMATCH!i5no3310635ige.0!news-out.google.com!uv8ni137igb.0!nntp.google.com!sq19no2572166igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<571b871d$0$641$65785112@news.neostrada.pl> <ng4rbg$b0d$1@node1.news.atman.pl> <57263093$0$22828$65785112@news.neostrada.pl> <ng5idu$n8v$1@node2.news.atman.pl> <57270b34$0$684$65785112@news.neostrada.pl>

Show Full Headers

Complete Article Headers

X-Received: by 10.50.94.164 with SMTP id dd4mr21799760igb.12.1462391463909;        Wed, 04 May 2016 12:51:03 -0700 (PDT)
X-Received: by 10.50.29.113 with SMTP id j17mr364969igh.6.1462391463887; Wed, 04 May 2016 12:51:03 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news-1.dfn.de!news.dfn.de!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!proxad.net!feeder1-2.proxad.net!209.85.213.216.MISMATCH!i5no3310635ige.0!news-out.google.com!uv8ni137igb.0!nntp.google.com!sq19no2572166igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Wed, 4 May 2016 12:51:03 -0700 (PDT)
In-Reply-To: <57270b34$0$684$65785112@news.neostrada.pl>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=178.36.124.162; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp
NNTP-Posting-Host: 178.36.124.162
References: <571b871d$0$641$65785112@news.neostrada.pl> <ng4rbg$b0d$1@node1.news.atman.pl> <57263093$0$22828$65785112@news.neostrada.pl> <ng5idu$n8v$1@node2.news.atman.pl> <57270b34$0$684$65785112@news.neostrada.pl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <3dba9a86-1130-4922-812d-2c6c953d8e1f@googlegroups.com>
Subject: Re: Access 2010 łączenie kilku
 kryteriów do kwerendy
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Wed, 04 May 2016 19:51:03 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message