Showing an Error message if "No." less than seven.

Freaky

Hi Guys,
I have a field name "No." on a Form and I want to use this Form to insert a new number into the table the form looks to. The number should have seven digits and if less than seven I want to have a window with an error message.When I click OK it should CLEARALL .The field "No." is of data type code. My problem is that I don't know how to code that.

Thanks for help.

ssingla

Define a variable say length with data type integer. Write the follwing code on the "on validate" trigger of the field

length := STRLEN("No.");
if length <7 then error ('Your Message')

kriki

In the OnValidate-trigger of the field in the table, put something like this:

IF STRLEN("THe Field") <> 7 THEN
FIELDERROR("THe Field",'The length should be 7');

Sandeep_Prajapati

   If (STRLEN("No.") < 7) then Begin
     Message('The No. length is less thah 7');
     "No." := '';
   End;

DenSter

That only catches if it is less than 7 characters, what happens if it is MORE than 7?

IF NOT (STRLEN("No.") = 7) THEN
  ERROR('you must have 7 characters');

Savatage

DenSter wrote:

That only catches if it is less than 7 characters, what happens if it is MORE than 7?

Actually the orig Post doesn't specify that it has to be 7 just "at least" 7.

How about

IF NOT (STRLEN("MyField")=<7) THEN
  IF NOT CONFIRM('%1 is normally at least 7 digits, use this number anyway?',FALSE,FIELDNAME("My Field"))
  THEN ERROR('Nothing Changed.');

we can probably write 100 versions of this code

DenSter

ara3n

Let's see if we can actually accomplish 100 different ways?

Savatage

Seriously?

IF (STRLEN("MyField")in [0,1,2,3,4,5,6]) THEN
  IF NOT CONFIRM('%1 is normally at least 7 digits, use this number anyway?',FALSE,FIELDNAME("My Field"))
  THEN ERROR('Nothing Changed.');

Well there can be a bunch of sight tweaks as above :whistle:

kine

Savatage wrote:

Seriously?

IF (STRLEN("MyField")in [0,1,2,3,4,5,6]) THEN
  IF NOT CONFIRM('%1 is normally at least 7 digits, use this number anyway?',FALSE,FIELDNAME("My Field"))
  THEN ERROR('Nothing Changed.');

Well there can be a bunch of sight tweaks as above :whistle:

Or more "geek" condition:

IF (STRLEN("MyField") DIV 7) = 0 THEN
  ...