Kwerenda dołączająca w kodzie SQL zaczyna się zawsze od słów INSERT INTO ….
Pełen kod SQL takiej kwerendy można podejrzeć w widoku SQL projektu kwerendy:
Wygląda to np. tak:
| INSERT INTO TabelaArchiwum ( NumerKatalogowy, Autor, Tytul, Cena, Dzial, Bestseller, DataArchiwizacji ) SELECT TabelaKsiazki.NumerKatalogowy, TabelaKsiazki.Autor, TabelaKsiazki.Tytul, TabelaKsiazki.Cena, TabelaKsiazki.Dzial, TabelaKsiazki.Bestseller, Date() AS DataArchiwum FROM TabelaKsiazki; |
Cała procedura uruchamiająca taką kwerendę dołączającą:
|
Public Sub MojaProcedura() Dim Kwera As String Kwera = „INSERT INTO TabelaArchiwum ( NumerKatalogowy, ” & _ „Autor, Tytul, Cena, Dzial, Bestseller, DataArchiwizacji ) ” & _ „SELECT TabelaKsiazki.NumerKatalogowy, TabelaKsiazki.Autor, ” & _ „TabelaKsiazki.Tytul, TabelaKsiazki.Cena, ” & _ „TabelaKsiazki.Dzial, TabelaKsiazki.Bestseller, Date() AS DataArchiwum ” & _ „FROM TabelaKsiazki;” DoCmd.SetWarnings False DoCmd.RunSQL Kwera DoCmd.SetWarnings True End Sub |
We wpisie na blogu może to różnie wyglądać, ale na wszelki wypadek zwracam uwagę na łamanie linii w zapisie kodu SQL w edytorze VBA – jest to ciąg tekstowy, więc koniec linii musi być zakończony znakami & _ (w środku jest spacja).
