Ok so i have to following code. -
Private Sub Command218_Click()
-
On Error GoTo Err_218Click
-
-
DoCmd.SendObject acSendNoObject, , , "Daveh@specsales.com", , , "Request for Partition Drawing"
-
Me.Text219 = "Waiting on Drawing."
-
Exit_218:
-
Exit Sub
-
Err_218Click:
-
GoTo Exit_218
-
-
End Sub
-
now before the "Send Object command i want a box to appear and ask if the user is sure they want to send the email. if they click yes then continue with the code, and if they say no to exit the sub command.
I am decient with If Statements but have no ideal how to incorperate it into a message box.
Thanks in Advance!
3 1541
Something like this should work ... -
Private Sub Command218_Click()
-
On Error GoTo Err_218Click
-
Dim rslt As Integer
-
-
rslt = MsgBox ("Are you sure you want to send this mail", vbYesNo)
-
If rslt = vbYes Then
-
DoCmd.SendObject acSendNoObject, , , "Daveh@specsales.com", , , "Request for Partition Drawing"
-
Me.Text219 = "Waiting on Drawing."
-
End If
-
-
Exit_218:
-
Exit Sub
-
Err_218Click:
-
GoTo Exit_218
-
-
End Sub
-
well you could do this - msgbox("Do you want to send the email?",vbyesno + vbquestion,"whats your answer?") = vbyes then
-
DoCmd.SendObject acSendNoObject, , , "Daveh@specsales.com", , , "Request for Partition Drawing"
-
Me.Text219 = "Waiting on Drawing."
-
else
-
Exit_218:
-
Exit Sub
-
Err_218Click:
-
GoTo Exit_218
well you could do this - msgbox("Do you want to send the email?",vbyesno + vbquestion,"whats your answer?") = vbyes then
-
DoCmd.SendObject acSendNoObject, , , "Daveh@specsales.com", , , "Request for Partition Drawing"
-
Me.Text219 = "Waiting on Drawing."
-
else
-
Exit_218:
-
Exit Sub
-
Err_218Click:
-
GoTo Exit_218
This worked great thank you.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: w i l l |
last post by:
Why does this work the way it does?
If someone could explain return true, and return false to me I'd
greatly appreciate it.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
...
|
by: learning_C++ |
last post by:
I hope to use template. in my code I hope to sum the vector<int> and
vector<double>. But there are several errors:
sumtemplate.cpp:6: error: ISO C++ forbids declaration of `sum' with no
type...
|
by: Bob Bedford |
last post by:
We have no access to a mysql NG on my provider's server, so we ask here:
We have a long query (long in text) with a UNION between 2 select.
We have been informed that some times the query...
|
by: Rhino |
last post by:
I am trying to verify that I correctly understand something I saw in the DB2
Information Center.
I am running DB2 Personal Edition V8.2.1 on Windows. I came across the
following in the Info...
|
by: Dany |
last post by:
Our web service was working fine until we installed .net Framework 1.1 service pack 1. Uninstalling SP1 is not an option because our largest customer says service packs marked as "critical" by...
|
by: MSDNAndi |
last post by:
Hi,
I have a set of simple webservices calls that worked fine using .NET
Framework 1.0.
I am calling a Java/Apache based webservices, the calling side is not able
to supply a proper WSDL.
...
|
by: weston |
last post by:
I've got a piece of code where, for all the world, it looks like this
fails in IE 6:
hometab = document.getElementById('hometab');
but this succeeds:
hometabemt =...
|
by: philip |
last post by:
hello, i am new to asp.net and sql server, and i have 3 questions for
asking:
1. i am writing a store procedure of login validation for my asp.net
application and wondering what the different...
|
by: samoore33 |
last post by:
I use the code below to search through a DataSet:
Dim t As DataTable
t = result.Tables("State")
Dim strExpr As String
strExpr = "id = '" & theState.ToString() & "'"
Dim foundRows() As DataRow...
|
by: =?Utf-8?B?Um9nZXIgVHJhbmNoZXo=?= |
last post by:
Hello,
I have a question about the infamous GOTO statement and the way to return a
result from a sub:
I have a sub that has to make some calls to external COM methods, and
because these...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
|
by: PapaRatzi |
last post by:
Hello,
I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
| |