Search results for query: *

Thanks Guys!

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...

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

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

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

..._ "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 =...

PHV!!! All working! Thanks a LOT!

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...

...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...

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 =...

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

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

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!

Thanks a lot!!! Great User!!

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...

You again! Thank you a lot!!

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...

WOooooooohoooooo !!!! SkipVought Thank you! SkipVought Thank youuu! SkipVought Thank youuuuu! SkipVought Thank youuuuuuuu!

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

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]...