Re: How to make link existing defect option mandatory when changing the defect status to Duplicate

Hi Beate,

Thank you for the solution, i have used the below code in Bug_CanPost function

If Bug_Fields("BG_STATUS").IsModified and Bug_Fields("BG_STATUS").Value = "Closed - Duplicate" then
dim bugFact
dim objBug
dim objlist

Get bugFactory object

set bugFact = TDConnection.bugFactory

Get the current bug object

Set lst = bugFact.NewList(Bug_Fields("BG_BUG_ID").Value)
set objBug = lst.Item(1)

if objBug.HasLinkage = False then
Bug_CanPost = False
Msgbox "Please link the Original Defect through Linked Entities tab before Submit"

set bugFact = nothing
Set lst = nothing
set objBug = nothing
End if

End if

But the issue in the code is after clicking on OK button in the message, if user tries to click on OK  button, the bug_canpost function is not resuming and the defect window get closed.

I am not sure how to code to resume the Bug_Canpost function again on clicking OK button in the second time in the defect window.

Please share your thoughts !

Thanks

Magesh