Dim Project As Variant
Project = Forms!frmTasks![lblAssignment_Number].Caption
Dim Request As Variant
Request = Forms!frmTasks![lblTaskProjItNumber].Caption
'frmTasks 1st fill of:: Forms!frmTasks![txtTask_Instructions].value = StepsTaken
StepsTaken = ""
StepsTaken = StepsTaken & "<div><font color=black>Steps Taken:</font></div>"
StepsTaken = StepsTaken & "<div><font color=black> </font></div>"
StepsTaken = StepsTaken & "<div><font color=black>1. You have chosen to add the current project request to</font></div>"
StepsTaken = StepsTaken & "<div><font color=black> </font><font color=red>${Project}</font><font color=black> as Request # </font><font color=red>${Request}.</font></div>"
StepsTaken = StepsTaken & "<div><font color=black> 1a. </font><font color=red> Analytical Lab Selected.</font></div>"
StepsTaken = StepsTaken & "<div><font color=black>2. </font><font color=red>Add Additional information for this task as necessary.</font></div>"
StepsTaken = StepsTaken & "<div><font color=red> Click "Skip This Step / Next" when completed</font></div>"
'Debug.Print StepsTaken
Forms!frmTasks![txtTask_Instructions].value = StepsTaken
Forms!frmTasks![txtAdditionalTaskInfo].BorderColor = RGB(237, 28, 36) 'Dark Red
Forms!frmTasks![txtAdditionalTaskInfo].Enabled = True
Forms!frmTasks![cboAssigned_Res].BorderColor = RGB(211, 211, 211) 'Grey
Forms!frmTasks![cmdCurrProjRes].BorderColor = RGB(211, 211, 211) 'Grey
Forms!frmTasks![lstCurrentResources].BorderColor = RGB(211, 211, 211) 'Grey
Forms!frmTasks![cmdRemoveResourceProject].BorderColor = RGB(211, 211, 211) 'Grey
modStatusBar.StatusBar ("")
End Sub
Public Sub RemoveAssigned(Counter As Integer, Old_Person As String)
'The number of assigned persons has decreased; remove on an individual basis
On Error Resume Next
Dim SQL As String
Dim Person_Number As Integer
Person_Number = modTaskAssignment.ReturnEmployeeID(Old_Person)
SQL = "Delete tblAssignedPerson_Link.APL_Link_Counter, tblAssignedPerson_Link.APL_Link_Person"
SQL = SQL & " From tblAssignedPerson_Link"
SQL = SQL & " WHERE (((tblAssignedPerson_Link.APL_Link_Counter)=" & Counter & ") AND ((tblAssignedPerson_Link.APL_Link_Person)=" & Person_Number & "));"
I have tried a few other things I could find but nothing seeded to work for me.Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.