Article View: pl.comp.bazy-danych.msaccess
Article #137158Re: Access 2010 łączenie kilku kryteriów do kwerendy
From: MaciejF
Date: Sun, 01 May 2016 06:35
Date: Sun, 01 May 2016 06:35
39 lines
3125 bytes
3125 bytes
a teraz:
Sub btnPowiaty_click()
Dim sSQL As String, sCond As String
Dim qdf As Querydef
Dim db as Database
Set db = CurrentDB
Set qdf = db.QueryDefs("qTemp")
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 = String$(3,34) & Replace(Trim([sCond]),Chr(59),String$(2,34) & Chr(44) & String$(2,34)) & String$(3,34)
sCond = Replace(sCond, Chr(32) & Chr(34), Chr(34))
sCond = Replace(sCond, Chr(34) & Chr(32), 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 qTemp = db.CreateQueryDef("", sSQL)
qdf.Execute
set qdf = Nothing
set db = Nothing
End Sub
Technical Details
Message-ID:
<62d202bc-2f7e-4a64-a633-7cfef926c6c7@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!i5no931369ige.0!news-out.google.com!uv8ni347igb.0!nntp.google.com!i5no931363ige.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> <5a972ec7-e959-4108-8d3e-1bb0a1106bbc@googlegroups.com> <e2a70f5f-9995-4c0e-8370-4dbb60cda417@googlegroups.com> <57252aa5$0$22837$65785112@news.neostrada.pl>Show Full Headers
Complete Article Headers
X-Received: by 10.50.203.69 with SMTP id ko5mr8292147igc.2.1462084513891; Sat, 30 Apr 2016 23:35:13 -0700 (PDT) X-Received: by 10.50.118.73 with SMTP id kk9mr253322igb.9.1462084513867; Sat, 30 Apr 2016 23:35:13 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!i5no931369ige.0!news-out.google.com!uv8ni347igb.0!nntp.google.com!i5no931363ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Sat, 30 Apr 2016 23:35:13 -0700 (PDT) In-Reply-To: <57252aa5$0$22837$65785112@news.neostrada.pl> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=87.205.76.157; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp NNTP-Posting-Host: 87.205.76.157 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> <5a972ec7-e959-4108-8d3e-1bb0a1106bbc@googlegroups.com> <e2a70f5f-9995-4c0e-8370-4dbb60cda417@googlegroups.com> <57252aa5$0$22837$65785112@news.neostrada.pl> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <62d202bc-2f7e-4a64-a633-7cfef926c6c7@googlegroups.com> Subject: Re: Access 2010 łączenie kilku kryteriów do kwerendy From: MaciejF <maciejfr@onet.pl> Injection-Date: Sun, 01 May 2016 06:35:13 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit