Recent content by bricklebrit

Hello! I'm wanting to set up a automated form button to cut out automated emails I receive and splice the information into separate field in the customers I get the same standard raw information such as: Billing Information-------- Name: Mike Lopaplois Address1: 153359 Great Mill Rd Address2...

Hi, Thanks for the additional input. Unfortunately I'm getting an error: The expression on click you entered as the event property setting produced the following error: procedure declaration does not match description of event or procedure having the same name. The script I've modified is...

Thanks for your prompt reply. I'm getting a error: Run-time '91' Object variable or With block varialbe not set at the line: If fiCustomerNumber = Me![CustomerNumber].Value Then Any ideas what the problem is? Thanks! Jon --- My complete code is: Private Sub EmailThem_Click() Dim dbs As...

Hello, I've cut together a short script to send automatic email messages from an order form in access (through Outlook). It is: Private Sub EmailThem_Click() DoCmd.SendObject , , acFormatRTF, "example@email.com", , , "Hello, " _ & Me![CustomerNumber].Value...

Hi Bob, You had helped me greatly back in May regarding an elaborate script you wrote to parse first/last names and addresses in Microsoft Access (which split the text into various fields). I sure do appreciate your handy-work and I use it every day -- it's great! :) I have been trying (in a...

Hi Robert, Thanks for the assistance, I fixed the code to what you sent me and I went into the references and checked "Microsfot Outlook 10 Object Library" and "Outlook view control." Unfortunately I'm still getting the same error: Run-time error '438' Object doesn't...

Hi Robert, Thanks for your prompt response and assistance. I'm using Access and Outlook 2002 -- I modified the code and entered my database values, but I'm getting an error: Run-time error '438' Object doesn't support this property or method Am I missing any of the code to have it tell...

Hello, I was interested in programming a button in an order form sends an automated email to the customer through Outlook. The customer's email address are already stored in a linked table. Are there any pre-programmed basic scripts that could send a message like: " Hello [firstName]...

Hi Bob, Holey ghamoleee... thanks for all the extra coding. Sorry for the delay in responding -- I was away for a few days and didn't have access to the database. It works great! Thanks again for all your assistance, Bob! Jon

Hi Bob, Thanks for the quick fix. It works great now. I really appreciate all your help and work on this -- you really went out of your way! I'm actually using the split up fields to export to the USPS shipping program to print out shipping labels with delivery confirmation codes. If you...

Hi Bob, I would like to have it keep the state in uppercase, but I hated to bother you any more -- is this the part of the code that is determining title case?: Select Case Len(vTargetString) Case 2 GoTo SES_Exit Case 3 vTargetString = " " GoTo...

Bob! One-thousand thank yous! The new code works beautifully. Its just what I wanted and will save me hours of labor of cleaning up people's addresses!! I can't thank you again for all your work! Jon

Hi Bob, Its not urgent -- I full understand top-soil priority!! :D Unfortuanately, its a hodge-podge of entries of people typing in their own address so not everybody uses a comma after the city (although most do). I guess if we want to get really fancy-schmancy we could: - do an IF detect...

Hi Bob, HOLEY SCMOLEY -- Thanks for the fast response and quick answer! It works great. I combined the two codes into a single button: Private Sub CutupAddressButton_Click() Me![CustomerFirstName] = Mid$(Me![CustomerName], 1, InStr(1, Me![CustomerName], " ") - 1)...

Hi Bob, Thanks for the extremely prompt and thorough answer! I ended up using the working code: Private Sub CutupName_Click() Me![CustomerFirstName] = Mid$(Me![CustomerName], 1, InStr(1, Me![CustomerName], " ") - 1) Me![CustomerLastName] = Trim(Right(Me![CustomerName]...