🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.bazy-danych.msaccess
Article #137392

Re: Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda /

#137392
From: Zbigniew Bratko
Date: Sat, 17 Dec 2016 09:42
63 lines
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-mail
References: <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