MicrosoftAccess

レポートで印刷かプレビューか判断する

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

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