Search results

Sub makeZipFile(pathToZipFolder As Variant, zippedFileName As Variant) Dim ShellApp As Object ‘First we create an empty zip file Open zippedFileName For Output As #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 ‘Next we copy the files & folders into the zip file...

I need to zip a .xml file after its creation, the name of the zip file would be the same as the xml file just without the .xml extension of course. I have been researching a little and some are doing it with WinZip, others with 7Zip and there is also windows default which probably would be best...

Thanks guys. For the first case I added just Trim to get rid of that extra space on begging and for the second one: Left([FieldName], InStr(1, [FieldName] & " ", " ") - 1)

Hello, Im trying to extract some text from a text field. For example if the value is " John" I need the expression to return me "John" or if the value is " John co. sth" I also need it to return me "John". I tried this: IIf(InStr(InStr(" John co. sth"," ")+1," John co. sth"," ") _ <>0, Right("...

I went with the acDialog option, seems like what I need. Micron, I might do that. Thanks guys!

Hi guys, I have a continuous form with few records, and every record has a button. When I click on that button a piece of code is started which creates an .xml file, after the .xml file is successfully created it updates a check box to true, so the user knows its created and prevents him from...

Hey Mark_, was an old code the first part so I didnt remove yet but now I did. Thanks all, now it works as I want it to. Private Sub Email_BeforeUpdate(Cancel As Integer) '20190513 If Not IsNull(Email) Then If Not IsEmailAddress(Email) Then '20190513 MsgBox "E-mail...

I have a field on a form which is used to enter the email address of a customer. I have put some code on after update to check if the entered Email address is valid. If its not I want to set focus on that field and select the text but I dont want the record to save, the email has to be valid to...

Yeah I saw that many have API but no idea how to implement that, Im researching :D Edit: I dont need to do many checks, maximum 200 per month maybe. Saw somewhere that they offer for free up to 1000 email checks per month. Edit: I found this but doesnt seem to work VB6 - Validate Email Address...

Yup through Outlook I get it in the inbox but not really what I want. I would like to write some code which would check if the email is active when the user enters an email for a customer, if not, then to put a msg box that the email is either wrong or not active or sth similar.

Is there a way to use a website like Verifalia but directly in VBA code so it checks if the Email is active/valid and everything else it can check? Something like WinHttpRequest object for URL check? I did find the "vbscript.regexp" and .Pattern =...

Ok that was a really bad example I put. Later when I'm on my laptop I will try to put a better example.

&#55358;&#56596; So I better use the second option if I need some criteria, or there is something else I can do?

Thats what I recognized and changed to UPDATE SQL but wanted to be sure it does the same job. Thanks!

Hey guys, Im currious whats the difference between these 2, also what and when to use? Set Cust = MyDb.OpenRecordset("SELECT CustomerID FROM Customer) If Cust.RecordCount <> 0 Then Cust.MoveFirst While Not Cust.EOF...

Alright, I had to save the image as .gif. Now it shows up in the body. However, in the gmail app on my phone I see the picture in the body and no attachment whats good but on my laptop browser I see the image in the body but also in the attachment, besides my pdf file. Any way to get rid or hide...

Hey guys, again me and my mail troubles :D Dim FileName As String Dim emailText As Stringt Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Dim varReturn As Variant Dim objImage As Object Dim myPic As String If Not MyRs.EOF...

Was late I didnt know what i was doing :D Thanks

Set MyRS = MyDB.OpenRecordset("UPDATE Bills SET Bills.DateTimeEm = #1/1/1900 1:0:0# WHERE Bills.IdBills = " & Me.IdBills & ";") I cant get it to work in VBA. Runtime error 3219 appears, invalid operation. Just cant figure it out how to write date to table, it should be 01.01.1900 01:00:00

Well yeah there is a .mdb which stores tables only and a .accde which is the application with forms, reports and stuff. Both of these are on the server, Windows Server 2008 R2 and they access it through RDP, I don't know much about it I just started to learn about it. I didn't quite understand...