Email notification go if change in Combo1

VBABEGINER

Well-known Member
Joined
Jun 15, 2011
Messages
1,130
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..
 

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

VBABEGINER

Well-known Member
Joined
Jun 15, 2011
Messages
1,130
Can any one please help in this code. its an email send if combo1 value change while updating records.. pls do reply
 
Last edited:

VBABEGINER

Well-known Member
Joined
Jun 15, 2011
Messages
1,130
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
 

VBABEGINER

Well-known Member
Joined
Jun 15, 2011
Messages
1,130
Dear board members, im looking reply on this.. im madly tryiing for solution
 

Watch MrExcel Video

Forum statistics

Threads
1,108,788
Messages
5,524,879
Members
409,609
Latest member
Channingz

This Week's Hot Topics

Top