http://www.sql.ru/forum/1182170/kak-v-podchinennoy-forme-zapolnyat-polya-iz-predydushhey-zapisi

INSERT INTO Operation(FIO)
SELECT * 
FROM [Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=C:\myWorkbook.xlsx].[Лист1$C2:C500];

http://www.sql.ru/forum/1182159/import-neskolkih-poley-v-bd-odnim-insertom

http://www.sql.ru/forum/1182095/ustanovka-daty-i-vremeni-v-access

http://www.sql.ru/forum/1182092/modul-avtomaticheskogo-sozdaniya-rezervnyh-kopiy-arhivirovaniya

http://www.sql.ru/forum/1182054/chem-mozhno-zamenit-funkciu-strptr-ptr

http://www.sql.ru/forum/1182030/vopros-po-listbox-u-s-multiselect-om-i-ego-sobytiyam

http://www.sql.ru/forum/1181997/listview-cvet-granicy-yacheek

http://www.sql.ru/forum/1181982/zavisaet-aksess-pri-vyhode-iz-bazy

http://www.sql.ru/forum/1181965/otchet-perpendikulyarno-lista

   Set RecFio = New ADODB.Recordset
   RecFio.Open "KvitanzijaReestr", CurrentProject.Connection
   Otv = MsgBox("Удалить запись!" & Chr(13) & _
       FioSokr(RecFio.Fields("Fam"), RecFio.Fields("Imja"), RecFio.Fields("Otch")) _
       & Chr(13) & "Продолжить?", vbYesNo)
     If Otv <> 6 Then
       RecFio.Close
       Set RecFio = Nothing
       Exit Sub
     End If
   RecFio.Close
   Set RecFio = Nothing

http://www.sql.ru/forum/1181962/ne-otkryvaetsya-zapros-v-sobytii-formy

SELECT a.prodID, a.prodName, c.Quantity, 
                                    (select sum(f.Quantity) from operations f where f.operName='realiz' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bRealiz,
                                    (select sum(f.Quantity) from operations f where f.operName='prihod' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bPrihod,
                                    (select sum(f.Quantity) from operations f where f.operName='spisanie' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bSpisanie,
                                    (select sum(f.Quantity) from operations f where f.operName='vozvrat' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bVozvrat,
                                    SUM (IIF(b.operName='realiz', b.Quantity, 0)) AS Realiz,
                                    SUM (IIF(b.operName='prihod', b.Quantity, 0)) AS Prihod,
                                    SUM (IIF(b.operName='spisanie',  b.Quantity, 0)) AS Spisanie,
                                    SUM (IIF(b.operName='vozvrat', b.Quantity, 0)) AS Vozvrat
FROM   (((products a)
LEFT JOIN  (SELECT * FROM operations WHERE operations.operDate between #7/23/15# and #7/30/15#) As b ON a.prodID = b.prodID)
LEFT JOIN  (SELECT * FROM remains WHERE remains.periodID=1) As c ON a.prodID=c.prodID)
GROUP BY a.prodName,a.prodID,c.Quantity

 (select sum(f.Quantity) from operations f where f.operName='realiz' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bRealiz,
                                    (select sum(f.Quantity) from operations f where f.operName='prihod' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bPrihod,
                                    (select sum(f.Quantity) from operations f where f.operName='spisanie' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bSpisanie,
                                    (select sum(f.Quantity) from operations f where f.operName='vozvrat' and f.operDate<#7/23/15# and f.prodID=a.prodID) AS bVozvrat,

                                    SUM (IIF(b.operName='realiz', b.Quantity, 0)) AS Realiz,
                                    SUM (IIF(b.operName='prihod', b.Quantity, 0)) AS Prihod,
                                    SUM (IIF(b.operName='spisanie',  b.Quantity, 0)) AS Spisanie,
                                    SUM (IIF(b.operName='vozvrat', b.Quantity, 0)) AS Vozvrat

http://www.sql.ru/forum/1181854/vozmozhna-li-optimizaciya-zaprosa

http://www.sql.ru/forum/1181771/pochemu-2003-access-ne-rabotaet-v-mnogopolzovatelskom-rezhime

http://www.sql.ru/forum/1181770/oshibka-v-vyrazhenii-v-zaprose

http://www.sql.ru/forum/1181768/vyborka-sluchaynyh-voprosov-iz-tablicy

SELECT a.prodID, a.prodName, c.Quantity, 
                                    SUM (IIF(b.operName='realiz', b.Quantity, 0)) AS Realiz,
                                    SUM (IIF(b.operName='prihod', b.Quantity, 0)) AS Prihod,
                                    SUM (IIF(b.operName='spisanie',  b.Quantity, 0)) AS Spisanie,
                                    SUM (IIF(b.operName='vozvrat', b.Quantity, 0)) AS Vozvrat
FROM   (((products a)
LEFT JOIN  operations b ON a.prodID = b.prodID)
LEFT JOIN  remains c ON a.prodID=c.prodID)
WHERE c.periodID=1
GROUP BY a.prodName,a.prodID,c.Quantity

WHERE c.periodID=1

http://www.sql.ru/forum/1181707/problema-obedineniya-left-join-3-h-tablic

<man>
	<pers1>
		<f>QQQ</f>
		<i>QQQ</i>
		<o>QQQ</o>
		<dr>QQQ</dr><dr>QQQ</dr>
       </pers1>
	<pers2>
		<f>QQQ</f>
		<i>QQQ</i>
		<o>QQQ</o>
       </pers2>
</man>

    Dim xmlDoc As MSXML2.DOMDocument60
    Dim xmlRoot As MSXML2.IXMLDOMNode
    
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    
    If xmlDoc.Load("test.xml") = True Then
        if xmlDoc.???("man/pers1/dr") = True then   '!!! Вот сюда, какую функцию применить?
            Set xmlRoot = xmlDoc.selectSingleNode("man/pers1/dr")
        end if
    end if

http://www.sql.ru/forum/1181701/kak-cherez-vba-proverit-est-li-uzel-v-fayle-xml

http://www.sql.ru/forum/1181683/kak-sdelat-dve-kopii-otcheta-na-odnoy-stranice

http://www.sql.ru/forum/1181666/lentochnaya-forma-granica-oblasti-dannyh

<session>
      <documents>
        <document>
          <type>doc-invoice</type>
          <object>00HQ13800JrY</object>
        </document>
        <document>
          <type>doc-price-ticket</type>
          <object>00HQ1380007U</object>
        </document>
      </documents>
      <active>00HQ13800JrY</active>
</session>

Dim FileName as String
Dim objFSO as FileSistemObject
Dim F, Buffer

FileName = "C:\Base\settings.xml"

Set objFSO = New FileSystemObject

Set F = objFSO.OpenTextFile(FileName, ForReading)
Buffer = F.ReadAll
F.Close

Buffer = Replace(CStr(Buffer), " * ", " сюда вставлю всё что нужно :-) ", 1, -1, 1) 'вот здесь меня и заклинило!

Set F = objFSO.OpenTextFile(FileName, ForWriting)
F.Write Buffer
F.Close

http://www.sql.ru/forum/1181579/izmenenie-teksta-v-xml

http://www.sql.ru/forum/1181521/pomogite-pozhaluysta-sdelat-zapros-k-baze-dannyh