Email notification go if change in Combo1

[VBABEGINER]

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..

 

[VBABEGINER]

Can any one please help in this code. its an email send if combo1 value change while updating records.. pls do reply

 

[VBABEGINER]

I have placed this code in Combo1 change event..

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..

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]

Dear board members, im looking reply on this.. im madly tryiing for solution

 

[VBABEGINER]

Ok, im closing this query..