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
...than sufficient for my needs with a little checking) a few more fixes for frequent inconsistencies in the way people type in their address are:
* USPS databases don't have any commas or periods so it could purge out all punctuation
* check line 1 - if the it encounters a line with no...
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]...
Hello,
I am redoing some of my main data and seperating the Customer information into first and last name and then street address in seperate fields.
Right now, I have the field [CustomerName], I'm trying to build a button that, when clicked, will automatically put the first and last name into...
Hello,
Thanks for all the help so far! I don't get any runtime errors, but now when I type in a new customer's name in the CustomerID field, I'm getting the error:
+++
The text you entered isn't an item in the list.
Select an item from the list, or enter text that matches one of the listed...
Hello!
Thanks for the help --
[CustomerNumber] is a number. Now using the script:
----
Private Sub NewCustomer_Click()
Dim strDocName As String
Dim stLinkCriteria As String
stDocName = "CustomersNew"
stLinkCriteria = "[CustomerNumber] = " & Me![CustomerNumber] &...
Thanks for your prompt help!
I'm getting a runtime error '2501' on the line:
DoCmd.OpenForm stDocName, , , stLinkCriteria
Here is the code I've modified with my field names [CustomerID] and the form I want to open, [CustomersNew]:
Private Sub NewCustomer_Click()
Dim strDocName As...
Hello,
In an order form [order3], I am attempting to create an automated button that will take the entered [CustomerName] and enter it into a new record in the field [customers].
Is there a simple script to achieve this effect?
Thanks in advance for your help!
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.