Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. CharlesFS

    Recordset and ![Field]

    Thanks Guys!
  2. CharlesFS

    Recordset and ![Field]

    How make "strsql" string get value of field in the current recordset line. I tryed this: Dim Rst As DAO.Recordset Set Rst = CurrentDb.OpenRecordset("ConsultaIPE") Dim Link As Variant With Rst .MoveFirst While Not .EOF Dim strsql As String ... strsql = "INSERT INTO...
  3. CharlesFS

    How store "Date()" value

    OMG! Yes....I m idiot... :o) Thanks HarleyQuinn
  4. CharlesFS

    How store "Date()" value

    Hi, i need of a method to store the Time() value (like recordset) and get this value in a posterior time without using extra files or table. Thanks
  5. CharlesFS

    XMLHTTP & ISO-8859-1

    PHV, thanks for the post but (.setRequestHeader "encoding", "ISO-8859-1" ) not work. This worked: Replace this line: Sreturn = .responseText For: Sreturn = StrConv(conn.responseBody, vbUnicode) thanks PHV
  6. CharlesFS

    XMLHTTP & ISO-8859-1

    ..._ "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, " & _ "application/vnd.ms-excel, application/msword, */*" 'add a dummy cookie .setRequestHeader "cookie", "dummy=dummy" 'send data .Send poStvars Strheaders = .getAllResponseHeaders() Sreturn =...
  7. CharlesFS

    For each line+download+Wait Download

    PHV!!! All working! Thanks a LOT!
  8. CharlesFS

    For each line+download+Wait Download

    Yes! I Found the soluction to request files from url`s without the name of file in url, lets share: Sub LinkDownload() Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte Dim Link As String 'Indica o link a ser executado Link = "http://www.bov.com.br/dxw/Download.asp" 'Ex. 'You...
  9. CharlesFS

    For each line+download+Wait Download

    ...Environ("TEMP") & "\originalfilename.*" End Sub Function Download_File(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte 'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP Set...
  10. CharlesFS

    For each line+download+Wait Download

    I have this(by google): Dim Rst As DAO.Recordset Set Rst = CurrentDb.OpenRecordset("resposta") Dim link As Variant With Rst Do .MoveNext Loop Until .EOF End With End Sub I tried to use Dlookup to get field value as: Dim Rst As DAO.Recordset Set Rst =...
  11. CharlesFS

    For each line+download+Wait Download

    First: how use "for each record" in table? I need to use count?
  12. CharlesFS

    Export CSV fails because of missing specification

    What is the delimiter character "." or ","?
  13. CharlesFS

    For each line+download+Wait Download

    Hi, i don`t know how but i need a way to make one code to: * For each line in table name "resposta" get column "link" value and execute this link(all the links contain files like 300kb~400kb) * How make vba wait the download complete to continue the routine? thanks a lot!
  14. CharlesFS

    Two Digits "dd/mm/yyyy" Format() not work

    Thanks a lot!!! Great User!!
  15. CharlesFS

    Two Digits "dd/mm/yyyy" Format() not work

    Hi friends, i have this: Sub vai() Dim dinicial As Date, dfinal As Date, data As Date Dim hinicial, strhinicial dinicial = DateValue(Form_Atualiza.[date1]) dfinal = DateValue(Form_Atualiza.[date2]) hinicial = Form_Atualiza.[hora] strhinicial = Format(hinicial, "hh:mm") data = dinicial For...
  16. CharlesFS

    "Insert into...Values" with strings

    You again! Thank you a lot!!
  17. CharlesFS

    "Insert into...Values" with strings

    Hi!, i can not insert 3 strings values in 3 table fields! I think the fault is the string "strDOCfile = f.Name" because his value is a file name like "file.DOC" and i have operator error on debugger. Sub EBA() Dim fs, f, s Dim SourceDir As String 'The source directory Dim ArqExiste As Boolean...
  18. CharlesFS

    "For each" with fields

    WOooooooohoooooo !!!! SkipVought Thank you! SkipVought Thank youuu! SkipVought Thank youuuuu! SkipVought Thank youuuuuuuu!
  19. CharlesFS

    "For each" with fields

    Thankyou SkipVought, but have you a sample code about: "Then loop, incrimenting the date by one until you reach the second date." Thanks a lot SkipVought
  20. CharlesFS

    "For each" with fields

    Guys, i have two text field in access form.[date1] and [date2]. In field [date1] i put the initial date value and [date2] i put the end date value. like: [01/10/2009] [03/10/2009] Obs:format date(dd/mm/yyyy) I need a code to call one sub for each date between fields [date1] and [date2]...

Part and Inventory Search

Back
Top