Email notification go if change in Combo1

VBABEGINER

Well-known Member
Joined
Jun 15, 2011
Messages
1,232
Hi Team,


Query is regarding - Email notification go if change in Combo1


I have already code on "Update" button. If there are any change it simply updates the fields from form controls into access db.


Here i have new requirement like,
Combo1 contains Team names.


If, combo1 value gets changed by "Admin" then in access db one of the Table Name is "Details" which contains
4th column as Email-Id's. So, there should go email to the Previous Team Name Person and New Team Name Person
and respective Manager Name which are mentioned in 5th Column. And one common IT email id - abc@IT.com


Can any one guide on this. I never worked on this macro and not user friendly that much on access db.


Pls revert if Im not able to address here..
 

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.
Can any one please help in this code. its an email send if combo1 value change while updating records.. pls do reply
 
Last edited:
Upvote 0
I have placed this code in Combo1 change event..
Code:
Private Sub Combo1_Change()
oldValue = newValue = Combo1.Text


If MsgBox("Are you sure you want to change the TEAM for this employee?", (vbYesNo + vbQuestion + vbDefaultButton2)) = vbYes Then
newValue = Combo1.Text
Else
End If
End Sub

This is my Update button code..
Code:
Private Sub RecordUpdate()
'Updating the records from the controls
RS.Fields("PID").Value = Text1.Text
RS.Fields("Name").Value = Text2.Text
RS.Fields("Designation").Value = Combo8.Text
RS.Fields("Team Name").Value = Combo1.Text
RS.Fields("C/NC").Value = Combo2.Text
'RS.Fields("DOB").Value = Text4.Text
RS.Fields("Willis Joining Date").Value = Text5.Text
RS.Fields("Team Joining Date").Value = Text6.Text

'-- Im trying to write logic here which i explained above. Please guide on this, how do i captured Team name value and send email to respective manager and teams..

If oldValue <> newValue Then


End If


End Sub
 
Upvote 0

Forum statistics

Threads
1,213,543
Messages
6,114,237
Members
448,555
Latest member
RobertJones1986

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top