🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Uruchomianie kwerendy z poziomu VBA / najkorzystniejsza metoda /

#137390
From: xyzeniks
Date: Fri, 16 Dec 2016 07:58
39 lines
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-mail

Show 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