http://www.sql.ru/forum/1135258/vopros-po-datam

http://www.sql.ru/forum/1135196/kak-razreshit-dostup-k-redaktirovaniu-bd

http://www.sql.ru/forum/1135119/medlennaya-raboty-razdelyonnoy-bd

    strURL = "https://sub.site.ru/download/All"

    'Создаём элемент эксплорера
    Set IE = CreateObject("InternetExplorer.Application")
    'Переходим по адресу
    IE.navigate strURL
    Do While IE.Busy Or IE.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

Private Sub btnRIC_Click()
    Dim strURL As String
    
    Dim IE As Object
    Dim hDoc As MSHTML.HTMLDocument
    Dim hCol As MSHTML.IHTMLElementCollection
    Dim hCell As MSHTML.IHTMLTableCell
    Dim hRow As MSHTML.IHTMLTableRow
    
    Dim HTTP As MSXML2.XMLHTTP
    
    Dim RS As ADODB.Recordset
    
    Dim i As Integer
    Dim sFileName
    Dim dFileDate As Date
    Dim sUrl As String
    
    Dim iFreeFile As Integer
    Dim vFileName As Variant
    Dim bFileDate() As Byte
    Dim sFolderName As String

On Error GoTo ErrHandler


    strURL = "https://sub.site.ru/download/All"
    sFolderName = "C:\11"

    'Создаём элемент эксплорера
    Set IE = CreateObject("InternetExplorer.Application")
    'Переходим по адресу
    IE.navigate strURL
    Do While IE.Busy Or IE.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

    'Грузим документ
    Set hDoc = New MSHTML.HTMLDocument
    Set hDoc = IE.Document
    Do While Not hDoc.ReadyState = "complete"
        DoEvents
    Loop
    
'    Dim SSS As String
'    SSS = hDoc.body.innerHTML
'    udfClipBoardSetData (SSS)

    'Грузим коллекцию однотипных элементов (getElementsBy...)
    Set hCol = hDoc.getElementsByClassName("NewPackage")
    For i = 0 To hCol.Length - 1
        Set hRow = hCol.Item(i)
        dFileDate = hRow.cells(0).innerText
        sFileName = hRow.cells(2).innerText
        sUrl = hRow.cells(2).all.Item(1)
        
        Set HTTP = New MSXML2.XMLHTTP
        HTTP.Open "GET", sUrl, False
        HTTP.send
        
        sFileName = sFolderName & "\" & sFileName
        'Проверяем, не существует ли уже этот файл?
        If Len(Dir(sFileName)) > 0 Then
            Kill sFileName
            If Len(Dir(sFileName)) > 0 Then
                MsgBox "Не удалось сохранить файл!", vbExclamation, "Ошибка открытия"
                GoTo ExitHere
            End If
        End If
        'Записываем данные
        iFreeFile = FreeFile
        Open sFileName For Binary Access Write As iFreeFile
        'Переписываем данные в массив - ибо из рекордсета он тянуть на прямую желает, но желает это коряво
        ReDim bFileDate(0 To LenB(HTTP.responseBody) - 1)
        bFileDate = HTTP.responseBody
        'Заливаем в файл
        Put iFreeFile, , bFileDate
        Close iFreeFile
        
    Next i

ExitHere:
    Set IE = Nothing
    Set hDoc = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Source & "-->" & Err.Number & ":" & Err.Description, vbExclamation, "Error"
    Resume ExitHere
    Resume
End Sub

http://www.sql.ru/forum/1135098/kak-proyti-autentifikaciu-pri-podkluchenii-k-veb-uzlu

http://www.sql.ru/forum/1135088/neskolko-itogov-v-otchete

http://www.sql.ru/forum/1135080/dublikaty-v-tablice

http://www.sql.ru/forum/1135070/kak-svyazat-chislovoe-i-tekstovoe-s-chislami-polya-v-zaprose

http://www.sql.ru/forum/1135041/rezultaty-zaprosa-v-forme

