When I've needed to do something like that in the past, I have located a vDummy variable edit in the row right after that field. Helps with the EEP situation, but the user has to press [enter] twice to get to the next row. They usually don't find that too onerous.
Karen -----Original Message----- From: Albert Berry <[email protected]> To: rbase-l <[email protected]> Sent: Fri, Sep 30, 2016 12:48 pm Subject: [RBASE-L] - Form: Data veification on last field in a row I have a form used to enter offerings for my parish. The form is shown below. Date/Parish/Fund use a hidden dbedit to that #DUP can be used saving the user re-entering data, and those three entry items are do not have the tab stop enabled. The can override when things change by selecting the field. The Envelope number and Amount fields are DBEdit's. The envelope number is verified on leaving the field Env # and I have an eep on that field that checks the number, beeps, and if the envelope is invalid, displays a popup giving the option of adding a new envelope number or correcting the typo. No problems there. We do not want null or $0.00 amounts to be added to the database, and the column is set to NOT NULL in the data table. The catch is that this is the last field in the row and when the user presses enter, I have an exit eep that checks the data. The eep doesn't fire before the the form attempts to save the row. I tried it as a trigger, but that still didn't seem to work properly. I just want the user to hear a beep and be returned to the Any ideas? eep and form are below. { ContactDonationAmount.eep Albert Berry 2016-09-30 Moved from stored procedure to form field exit that will run before leaving the row. } SET VAR vAmountText TEXT, vAmount CURRENCY,vKey TEXT = (LASTKEY(0)) PAUSE 2 USING .vKey IF LASTKEY(0) = "[Esc]" THEN GOTO Stop ENDIF GETPROPERTY cAmount TEXTVALUE "vAmountText" SET VAR vAmount = (FLOAT(.vAmountText)) IF vAmountText IS NULL OR vAmount=0 THEN BEEP PAUSE 2 USING "You must enter a non zero amount" + CAPTION "NO AMOUNT ENTERED" + ICON SERIOUS + BUTTON "OK" + OPTION MESSAGE_FONT_NAME Tahoma + |MESSAGE_FONT_COLOR -16777208 + |MESSAGE_FONT_SIZE 10 + |THEMENAME Royale PROPERTY cAmount SET_FOCUS "TRUE" PROPERTY cAmount SELECTALL "TRUE" ENDIF LABEL Stop RETURN -- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout. -- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
