Article View: pl.comp.bazy-danych.msaccess
Article #137392Re: Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda /
From: Zbigniew Bratko
Date: Sat, 17 Dec 2016 09:42
Date: Sat, 17 Dec 2016 09:42
63 lines
3227 bytes
3227 bytes
W dniu 2016-12-16 o 08:58, xyzeniks@gmail.com pisze: > Witam jestem zainteresowany wykorzystaniem Accessa do liczb konkretnie do MiniLotto . Na przeszkodzie stoi słaba znajomość Jeśli mogę zgadywać, czy rozpracowujesz wyniki MiniLotto ? Przybliż nieco temat, to może będzie łatwiej Ci coś doradzić. > Accessa VBA i SQL . > ------------------------ > Przy pomocy konwersji Makra na Moduł uzyskałem > następujący kod [...] > 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.RunSQL Method (Access) https://msdn.microsoft.com/en-us/library/office/ff194626(v=office.15).aspx SQLStatement .... Description [...] Najlepiej zacznij od początku. Otwórz sobie nową kwerendę. W oknie dialogowym "Pokazywanie tabel" nie wybieraj nic. Po prostu zamknij okno dialogowe, przełącz się na widok SQL i wklej SQL Twojej kwerendy. 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)); Potem spróbuj przełączyć się na widok arkusza danych. I popatrz co Ci zakomunikuje Access. > > 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ę Mógłbyś przybliżyć nieco temat: "W excelu otrzymuję parametry które dość sprytnie wplecione w tekst dają razem kod". [...] > > 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 " / Najpierw spróbuj z innymi kwerendami zrobić tak jak pisałem. Jeżeli wszystkie się wykonają, to przyjdzie czas na następny etap ;-) -- Pozdrowienia BraZby www.faq.accdb.pl www.accdb.pl
Technical Details
Message-ID:
<o331aq$bb2$1@node2.news.atman.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mailReferences:
<1e14a172-510b-4743-bfdf-8dcad02d07b2@googlegroups.com>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail From: Zbigniew Bratko <byle@co.pl> Newsgroups: pl.comp.bazy-danych.msaccess Subject: Re: Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda / Date: Sat, 17 Dec 2016 10:42:43 +0100 Organization: ATMAN - ATM S.A. Lines: 63 Message-ID: <o331aq$bb2$1@node2.news.atman.pl> References: <1e14a172-510b-4743-bfdf-8dcad02d07b2@googlegroups.com> NNTP-Posting-Host: ip-31-0-125-180.multi.internet.cyfrowypolsat.pl Mime-Version: 1.0 X-Trace: node2.news.atman.pl 1481967770 11618 31.0.125.180 (17 Dec 2016 09:42:50 GMT) X-Complaints-To: usenet@atman.pl NNTP-Posting-Date: Sat, 17 Dec 2016 09:42:50 +0000 (UTC) User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Thunderbird/45.5.1 In-Reply-To: <1e14a172-510b-4743-bfdf-8dcad02d07b2@googlegroups.com> Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit