From: rick.rans@canada.com   
      
   Just a WAG, but are the fonts installed on both systems the same as well as   
   the graphic resolution. I've seen some cases when these are set to larger   
   values for the individual machine that bad things can happen and some stuff   
   doesn't display.   
      
   ie - Is the problem machine set to a Windows font size of 125%?   
       - Does the form use fonts that aren't on the system?   
       - Do you have too many fonts on the problem system?   
      
   Again Just a WAG.   
      
   "Kenneth"  wrote in message   
   news:65tgr39v0297s66k6e8vtle5d0guna7pfp@4ax.com...   
   > On Fri, 15 Feb 2008 10:46:42 -0700, "Tony McGuire"   
   >  wrote:   
   >   
   >>   
   >>> For the first five entries, all was well, but then, she got   
   >>> the GPF as before.   
   >>   
   >>At this point, you need to show the code used on the form.   
   >>(action/arrive/depart/open/etc)   
   >>   
   >>Is the form opened/closed for each 'entry'?   
   >   
   > Hi Tony (and all),   
   >   
   > I rebuilt the form from scratch (new form, re-drew all   
   > objects, cut & pasted code from old form to new) and put the   
   > new form on our server.   
   >   
   > Just as before, when opened from all but one machine, it   
   > works fine, but when the brand new form is opened on one   
   > machine, it causes GPFs as did the old form.   
   >   
   > The new form has one page. On that page is a box that   
   > contains all the form's fields (about a dozen of 'em).   
   >   
   > Here is all the code:   
   >   
   > On the form:   
   >   
   > method close(var eventInfo Event)   
   > if eventInfo.isPreFilter() then   
   >      ;// This code executes for each object on the form   
   >   else   
   >      ;// This code executes only for the form   
   > endEdit()   
   >   endIf   
   > endMethod   
   >   
   >   
   >   
   > On the Page:   
   >   
   > method action(var eventInfo ActionEvent)   
   > var   
   >   TC TCursor   
   > endVar   
   > if eventInfo.id()=dataInsertRecord then   
   >   edit()   
   >   doDefault   
   >   tc.open(":DATA:$KSA08.DB")   
   >   Entry=tc.cmax("Entry")+1   
   > endif   
   > if eventInfo.id()=dataEndEdit then   
   > self.end()   
   > endIf   
   > endMethod   
   >   
   >   
   >   
   > On the box:   
   >   
   > method open(var eventInfo Event)   
   > self.end()   
   > endMethod   
   >   
   >   
   >   
   > On a field called Balance:   
   >   
   > sum([:MONEY:INVOICES.DUE])  + Sum([:WORK:$KSA08.Amount])   
   >   
   >   
   >   
   > On a field called Category:   
   >   
   > method newValue(var eventInfo Event)   
   > if self.value=33 then   
   >      Dep_On.moveTo()   
   > endIf   
   > EndMethod   
   >   
   >   
   >   
   > On a field called Check:   
   >   
   > method keyPhysical(var eventInfo KeyEvent)   
   >   var tc tcursor endvar   
   >   if EventInfo.isControlKeyDown() and eventInfo.vChar()="N"   
   > then   
   >   edit()   
   >   delayScreenUpdates(yes)   
   >   active.action(EditEnterFieldView)   
   >   if(self.isblank()) then   
   >   edit()   
   >   doDefault   
   >   tc.open(":DATA:$KSA08.DB")   
   >   check=tc.cmax("check")+1   
   >   else   
   >   Amount.moveto()   
   >   endif   
   >   endIf   
   > endMethod   
   >   
   >   
   >   
   > On a field called Amount:   
   >   
   > method changeValue(var eventInfo ValueEvent)   
   > var   
   >  userChoice String   
   > endVar   
   > doDefault   
   > if amount1.value < 7000 then   
   >   msgInfo("OOOOPS!","Balance Kinda Low...")   
   > endIf   
   > if self.value>0 then   
   >   userChoice = msgQuestion("Question...?", "Is this a   
   > CREDIT?")   
   > switch   
   >   case userChoice = "Yes" :   
   >     Category.moveTo()   
   >   case userChoice = "No"  :   
   >     msgInfo("OOOOPS!","Please add that MINUS SIGN!")   
   >     amount.moveTo()   
   > endSwitch   
   >   EndIf   
   > endMethod   
   >   
   >   
   >   
   > On a field called Entry:   
   >   
   > method open(var eventInfo Event)   
   > self.end()   
   > endMethod   
   >   
   > method changeValue(var eventInfo ValueEvent)   
   > doDefault   
   > action(dataPostRecord)   
   > endMethod   
   >   
   > method newValue(var eventInfo Event)   
   > amount.moveTo()   
   > endMethod   
   >   
   >   
   >   
   > Of course, I would be most appreciative of any help you   
   > could provide.   
   >   
   > All the best, and sincere thanks,   
   > --   
   > Kenneth   
   >   
   > If you email... Please remove the "SPAMLESS."   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)