Please provide scripts to achieve below functionality.Before making a change in business address,for an account, the application should verify whether the account was created by the the person who has logged into the application.If yes then allow editing else don't

Rohit

• Oct 29th, 2007

 

Function BusComp_PreSetFieldValue (FieldName As String,
         FieldValue As String) As Integer
   Dim iReturn as integer
   iReturn = ContinueOperation
   Select Case FieldName
      Case "Account Status"
         if Me.GetFieldValue("Created By") <> _
            TheApplication.LoginId then
            TheApplication.RaiseErrorText("*** You cannot change the Address _
               because you did not create the Account***")
            iReturn = CancelOperation
         end if
   End Select
   BusComp_PreSetFieldValue = iReturn
End Function