Article View: pl.comp.bazy-danych.msaccess
Article #137390Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda /
From: xyzeniks
Date: Fri, 16 Dec 2016 07:58
Date: Fri, 16 Dec 2016 07:58
39 lines
3492 bytes
3492 bytes
Witam jestem zainteresowany wykorzystaniem Accessa do liczb konkretnie do MiniLotto . Na przeszkodzie stoi słaba znajomość
Accessa VBA i SQL .
------------------------
Przy pomocy konwersji Makra na Moduł uzyskałem
następujący kod
>>
Option Compare Database
' DK2
Function DK2()
On Error GoTo DK2_Err
DoCmd.OpenQuery "K2", acViewNormal, acEdit
DoCmd.RunSQL "SELECT LA.K, FU.P1, FU.P2, FU.P3, FU.P4 FROM FU INNER JOIN LA ON FU.[ALL] = LA.[2] WHERE (((FU.P1)=0)) OR (((FU.P2)=2)) OR (((FU.P3)=1)) OR (((FU.P4)=9)); ", -1
' tu miejsce na export do TXT
' DoCmd.Save acQuery, "K2"
DK2_Exit:
Exit Function
DK2_Err:
' MsgBox Error$
Resume DK2_Exit
End Function
<<
Chodzi o to że
Kod wywala się błędem w linii >> DoCmd.RunSQL "SELECT.......... << o treści "Akcja uruchomSQL wymaga argumentu skladającego się z SQL"
Usiłowałem korzystając z porad Pani KarolinyVB tu http://www. ___ coderscity.pl/ftopic719.html wdrożyć inne warianty lecz jestem w tym zbyt słaby
/Nie wiem jak grupa odnosi się do linkowania na inne strony dlatego adres przedzieliłem >> ___<< /
Teraz napiszę co chciałem aby się wykonało .
W excelu otrzymuję jakieś parametry które dość sprytnie wplecione w tekst dają razem kod .Kod ten wklejam do modułu Accessa i oczekuję żeby otworzyły się
kolejno kwerendy zapisały i... od razu wyeksportowały do TXT /tę czynność jeszcze tu nie eksponuję bo jej jeszcze nie ruszyłem jak się zapoznam to dopiszę .
później jednym modułem pozamykam wszystkie otwarte kwerendy lub po udanym eksporcie do txt każdą indywidualnie zamknę
Kwerenda powinna pokazywać i eksportować do TXT tylko jedno pole .
W powyżej zamieszczonym kodzie pokazuję tylko jedną kwerendę
Prośba
Czy mógłby ktoś z szanownych Państwa dopomóc w pokonaniu tej przeszkody w kwerendzie tak aby się wykonywała i jeśli można żeby żadne komunikaty nie
zatrzymywały takiej wielozadaniowej kwerendy / Najwyżej jak coś źle to niech się :"kwerenda wywali " /
Pozdrawiam
zen
Technical Details
Message-ID:
<1e14a172-510b-4743-bfdf-8dcad02d07b2@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!b123no620621itb.0!news-out.google.com!c1ni12041itd.0!nntp.google.com!75no616500ite.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mailShow Full Headers
Complete Article Headers
X-Received: by 10.99.45.68 with SMTP id t65mr770286pgt.151.1481875087945; Thu, 15 Dec 2016 23:58:07 -0800 (PST) X-Received: by 10.157.42.66 with SMTP id t60mr1429ota.2.1481875087803; Thu, 15 Dec 2016 23:58:07 -0800 (PST) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!b123no620621itb.0!news-out.google.com!c1ni12041itd.0!nntp.google.com!75no616500ite.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Thu, 15 Dec 2016 23:58:07 -0800 (PST) Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=88.199.145.185; posting-account=az6kAQkAAAB7H_TimbImYRMB9REyPxDr NNTP-Posting-Host: 88.199.145.185 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <1e14a172-510b-4743-bfdf-8dcad02d07b2@googlegroups.com> Subject: Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda / From: xyzeniks@gmail.com Injection-Date: Fri, 16 Dec 2016 07:58:07 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit