Article View: pl.comp.bazy-danych.msaccess
Article #137155Re: Access 2010 łączenie kilku kryteriów do kwerendy
From: MaciejF
Date: Sat, 30 Apr 2016 20:21
Date: Sat, 30 Apr 2016 20:21
31 lines
2800 bytes
2800 bytes
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((String$(3,34) & Replace(Trim([sCond]),Chr(59),String$(2,34) & Chr(44) & String$(2,34)) & String$(3,34)), Chr(32) & Chr(34), Chr(34))
sSQL = "SELECT Imp_temp.F14 AS Powiat FROM Imp_temp WHERE (((Imp_temp.F14) In (" & sCond & ")));"
If DCount("*", "MSysObjects", "[Name] = 'qTemp' And [Type] = 5") = 1 Then
DoCmd.DeleteObject(acQuery, "qTemp")
End If
Set qdf = CurrentDB.Querydefs("qTemp")
qdf.SQL = sSQL
qdf.Execute
End Subs
/
MF
Technical Details
Message-ID:
<5a972ec7-e959-4108-8d3e-1bb0a1106bbc@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no306532qga.1!news-out.google.com!k10ni206igv.0!nntp.google.com!sq19no831777igc.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> <eafa8aa8-8082-4adf-ab98-8f001100dcc3@googlegroups.com> <5724f365$0$22836$65785112@news.neostrada.pl> <4e19ace0-0be4-4e68-9b5a-3d7d0c34e3c4@googlegroups.com> <57250406$0$702$65785112@news.neostrada.pl> <6c243994-66c8-4e7b-af0d-72b3f05ff0ac@googlegroups.com> <4fed699d-ee1c-43f1-930a-0ffa53b2ff25@googlegroups.com> <7dc787d8-572e-4067-b5a6-dda8b3dfa563@googlegroups.com>Show Full Headers
Complete Article Headers
X-Received: by 10.13.235.215 with SMTP id u206mr17906459ywe.19.1462047671331; Sat, 30 Apr 2016 13:21:11 -0700 (PDT) X-Received: by 10.50.6.70 with SMTP id y6mr238598igy.8.1462047671213; Sat, 30 Apr 2016 13:21:11 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no306532qga.1!news-out.google.com!k10ni206igv.0!nntp.google.com!sq19no831777igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Sat, 30 Apr 2016 13:21:10 -0700 (PDT) In-Reply-To: <7dc787d8-572e-4067-b5a6-dda8b3dfa563@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> <eafa8aa8-8082-4adf-ab98-8f001100dcc3@googlegroups.com> <5724f365$0$22836$65785112@news.neostrada.pl> <4e19ace0-0be4-4e68-9b5a-3d7d0c34e3c4@googlegroups.com> <57250406$0$702$65785112@news.neostrada.pl> <6c243994-66c8-4e7b-af0d-72b3f05ff0ac@googlegroups.com> <4fed699d-ee1c-43f1-930a-0ffa53b2ff25@googlegroups.com> <7dc787d8-572e-4067-b5a6-dda8b3dfa563@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <5a972ec7-e959-4108-8d3e-1bb0a1106bbc@googlegroups.com> Subject: Re: Access 2010 łączenie kilku kryteriów do kwerendy From: MaciejF <maciejfr@onet.pl> Injection-Date: Sat, 30 Apr 2016 20:21:11 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit