Re: How to copy Test Step field value into Test field while execution

Hi,

1st thing check if you've the right permission but I think so.

2nd try this piece of code:

Sub TestSetTests_MoveTo
  On Error Resume Next
  if TestSetTest_Fields("TC_HOST_NAME").Value = "" then
      TestSetTest_Fields("TC_HOST_NAME").IsReadOnly = false
      TestSetTest_Fields("TC_HOST_NAME").Value = "TEST"
      TestSetTest_Fields("TC_HOST_NAME").IsReadOnly = True
  end if
  On Error GoTo 0
End Sub

This Sub set the value of TC_HOST_NAME to "TEST" if the field is empty. You could do the same with TS_USER_01 as this:

Sub TestSetTests_MoveTo
  On Error Resume Next

  if TestSetTest_Fields("TC_USER_01").Value <>  ""  then     
      TestSetTest_Fields("TC_USER_01").IsReadOnly = True
  end if

  On Error GoTo 0
End Sub

It would works.

Ciao,
Massimo.