Hmm thx jim I will give it a try. Thx
Dan Goldberg From: 'jim schmitt' via RBASE-L <[email protected]> Sent: Monday, June 17, 2024 3:17 PM To: 'Dan Goldberg' via RBASE-L <[email protected]> Subject: [EXTERNAL] Re: [RBASE-L] - restricting a db edit to certain characters Hi, Dan: Not to elegant, but this will work, try it. Regards, Jim --- VALIDATE THE PART NUMBER --- CHAR BY CHAR --- 06-17-24 CLS LABEL START SET VAR VF_TEXT = NULL SET VAR VF_MSG - TEXT DIALOG 'Enter Part Number -or- Type ''END'' to exit ' VF_TEXT= 20 vEndKey 1 SET VAR VF_LEN INTEGER = (SLEN(.VF_TEXT)) IF VF_LEN = 0 THEN PAUSE 2 USING 'NO INPUT DATA - PLEASE RE-ENTER' GOTO START ENDIF IF VF_TEXT = 'END' THEN RETURN ENDIF --------------------------------------------------------------- -- GET CHAR BY CHAR SET VAR VF_POS INTEGER = 1 SET VAR VF_CHAR TEXT = NULL LABEL GETNEXT IF VF_POS < (.VF_LEN +1) THEN SET VAR VF_CHAR TEXT = (SGET(.VF_TEXT,1,.VF_POS)) IF VF_CHAR IN (0,1,2,3,4,5,6,7,8,9) THEN --- BUMP POS COUNT SET VAR VF_POS = (.VF_POS +1) GOTO GETNEXT ENDIF IF VF_CHAR IN + (-,A,B,C,D,E,F,G,H,I,J,K.L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) THEN --- BUMP POS COUNT SET VAR VF_POS = (.VF_POS +1) GOTO GETNEXT ENDIF --- MUST BE ILLEGAL CHAR SET VAR VF_MSG TEXT = ('PART ' +.VF_TEXT & ' IS INVALID !') PAUSE 2 USING .VF_MSG GOTO START ENDIF SET VAR VF_MSG TEXT = ('PART ' +.VF_TEXT & ' IS GOOD !') PAUSE 2 USING .VF_MSG GOTO START RETURN On Monday, June 17, 2024 at 12:46:55 PM EDT, 'Dan Goldberg' via RBASE-L <[email protected]<mailto:[email protected]>> wrote: I need to limit a db edit field in a form to only numbers, letters and dash(-). I am not having much luck trying to figure it out. I am wondering if anyone else has done this? If so, maybe can you share some details? TIA Dan Goldberg -- For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php --- 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]<mailto:[email protected]>. To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/BY3PR19MB5027FBB9B273FA60A5E607CCD4CD2%40BY3PR19MB5027.namprd19.prod.outlook.com<https://groups.google.com/d/msgid/rbase-l/BY3PR19MB5027FBB9B273FA60A5E607CCD4CD2%40BY3PR19MB5027.namprd19.prod.outlook.com?utm_medium=email&utm_source=footer>. -- For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php --- 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]<mailto:[email protected]>. To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/289731415.6990238.1718662592117%40mail.yahoo.com<https://groups.google.com/d/msgid/rbase-l/289731415.6990238.1718662592117%40mail.yahoo.com?utm_medium=email&utm_source=footer>. -- For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php --- 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]. To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/BY3PR19MB5027A968FA7AE3A7964B635BD4CE2%40BY3PR19MB5027.namprd19.prod.outlook.com.
