====== msaccess ======
Microsoft Access

===== パススルー =====
http://ast2001.blog107.fc2.com/blog-entry-23.html?sp


===== レポートの印刷かプレビューを判定 =====
レポートで印刷かプレビューか判断する

https://hatenachips.blog.fc2.com/blog-entry-170.html

===== http =====
XMLHTTP
http://www.7key.jp/program/accapi/http.html

    Dim Http
    Dim buf As String
    Dim targetURI As String  
  
  'POSTサンプル
    targetURI = "http://sample.com/piyo.cgi"
    
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "POST", targetURI, False
    Http.send "piyo=hoge&hoge=piyo"
    buf = StrConv(Http.ResponseBody, vbUnicode)
    Set Http = Nothing
  'GETサンプル
    targetURI = "http://sample.com/piyo.cgi?id=" & text_id & "&pw=" & text_pw
    
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", targetURI, False
    Http.send
    buf = StrConv(Http.ResponseBody, vbUnicode)
    Set Http = Nothing