http://www.sql.ru/forum/1101077/zapros-na-zapis-kotoraya-vstrechaetsya-naibolee-chasto

Запрос 1

SELECT so.ClientID, 'All Channels' as CustomerGroup, so.StatementID, so.Brand, so.Product,
Sum(so.Amount) Amount, Sum(so.Value_CP) Value_CP
into #t1
FROM RG_SalesOut_Report so
WHERE so.Block=0 AND so.[All Sources]='SalesOUT'AND so.Value_CP>0 AND so.Amount>0 AND
so.Brand in('Brand 1', 'Brand 2')
GROUP BY so.ClientID, so.CustomerGroup, so.StatementID, so.Brand, so.Product  

Запрос 2

select t1.ClientID, t1.CustomerGroup, t1.StatementID, t1.Brand, t1.Product,
Sum(t1.Amount) AS Amount, Sum(t1.Value_CP) AS Value_CP
into #t2
from #t1 t1
group by t1.ClientID, t1.CustomerGroup, t1.StatementID, t1.Brand, t1.Product

Запрос 3

select ROW_NUMBER() over(order by t2.ClientID desc) as ID, *, CONCAT(t2.ClientID, t2.Product) AS Code
into #t3
from #t2 t2
group by t2.ClientID, t2.CustomerGroup, t2.StatementID, t2.Brand, t2.Product, t2.Amount, t2.Value_CP, CONCAT(t2.ClientID, t2.Product)
ORDER BY t2.ClientID DESC, t2.Product, t2.StatementID desc

Запрос 4

select tab1.ClientID, tab1.CustomerGroup, convert(varchar,(CONVERT(date,tab1.StatementID,104)),104) AS StatementID, tab1.Brand,
tab1.Product, tab1.Amount, tab1.Value_CP, IIF(tab1.code=tab2.code, DATEDIFF(MONTH,tab2.StatementID, tab1.StatementID), 0) AS M_SALES
FROM #t3 tab1
where tab1.StatementID >= '01.01.2013'
RIGHT JOIN #t3 tab2
ON tab1.ID=tab2.ID-1
order by tab1.ID asc

http://www.sql.ru/forum/1100947/zapusk-sql-zapros-cherez-access-link-table

INSERT INTO r ( Purch_doc, Type, Created_on, Vendor, Article, Plnt, SLoc, PO_quantity, OUn1, Qty_delivered, OUn2, Deliv_date, Loc_curr_amount, Curr1, Quantity_in_OPUn, OPUn, Material_number, Pstg_date, Created_by, Amount, Curr2, Curr3, Net_price, Curr4, Conv1, Conv2, Descri_Temp_Conditio, Temp_Cond_Indic )
VALUES (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10a, 11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28);

    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs("Insert_r")
    qdf.Parameter("a1").Value = "1"  'тут ошибка "method or data member not found"
    qdf.Parameter("a2").Value = "2"
    ......
    qdf.Parameter("a28") = "28"
    qdf.Execute



   

http://www.sql.ru/forum/1100900/currentdb-querydefs-parameter

http://www.sql.ru/forum/1100880/chast-infy-s-otchyota-ne-otobrazhaetsya-pri-raspechatke

http://www.sql.ru/forum/1100875/count-iz-dvuh-tablic

If fnПроверка() Then
.........
Else
    DoCmd.Close acForm, Me.Name
End If

http://www.sql.ru/forum/1100835/forma-posle-komandy-docmd-close-nachinaet-obrabatyvat-sobytie-current

http://www.sql.ru/forum/1100792/kak-sdelat-zapros-pomogite-pliiz

http://www.sql.ru/forum/1100783/znacheniya-cherez-zapyatuu

SELECT HozContracts_tbl.OtvIspolnitel_1
FROM HozContracts_tbl
WHERE HozContracts_tbl.OtvIspolnitel_1 Like "*" & [Forms]![Reestr_F93]![OI] & "*";

SELECT HozContracts_tbl.OtvIspolnitel_1
FROM HozContracts_tbl
WHERE HozContracts_tbl.OtvIspolnitel_1=IIf(1<>0,HozContracts_tbl.OtvIspolnitel_1 Like "*" & [Forms]![Reestr_F93]![OI] & "*");

http://www.sql.ru/forum/1100764/vopros-po-like-v-where-zaprosa

http://www.sql.ru/forum/1100745/vypolnyaetsya-zapros-no-ne-otobrazhaetsya