http://www.sql.ru/forum/1134988/vremya-zadannyh-sutok-na-kotoroe-prishlos-maksimalnoe-kolichestvo-klientov

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Current()
    ' Если для записи текущего сотрудника имеется фотография,
    ' она отображается в форме. Если указанный файл не существует,
    ' либо если для текущего сотрудника поле имени файла пусто,
    ' надпись errormsg выводит соответствующее сообщение.
    Dim res As Boolean
    Dim fName As String
    Dim t As Long
    t = timeGetTime()
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        If Not IsNull(Me![Фотография]) Then
            res = IsRelative(Me![Фотография])
            fName = Me![Фотография]
            If (res = True) Then
                fName = path & "\" & fName
            End If
            Me![Картинка].Picture = fName
            Me![Картинка].Visible = True
            Me.PaintPalette = Me![Картинка].ObjectPalette
            If (Me![Картинка].Picture <> fName) Then
                Me![Картинка].Visible = False
                ErrorMsg.Caption = "Фотография не найдена"
                ErrorMsg.Visible = True
            End If
        Else
            Me![Картинка].Visible = False
            ErrorMsg.Caption = "Для добавления фотографии нажмите кнопку ""Добавить/изменить"""
            ErrorMsg.Visible = True
        End If
    MsgBox "Обработка данных длилась " & Format$((timeGetTime() - t) / 1000, "0.000") & " сек."
End Sub

http://www.sql.ru/forum/1134985/izmerit-vremya-vyvoda-dannyh-na-forme-ispolzuya-taymer-i-recordset

http://www.sql.ru/forum/1134978/vremya-zadannyh-sutok-na-kotoroe-prishlos-maksimalno-kolichestvo

http://www.sql.ru/forum/1134977/integraciya-s-oracle-ili-ms-sql-server-2008

http://www.sql.ru/forum/1134965/kak-otkryt-formu-s-parolem

SELECT wProducts.prID, wProducts.prName, wProducts.prPrice 
FROM wProducts;

SELECT tblProducts.prID, tblProducts.prName, tblProducts.prPrice
FROM tblProducts INNER JOIN WebProducts ON tblProducts.prID = WebProducts.prID
WHERE (((tblProducts.prName)<>[WebProducts].[prName])) OR (((tblProducts.prPrice)<>[WebProducts].[prPrice]));

http://www.sql.ru/forum/1134964/obnovit-dannye-tablicy-na-servere-cherez-sravnenie-s-tablicoy-u-klienta

SELECT DISTINCTROW [Спецификация договора].[Код изделия], [Справочник единиц измерений].[Наименование единицы измерения], Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy') AS [Дата отгрузки по месяцам], [Список выпускаемых изделий].Цена, Sum([Спецификация договора].Количество) AS [Sum - Спецификация договора_Количество], [Список заказчиков].[Наименование заказчика], [Список заказчиков].Адрес, [Список заказчиков].Индекс, [Список заказчиков].ИНН, [Список заказчиков].Город, [Спецификация договора].[Номер договора], [Спецификация договора].[Дата отгрузки]
FROM [Список заказчиков] INNER JOIN ([Список договоров заключенных с заказчиком] INNER JOIN ([Список складов] INNER JOIN ([Справочник единиц измерений] INNER JOIN (([Список выпускаемых изделий] INNER JOIN [Спецификация ТТН] ON [Список выпускаемых изделий].[Код изделия] = [Спецификация ТТН].[Код изделия]) INNER JOIN [Спецификация договора] ON [Список выпускаемых изделий].[Код изделия] = [Спецификация договора].[Код изделия]) ON [Справочник единиц измерений].[Код единицы измерений] = [Список выпускаемых изделий].[Код единицы измерения]) ON [Список складов].[Номер склада] = [Список выпускаемых изделий].[Номер склада]) ON [Список договоров заключенных с заказчиком].[Номер договора] = [Спецификация договора].[Номер договора]) ON [Список заказчиков].[Код заказчика] = [Список договоров заключенных с заказчиком].[Код заказчика]
GROUP BY [Спецификация договора].[Код изделия], [Справочник единиц измерений].[Наименование единицы измерения], Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy'), [Список выпускаемых изделий].Цена, [Список заказчиков].[Наименование заказчика], [Список заказчиков].Адрес, [Список заказчиков].Индекс, [Список заказчиков].ИНН, [Список заказчиков].Город, [Спецификация договора].[Номер договора], [Спецификация договора].[Дата отгрузки], Year([Спецификация договора].[Дата отгрузки])*12+DatePart('m',[Спецификация договора].[Дата отгрузки])-1
HAVING (((Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy'))=[Введите месяц]));

http://www.sql.ru/forum/1134957/pomogite-sozdat-blank-dogovora

http://www.sql.ru/forum/1134951/dizayner-tablic-izmenenie-priznaka-null-lubogo-polya-ne-rabotaet-v-storonnih-programmah

http://www.sql.ru/forum/1134950/kak-sozdat-podstanovku-s-filtrom

http://www.sql.ru/forum/1134868/summa-v-primechanii-otcheta

http://www.sql.ru/forum/1134840/opredelenie-vozrasta

http://www.sql.ru/forum/1134807/problema-s-zaprosom-na-dobavlenie-oshibka-null