VBA to unlock and re-lock a control

[Leo_Polla_Psemata]

Hi there
I have two controls in a form that i have locked (enabled yes) .
In some cases, i have to copy paste manual data from one control to another while for other cases this is not needed.
To avoid manual copy paste, i have written the below code in which, i set focus on one control, copy, set focus on the other, unlock, paste, and lock again
However, the last command turns to yellow and doesn't lock the control ?? What's wrong ?

Private Sub TST2_DblClick(Cancel As Integer)
    
   Me!TST1.SetFocus
   DoCmd.RunCommand acCmdCopy
   Me!TST2.SetFocus
   Me!TST2.Locked = False
   DoCmd.RunCommand acCmdPaste
   Me!TST2.Locked = True

End Sub

 

[bob fitz]

Perhaps you need to set the focus back to TST1 before locking TSB2

 

[arnelgp]

there is no need to Unlock the control, you just assign the value to your textbox:

Private Sub TST2_DblClick(Cancel As Integer)
    
   Me!TST2 = Me!TST1

End Sub

 

[Gasman]

Hi there
I have two controls in a form that i have locked (enabled yes) .
In some cases, i have to copy paste manual data from one control to another while for other cases this is not needed.
To avoid manual copy paste, i have written the below code in which, i set focus on one control, copy, set focus on the other, unlock, paste, and lock again
However, the last command turns to yellow and doesn't lock the control ?? What's wrong ?

Private Sub TST2_DblClick(Cancel As Integer)
   
   Me!TST1.SetFocus
   DoCmd.RunCommand acCmdCopy
   Me!TST2.SetFocus
   Me!TST2.Locked = False
   DoCmd.RunCommand acCmdPaste
   Me!TST2.Locked = True

End Sub

If it turned to yellow, surely it would have generated an error message?