http://www.sql.ru/forum/1100653/raschet-chislovogo-vyrazheniya-v-funkcii-iif

http://www.sql.ru/forum/1100639/problema-s-podschyotom-proizvedeniya-denezhnogo-formata

http://www.sql.ru/forum/1100632/otchet-v-aksese-po-rabochim-dnyam

http://www.sql.ru/forum/1100566/zapret-dubley

http://www.sql.ru/forum/1100558/preobrazovanie-polya-tipa-varchar2-v-datu

Sub ShipmStartLoad()

Dim cn As ADODB.Connection
Dim qSQL As String
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
i = "00" & ActiveCell.Value
    cn.ConnectionString = "Provider=MSDASQL.1;Password=pass;Persist Security Info=True;User ID=user_ro;Data Source=ord.dtt"
    cn.Mode = adModeRead
    cn.Open
qSQL = "select min(sn.sysdat), sl.locatn from  systrn sn, sysdtl sl where sn.trnseq =  sl.trnseq and  sn.sysdat >= (sysdat -2) and  sn.sysdat <= (sysdat+1) and  sl.shipid = '" & i & "' and  sn.trntyp ='DEPSUL' and  sl.locatn like 'DOOR%' group by sl.locatn;"
rs.Open qSQL, cn

With ActiveCell
     .Offset(0, 5).CopyFromRecordset rs
End With
    rs.Close
    cn.Close
Set cn = Nothing
Set rs = Nothing
    Application.ScreenUpdating = True
End Sub

http://www.sql.ru/forum/1100556/poluchit-danye-iz-oracle-cherez-vba

http://www.sql.ru/forum/1100509/vyvod-na-pechat

http://www.sql.ru/forum/1100508/kak-v-access-pri-pechati-povernut-otchet-na-90-gr

Option Explicit

Private StatusBarState As Boolean
Private EnableEventsState As Boolean
Private ScreenUpdatingState As Boolean
Private FULLS_CHAR As String
Private FRAME_CHAR As String
Private SPACE_CHAR As String
Private Const NUM_BAR As Integer = 50
Private Const MAX_LEN As Integer = 255

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
Private Sub Class_Initialize()
  StatusBarState = Application.DisplayStatusBar
  EnableEventsState = Application.EnableEvents
  ScreenUpdatingState = Application.ScreenUpdating
  FULLS_CHAR = ChrW(9609)
  FRAME_CHAR = ChrW(9597)
  SPACE_CHAR = ChrW(9620)
  Application.DisplayStatusBar = True 
  Application.ScreenUpdating = False
  Application.EnableEvents = False
End Sub
Public Function Refresh(ByVal Value As Integer, Optional ByVal MaxValue As Integer = 0, Optional ByVal Status As String = "", Optional ByVal ShowPercent As Boolean = True) As String
  Dim Display As String
  If Value < 0 Or MaxValue < 0 Or (Value > 100 And MaxValue = 0) Then Exit Function
  If MaxValue > 0 Then Value = Int((Value * 100) / MaxValue) + IIf(Int((Value * 100) / MaxValue) = (Value * 100) / MaxValue, 0, 1)
  Display = String(Int(Value / (100 / NUM_BAR)), FULLS_CHAR)
  Display = Display & String(NUM_BAR - Int(Value / (100 / NUM_BAR)), SPACE_CHAR)
  Display = Status & "  " & FRAME_CHAR & Display & FRAME_CHAR
  If ShowPercent = True Then Display = Display & "(" & Value & "%)"
  If Len(Display) > MAX_LEN Then Display = Right(Display, MAX_LEN)
  Refresh = Display
End Function
Public Sub WaitTime(ByVal Time As Integer)
  Dim I As Integer
  For I = 1 To NUM_BAR
    Application.StatusBar = Refresh(I, NUM_BAR, "Execute Query", True) - 'ПРИОСТАНОВИТЬ ПОТОК и ПРИСВОИТЬ ЗНАЧЕНИЕ    Sleep CInt(Time * 1000# / NUM_BAR)
  Next
End Sub
Private Sub Class_Terminate()
  Application.StatusBar = False
  Application.DisplayStatusBar = StatusBarState
  Application.ScreenUpdating = ScreenUpdatingState
  Application.EnableEvents = EnableEventsState
End Sub

http://www.sql.ru/forum/1100422/kak-sinhronizirovat-prilozhenie-i-vba-modul

http://www.sql.ru/forum/1100420/rabota-srochno-nuzhna-pomoshh