Here we go. I must add that the error was reported incorrectly. It says "There is no disk in drive. Please insert a disk into drive\Device\Harddisk2\DR2.
Obviously no such thing below.
I have been moving this form from search to search for several years now without this error. Odd. I'm trying to write a new form without much luck,(different post) but this intrigues me.
MZP ÿÿ ¸ @ ? º ´ Í!¸LÍ!??This program must be run under Microsoft Windows.
$ NE
ƒ @ P à š P q ? B û0 € ? = 0 € ? >µ 0 € ? ó 0 € ? û 0 € ? ` 0 € € p 0 € resume only LIBENTRY WEP ¸ ˸ Ë © Borland Standard File þ @ | þ €~ þ
@ þ þ þ þ þ þ €| Form UIManager UIContainer UIObject Page FormObj Field
EditRegion Text Button þ €ã €Ýÿÿÿÿÿÿ°f% open+ close+ canArrive2 arrive2 setFocus+ canDepart2 removeFocus+ depart2 mouseEnter, mouseExit, mouseMove, mouseDown, mouseUp, mouseDouble, mouseRightDown, mouseRightUp, mouseRightDouble, keyPhysical- keyChar- action. menuAction/ timer4 pushButton+ changeValue0 calcField+ run+ newValue+ proc+ error3 status1 mouseClick, init+ Uses Type Var Const Proc þ €† ÿ €(ÿÿ =, @) € ÿÿ C
- ~V ] - }V ?$ H €€€ “4Þ} / Ï . 4 = f:\program files\corel\suite8\Paradox\PDOXHome\CTRL3D.FT B #Form1 POST >
ÿÿÿÿ û2 :WORK:searches\LarkCreekPastry\LarkCreekPastry.db ý NAME ‹ Œ LOCATION þ ÿ TITLE P Q DATE ™ Resume ™ PARADOX 7 à > 0 8 intl , € € ÿ €Œ #Page1 E - }V € ÿÿ € ¦, V
* 0 2 < € € € € ÿ €Â DATE ® 6 » } € ÿÿ À ” i
“ 0 2 < € ÿÿÿÿ + € € ÿÿÿÿd Ì € ÿ € ÿÿ > A S € ÿÿ À
0 2 < € ÿÿÿ ÿ €Ð ÿÿ K à € ÿÿ K Ã
0 2 < € ÿÿÿÿ
K € € ÿ €Â NAME © 6 m } € ÿÿ À ^ i
“ 0 2 < € ÿÿÿÿ + € ÿÿÿÿd Ì € ÿ € ÿÿ
N Y € ÿÿ À
0 2 < € ÿÿÿ ÿ €Ï ÿÿ à € ÿÿ Ã
0 2 < € ÿÿÿÿ
€ € ÿ €ÿÿ
Š* Ø I } €š ÿÿ |
;// 1. First make sure that the user has no unposted data to prevent
;// accidental data loss.
;//
;// 2. Then move to the next record
;//
method pushButton(var eventInfo Event)
var
fHandle Form ;// tmp handle to current form
strRetVal String ;// tmp handle to returned value
endVar
;// Check to see if we're at the bottom of the table and not in edit
;// mode. This is an illegal move in that case
;//
if active.atLast() AND NOT isEdit() then
beep() ;// error message also possible
return
endIf
;// Attach to the current form
;//
fHandle.attach()
;// Check record status and the touched property to see if the record
;// needs to be posted
;//
if active.recordStatus("New") OR active.recordStatus("Modified") OR
(fHandle.touched = TRUE) then
;// Check with user before posting changes
;//
strRetVal = msgYesNoCancel("This is a new or modified record",
"Do you wish to save these changes before moving to another record?")
switch
;// Save the changes
;//
case strRetVal = "Yes":
if NOT active.unlockRecord() then
msgStop("Attempt to post your changes failed",
"Please check to make sure your entries are valid and try again.")
return
endIf
;// Cancel the changes
;//
case strRetVal = "No":
if NOT active.cancelEdit() then
errorShow() ;// custom error handling calls should go here
return
endIf
;// Abort so user can finish editing record
;//
case strRetVal = "Cancel":
return
endSwitch
endIf
;// If we've gotten this far, we're ready to move to the next record
;// This may fail due to the AutoAppend property for the active table. If this
;// property is enabled, an insertAfterRecord() is necessary.
;//
if NOT active.nextRecord() then
errorShow() ;// custom error handling, if any, should go here
endIf
endMethod pushButton
€ I }
: 0 2 < €
€ ÿ €Ó ÿÿ
] J Ã € ÿÿ J Ã
0 2 < € ÿ
Next J € € ÿ €ãÿÿ
Š* 4 g } €h ÿÿ J
method pushButton(var eventInfo Event)
var
lEditState Logical ;// tmp handle to the edit state
endVar
;// Get edit state and store it for later use
;//
lEditState = isEdit()
;// Toggle edit mode if necessary. If deletion should be prevented while not
;// in edit mode, uncomment the three lines preceding edit() and comment or
;// delete the edit()
;//
if lEditState = FALSE then
; msgStop("Error deleting record",
; "You cannot delete a record while not in edit mode.")
; return
if NOT edit() then
errorShow() ;// custom error handling can go here
return
endIf
endIf
;// Confirm the deletion
;//
if msgQuestion("Deleting record",
"You are about to permanently delete the current record. Are you sure?") = "Yes" then
if NOT active.deleteRecord() then
switch
;// Check for insufficient rights problems
;//
case errorHasErrorCode(peNoTableRights) OR
errorHasErrorCode(peNotEnoughRights) OR
errorHasErrorCode(peNotSuffSQLRights) :
msgStop("Error deleting record",
"You have insufficient rights to delete records from this table.")
;// Edit mode, should not happen due to above code, but
;// a good check
;//
case errorHasErrorCode(peNotInEditMode) :
msgStop("Error deleting record", "You must be in edit to delete a record.")
;// Further custom error handling can go here
;//
otherWise :
errorShow()
endSwitch
endIf
endIf
;// Restore the edit state, if necessary
;//
if lEditState = FALSE then
endEdit()
endIf
endMethod pushButton € g }
: 0 2 < € € ÿ €Õ ÿÿ - < Ñ Ã € ÿÿ Ñ Ã
0 2 < € ÿ
Delete Ñ € € ÿ €Ç
LOCATION2
' o ³ € ÿÿ À 3 w
’P 0 2 < € + € € ÿÿÿ d €€€ Ì € ÿ €Ä Resume
Ò
O) <? € ÿÿ À O) 9?
’P 0 2 < € + € ÿÿÿ d Ì ™ € ÿ €½ Status ?% ' € ³ € ÿÿ € D w
’P 0 2 < € + € ÿÿÿ d €€€ Ì € ÿ €Ã TITLE Y - š ¤ € ÿÿ € ^ h
’P 0 2 < € + € ÿÿÿ d €€€ Ì € þ €6 ·"œÐ ·"œÐ þ €ª ¼ " MS Sans Serif J ¯qJ 4¿K Ú ? " MS Sans Serif 7(¢?²?7(þ
ÈÈÈ ? " MS Sans Serif EèD |M XýÞ ã¾þ €& N(Windows Short),DWSMSDSYSOS J V ± Ê ÿÿÿÿ º , É À Ã æ d ÿÿÿÿ ¤ F à æ Á É Á CONTAINER ò Á ÿÿÿÿ± ÿÿÿÿ d \ b ACTIVE > ÿÿÿÿ± ÿÿÿÿ º ² w LASTMOUSECLICKED ” \ ÿÿÿÿ± ÿÿÿÿ ÿ SUBJECT á ² ÿÿÿÿ± ÿÿÿÿ b Z LASTMOUSERIGHTCLICKED < ÿ ÿÿÿÿ± ÿÿÿÿ , $ SELF † Z ÿÿÿÿ± ÿÿÿÿ ™ #FORM1 Ê ¤ ÿÿÿÿ± ? ÿÿÿÿ[ #PAGE1 ± à ÿÿÿÿ± ÿÿÿÿÊ w o TITLE í Q $ ÿÿÿÿ± ÿÿÿÿ Ã » STATUS í ? o ÿÿÿÿ± ÿÿÿÿ RESUME í é » ÿÿÿÿ± ÿÿÿÿ æ Þ LOCATION2 í 8 ÿÿÿÿ± ÿÿÿÿ #BUTTON18 í V ÿÿÿÿ± ÿÿÿÿ æ m #TEXT19 f ü Õ ÿÿÿÿ± ÿÿÿÿ V #BUTTON10 í C
ÿÿÿÿ± ÿÿÿÿ
( #TEXT11 * À ™ ÿÿÿÿ± ÿÿÿÿC À ¸ NAME í
Þ ÿÿÿÿ± ÿÿÿÿ Õ #TEXT14 ñ O ( ÿÿÿÿ± ÿÿÿÿ
#EDITREGION13 ñ š m
ÿÿÿÿ± ÿÿÿÿ
DATE í ä ¸ ÿÿÿÿ± ÿÿÿÿ #TEXT5 Ë ( ÿÿÿÿ± ÿÿÿÿä #EDITREGION4 Ë r F ÿÿÿÿ± ÿÿÿÿä ÿÿÿÿ
PUSHBUTTON Ð METHOD_SELFî EVENTINFO ÿÿÿÿ? ¦ ‰ ú
METHOD_SELF Ð EVENTINFO î ÿÿÿÿC
PUSHBUTTON Ð METHOD_SELFî EVENTINFO ÿÿÿÿÉ / ß
Â
METHOD_SELF Ð EVENTINFO î
LEDITSTATE ÿÿÿë FHANDLE ,ÿÿÿÉ STRRETVAL ÿÿÿV r‚ ÿ — H r‚— ÿ ÷ J
ø J Ã ß r‚
? ? „ r‚ 3 ÷ ???é èòÿÿÿ
ø ‹ ¬ÿÿÿ ÿÿÿ”ÿÿÿ *”ÿÿÿ*t ÿÿÿ € %”ÿÿÿX1 ˆÿÿÿ $ˆÿÿÿ&|ÿÿÿð pÿÿÿ 'Apÿÿÿ Tÿÿÿ Œ ¨ LATÿÿÿ Ä %”ÿÿÿPà ˆÿÿÿðþÿÿ ˆÿÿÿ&|ÿÿÿð¢ pÿÿÿ à Apÿÿÿäþÿÿ è Aäþÿÿ%Øþÿÿ$Ìþÿÿ ð AÌþÿÿ%Àþÿÿ$ ø KA= ”ÿÿÿ 0 A”ÿÿÿ ø 8 KA ”ÿÿÿ 'A”ÿÿÿ ÿÿÿ € %”ÿÿÿX ˆÿÿÿ &ˆÿÿÿ | ¬ÿÿÿ Tÿÿÿ ”ÿÿÿ ÿÿÿ Àþÿÿ Ìþÿÿ pÿÿÿ Øþÿÿ äþÿÿ |ÿÿÿ ðþÿÿ ˆÿÿÿ ACTIVE
+ è¿ýÿÿ
¤ å ¬ÿÿÿ þÿÿ¬þÿÿ / þÿÿ”þÿÿ *”þÿÿ&ˆþÿÿð%|þÿÿ
A? þÿÿ,ÿÿÿ V þÿÿ þÿÿ¬þÿÿ T T þÿÿ”þÿÿ¬þÿÿ p T”þÿÿ%ˆþÿÿ$,ÿÿÿ— %<þÿÿD Œ %|þÿÿH%0þÿÿ$á ÿÿÿþÿÿ ˜ ´ MAþÿÿ*? ÿÿÿ Ä % þÿÿP: ”þÿÿ¬þÿÿ O”þÿÿ&ˆþÿÿð Ð ì KA¤ n ÿÿÿ % þÿÿP; ”þÿÿ¬þÿÿ )”þÿÿ&ˆþÿÿð |þÿÿ 'A|þÿÿ R ÿÿÿ $ % þÿÿP 1 þÿÿ¬þÿÿ þÿÿ&”þÿÿð ˆþÿÿ 'Aˆþÿÿ s ¬þÿÿg |þÿÿ ˆþÿÿ ”þÿÿ þÿÿ þÿÿ ¬ÿÿÿ 0þÿÿ ÿÿÿ <þÿÿ ,ÿÿÿ ACTIVE
+ è;ûÿÿ
è ûÿÿ
ü $ ¯ ª ì ¥ Ð ´ › ˜ – Œ ‘ p Œ T ‡ 8 ‚ 0 } v ø q ð l è e à ^ Ä W ¨ R Œ M € H
F? )F‰) 0Deleting recordFYou are about to permanently delete the current record. Are you sure?YesError deleting record?You have insufficient rights to delete records from this table.'You must be in edit to delete a record.NewModified This is a new or modified recordBDo you wish to save these changes before moving to another record?#Attempt to post your changes failed?Please check to make sure your entries are valid and try again.NoCancel
