Here is the code of a UserForm that when I select one or more contacts, I run this Userform, it open up the drop list of dates and I select what date to add to the user defined field named "Status Date" of the contacts and it changes a specific field named "Status Date"in the contact.I can also add more fields with there names as an additional case to use....so is there a way to add to this or adjust it, so i recognizes the fields of the contacts that come from the objTask.Links(1) of each task i select, and then makes the changes to those contacts? Thanks very very much:
Private Sub btnRun_Click()
Dim Field As String
Dim value As String
Field = Me.ddlFields.Text
value = Me.ddlValues.Text
UpdateContactField Field, value
Me.Hide
End Sub
Private Sub ddlFields_Change()
Dim fld As String
fld = Me.ddlFields.Text
'Add your field related values here.
Select Case fld
Case "Status Date"
Me.ddlValues.addItem "Jan-01-2014"
Me.ddlValues.addItem "Jan-02-2014"
Me.ddlValues.addItem "Jan-03-2014"
Me.ddlValues.addItem "Jan-04-2014"
Me.ddlValues.addItem "Jan-05-2014"
Me.ddlValues.addItem "Jan-06-2014"
Me.ddlValues.addItem "Jan-07-2014"
Me.ddlValues.addItem "Jan-08-2014"
Me.ddlValues.addItem "Jan-09-2014"
Me.ddlValues.addItem "Jan-10-2014"
Me.ddlValues.addItem "Jan-11-2014"
Me.ddlValues.addItem "Jan-12-2014"
Me.ddlValues.addItem "Jan-13-2014"
Me.ddlValues.addItem "Jan-14-2014"
Me.ddlValues.addItem "Jan-15-2014"
Me.ddlValues.addItem "Jan-16-2014"
Me.ddlValues.addItem "Jan-17-2014"
Me.ddlValues.addItem "Jan-18-2014"
Me.ddlValues.addItem "Jan-19-2014"
Me.ddlValues.addItem "Jan-20-2014"
Me.ddlValues.addItem "Jan-21-2014"
Me.ddlValues.addItem "Jan-22-2014"
Me.ddlValues.addItem "Jan-23-2014"
Me.ddlValues.addItem "Jan-24-2014"
Me.ddlValues.addItem "Jan-25-2014"
Me.ddlValues.addItem "Jan-26-2014"
Me.ddlValues.addItem "Jan-27-2014"
Me.ddlValues.addItem "Jan-28-2014"
Me.ddlValues.addItem "Jan-29-2014"
Me.ddlValues.addItem "Jan-30-2014"
Private Sub UserForm_Initialize()
'Add your field names here.
Me.ddlFields.addItem "Status Date"
End Sub
Private Sub btnRun_Click()
Dim Field As String
Dim value As String
Field = Me.ddlFields.Text
value = Me.ddlValues.Text
UpdateContactField Field, value
Me.Hide
End Sub
Private Sub ddlFields_Change()
Dim fld As String
fld = Me.ddlFields.Text
'Add your field related values here.
Select Case fld
Case "Status Date"
Me.ddlValues.addItem "Jan-01-2014"
Me.ddlValues.addItem "Jan-02-2014"
Me.ddlValues.addItem "Jan-03-2014"
Me.ddlValues.addItem "Jan-04-2014"
Me.ddlValues.addItem "Jan-05-2014"
Me.ddlValues.addItem "Jan-06-2014"
Me.ddlValues.addItem "Jan-07-2014"
Me.ddlValues.addItem "Jan-08-2014"
Me.ddlValues.addItem "Jan-09-2014"
Me.ddlValues.addItem "Jan-10-2014"
Me.ddlValues.addItem "Jan-11-2014"
Me.ddlValues.addItem "Jan-12-2014"
Me.ddlValues.addItem "Jan-13-2014"
Me.ddlValues.addItem "Jan-14-2014"
Me.ddlValues.addItem "Jan-15-2014"
Me.ddlValues.addItem "Jan-16-2014"
Me.ddlValues.addItem "Jan-17-2014"
Me.ddlValues.addItem "Jan-18-2014"
Me.ddlValues.addItem "Jan-19-2014"
Me.ddlValues.addItem "Jan-20-2014"
Me.ddlValues.addItem "Jan-21-2014"
Me.ddlValues.addItem "Jan-22-2014"
Me.ddlValues.addItem "Jan-23-2014"
Me.ddlValues.addItem "Jan-24-2014"
Me.ddlValues.addItem "Jan-25-2014"
Me.ddlValues.addItem "Jan-26-2014"
Me.ddlValues.addItem "Jan-27-2014"
Me.ddlValues.addItem "Jan-28-2014"
Me.ddlValues.addItem "Jan-29-2014"
Me.ddlValues.addItem "Jan-30-2014"
Private Sub UserForm_Initialize()
'Add your field names here.
Me.ddlFields.addItem "Status Date"
End Sub