Article View: pl.comp.bazy-danych.msaccess
Article #137147Re: Access 2010 łączenie kilku kryteriów do kwerendy
From: MaciejF
Date: Sat, 30 Apr 2016 18:19
Date: Sat, 30 Apr 2016 18:19
41 lines
2758 bytes
2758 bytes
Musisz tak sformatować sCond
By z wpisu jak zaciągasz do formularza
A1;B1;C1
by powstał wpis:
""A1"",""B1"",""C1""
Taki wpis trzeba przekazać do kwerendy
Proponuję:
sCond = """" & Replace(sCond, chr(59), """" & Chr(44) & """") & """"
Całość:
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, chr(59), """" & Chr(44) & """") & """"
sSQL = "SELECT Imp_temp.F14 AS Powiat FROM Imp_temp WHERE (((Imp_temp.F14) In (" & sCond & ")));"
If DCount("*", "MSysObjects", "[Name] = qGeneric And [Type] = 5") = 1 Then
DoCmd.DeleteObject(acQuery, "qGeneric")
End If
Set qdf = CurrentDB.Querydefs("qGeneric")
qdf.SQL = sSQL
qdf.Execute
End Sub
Technical Details
Message-ID:
<4e19ace0-0be4-4e68-9b5a-3d7d0c34e3c4@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no271210qga.1!news-out.google.com!uv8ni299igb.0!nntp.google.com!i5no675835ige.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>Show Full Headers
Complete Article Headers
X-Received: by 10.176.3.132 with SMTP id 4mr18032097uau.3.1462040342371; Sat, 30 Apr 2016 11:19:02 -0700 (PDT) X-Received: by 10.50.224.179 with SMTP id rd19mr235540igc.10.1462040342331; Sat, 30 Apr 2016 11:19:02 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!88no271210qga.1!news-out.google.com!uv8ni299igb.0!nntp.google.com!i5no675835ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Sat, 30 Apr 2016 11:19:01 -0700 (PDT) In-Reply-To: <5724f365$0$22836$65785112@news.neostrada.pl> 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> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <4e19ace0-0be4-4e68-9b5a-3d7d0c34e3c4@googlegroups.com> Subject: Re: Access 2010 łączenie kilku kryteriów do kwerendy From: MaciejF <maciejfr@onet.pl> Injection-Date: Sat, 30 Apr 2016 18:19:02 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit