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