Recent content by mtn

After monitoring my Processes window on the Window Task Manager for three hours with a video camera, I was able to discover the file that was opening itself and within a second will dispappear and comes up after a minute. LiveUpd.exe was the culprit! You can find out more on google about...

Please can someone tell me what I need to do to fix this strange behaviour? For the pat 2 days my computer (including all active windows) willl refresh itself every other minutes. I might be typing something and it happens and have to set my focus on the document or application again. I don't...

The best approach for me in avoiding "#deleted?# is to have the RecordSource of my form DESIGNED with "SELECT * FROM MyTableName WHERE 1=0". At runtime I can change the recordsource to whatever I want and once I delete a list of records, I immediately set the recordsource back to the above first...

The code snippet at this post: http://www.access-programmers.co.uk/forums/showthread.php?p=1148424#post1148424 can answer your first question about the email account you need to send the email from. As for sending email without the security warning, use SMTP and you're at peace. SMTP codes are...

Not exactly what you want but almost there... Public Sub ExtractIntFromString2() Dim X As Long Dim strTemp As String Dim Phrase As String Phrase = "1 Day I went to see 5 elephants at the zoo. It was 25 miles away from my 4 bedroom house" Dim str As String, i As...

Just a feedback on this again: I have been able to accomplish all that I wanted to do when I started this thread. To write a code that would create about 70 individual tables into a new back-end will be crazy when you can simply deploy your back-end data file along side with your installation...

I have tried to explain why I am doing this. I have a system that works and very well. Besides all the reasons I listed in my previous post, I am learning how stuff works everyday and I am glad I have found this. This is what solved my situation for me: 'Create the boolean properties...

May be I didn't explain myself very well. I am not trying to create a single table but a separate backend data files for say ABC Corp, FGH Logistics Inc., XYZ Limited etc depending on how many company. So a user can switch the backends to create an invoice depending on which company that's going...

They are both on the same computer. My app is an invoicing system where the user is able to switch between different company data from the login page. The user can actually create a new company data anytime without any help from me. What I presently do/implement is for the user to click on a...

That's "true" and while it's very easy for me to deploy my frontend (accdr) which I have been doing along side with the backend, I am only trying to automate creating the back end.

Thank you both for your quick response. I have actually visited the link above and while I was able to us this: Set fld = .CreateField("VendorStartDate", dbDate) fld.ValidationRule = "Is Null Or <=Date()" fld.ValidationText = "Start date cannot be a future date."...

Hello Everyone, The idea of what I want is simple. I want to be able to deploy my front end to a user without the back end. All the user will need to do the first time he needs to use the app is click on a button to create the data file. A little bit of HOW TO do this brought me this far...

Once again I have taken a second look at your code and after another test, it still works for me here. I have changed your code from a Private Sub to a Public Function and commented out the messages that requires information from your "99 - Dealer Email" table so that I can try it here and it...

That was why you should check that your file path is valid. Try sending a file from your desktop first using absoluet path and if it works then your problem is from strFName. I have tried your code using this Send_Email "C:\Documents\Doc.pdf", "username@yourdomain.com" and it worked for...

Put the two functions below in a module: Function OpenSpecialForms(strCustomerNbr As String) If IsNull(strCustomerNbr) = True Or strCustomerNbr = "" Then MsgBox "Please enter a customer number to continue" ElseIf CountStringOccurrence(strCustomerNbr, "HK") >= 1 Then...