Article View: pl.comp.bazy-danych.msaccess
Article #137143Re: Access 2010 łączenie kilku kryteriów do kwerendy
From: MaciejF
Date: Sat, 30 Apr 2016 17:17
Date: Sat, 30 Apr 2016 17:17
25 lines
2298 bytes
2298 bytes
Całość kodu pod przyciskiem:
Sub btnPowiaty_click()
Dim sSQL As String, sCond As String
Dim qdf As DAO.Querydef
sCond = [Forms]![IMPORT]![kryt2]
IF IsNull(sCond) Or sCond = "" Then
Exit Sub
End IF
'sformatuj kryteria dodajac podwojne cudzysłowy
'uwzglednilem poniżej że masz separator średnik i że masz kryteria zaciagniete bez cudzysłowów
sCond = """" & Replace(sCond, "";"", """";"""") & """"
sSQL = "SELECT Imp_temp.F14 AS Powiat FROM Imp_temp WHERE (((Imp_temp.F14) In (" & sCond & ")));"
Set qdf = CurrentDB.Querydefs("qGeneric")
qdf.SQL = sSQL
qdf.Execute
End Sub
Technical Details
Message-ID:
<eafa8aa8-8082-4adf-ab98-8f001100dcc3@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no255186qga.1!news-out.google.com!uv8ni293igb.0!nntp.google.com!i5no641937ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mailReferences:
<571b871d$0$641$65785112@news.neostrada.pl> <073ae140-8104-4f0b-8178-a838692eda19@googlegroups.com> <5724847c$0$22828$65785112@news.neostrada.pl> <fdc4a38d-07f8-41f4-bb94-723d97a4c145@googlegroups.com> <fd443da0-eedc-4a0c-a73f-0db905d90224@googlegroups.com> <5724ddf1$0$658$65785112@news.neostrada.pl> <8aed9f36-9a23-43c1-b4a9-a6a820e54b3d@googlegroups.com>Show Full Headers
Complete Article Headers
X-Received: by 10.129.25.212 with SMTP id 203mr17639355ywz.35.1462036671362; Sat, 30 Apr 2016 10:17:51 -0700 (PDT) X-Received: by 10.50.60.164 with SMTP id i4mr231926igr.0.1462036671329; Sat, 30 Apr 2016 10:17:51 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no255186qga.1!news-out.google.com!uv8ni293igb.0!nntp.google.com!i5no641937ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Sat, 30 Apr 2016 10:17:50 -0700 (PDT) In-Reply-To: <8aed9f36-9a23-43c1-b4a9-a6a820e54b3d@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=77.253.61.208; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp NNTP-Posting-Host: 77.253.61.208 References: <571b871d$0$641$65785112@news.neostrada.pl> <073ae140-8104-4f0b-8178-a838692eda19@googlegroups.com> <5724847c$0$22828$65785112@news.neostrada.pl> <fdc4a38d-07f8-41f4-bb94-723d97a4c145@googlegroups.com> <fd443da0-eedc-4a0c-a73f-0db905d90224@googlegroups.com> <5724ddf1$0$658$65785112@news.neostrada.pl> <8aed9f36-9a23-43c1-b4a9-a6a820e54b3d@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <eafa8aa8-8082-4adf-ab98-8f001100dcc3@googlegroups.com> Subject: Re: Access 2010 łączenie kilku kryteriów do kwerendy From: MaciejF <maciejfr@onet.pl> Injection-Date: Sat, 30 Apr 2016 17:17:51 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit