Subject Whats This
From Bob McKinney <jrmckinney4831@gmail .com> <Bob McKinney <jrmckinney4831@gmail .com>>
Date Fri, 20 May 2022 05:46:44 -0400
Newsgroups dbase.getting-started


Hi All:  When I open 2019 I get this error. "Error:  Access denied:  C:\Program Files (x86)\dBASE\dBASE2019\dBLClasses\ReportControls\REPORT.Co ".
When I click on "fix" the code shown below appears.  I don't have a clue why or what caused the error.

/------------------------------------------------------------------------
//
//  report.cc  --  Custom Control Library for Reports
//
//  PageNumber - Text control showing the current page number.
//
//  dBASE Samples Group
//  $Revision:   1.5  $
//
//  Copyright (c) 1997-1998, Borland International, Inc.
//  Copyright (c) 2000, dBASE, Inc.
//  All rights reserved.
//
//------------------------------------------------------------------------
//

class pageNumber(ParentObj) of Text(ParentObj) custom
   SET TALK OFF
   with ( this )
      height   := 200
      width    := 1000
      metric   := 1
      fontSize := 8
      text     := class::pageValue
   endwith

   function pageValue
      // returns 0 if placed on form
      local nPage
      nPage = 0
      if TYPE("this.form.reportPage") == "N"
         nPage := this.form.reportPage
      endif
   return ( nPage )

endclass
Clicking "fix"  displays this code with the curser in the blank space below the code "end of class" .
   Any help to fix this would be appreciated,,,,,,,,,,Bob