[color=#ff0000][b][size=16]Solution: If a Function does not include a return statement, it will throw an error.[/size][/b][/color]

Hello!

i want to use a Function Phone() in MyFunction.sbas bat a get sBasic error:

Hier is the crappity smacktion Phone:

:On Global Code
stat sElementLength as int

:ON Element immediate Change (Phone Field)
ThisElement = PHONE(ThisElement)

The Function Phone() in MyFunction.sbas:

Function PHONE(val as String) as String
// Phone w/Ext template in the format of (###) ###-####  Ext-#####
var vPos as int
var vStr as string

vPos = @CursorPosition(ThisElement)
vStr = @Num(ThisElement)

if vPos = 1 and (@Len(vStr) > sElementLength)
     vPos = 2
if vPos = 5 and (@Len(vStr) > sElementLength)
     vPos = 7
if vPos = 10 and (@Len(vStr) > sElementLength)
     vPos = 11
if vPos = 15 and (@Len(vStr) > sElementLength)
     vPos = 21

if @Len(vStr) > 0
     vStr = "(" + vStr
if @Len(vStr) > 4
     vStr = @Lt(vStr, 4) + ") " + @Mid(vStr, 5, 12)
if @Len(vStr) > 9
     vStr = @Lt(vStr, 9) + "-" + @Mid(vStr, 10, 9)
if @Len(vStr) > 14
     vStr = @Lt(vStr, 14) + "  Ext-" + @Mid(vStr, 15, 5)

ThisElement = vStr

CursorPosition(ThisElement, vPos)

sElementLength = @Len(@Num(vStr))

End Function


Thank you for the Help

Dr. Belhareth

Hello Erika,

Every Modification in Field Phone a get Error:

"A runtime SBASIC error ha occured. Please close this form and repair the condition before continuing."

Thanks.

Ah, looks like you're making use of my Interactive Data Entry Templates (Inside Sesame, May 2006).

Nice to see that it's being put to use.