access vba - What's wrong with my VBA code (I'm getting runtime error 9) -


i've looked around , found "runtime error 9 subscript out of range" error has arrays. however, i'm not sure how interpret answers i've found best suite code.

i have simple function wrote pull first , last names out of field, found field had few nulls in , tried compensate changing string variant decleration.

i've gotten work without error similar code... not code.

my code follows:

    function flastname(byval lnin variant) variant     dim astrfullname() string     if isnull(lnin)         flastname = null     else         redim astrfullname(2) 'this new concept me... not sure if need         astrfullname = split(lnin, ",")         flastname = astrfullname(0)      end if end function 

thanks in advance insights , assistance.

edit: found issue array doesn't null value in of name fields... thought following line fix that:

if isnull(lnin)     flastname = null 

but apparently wrong.
have advice on i've found far?

you dont need redim ... , dont have dim array.

function flastname(byval lnin variant) variant     dim astrfullname     if isnull(lnin)         flastname = null     else         astrfullname = split(lnin, ",")         flastname = astrfullname(0)     end if end function 

ps: assuming lnin contain comma separated string ... else may have put check.


Comments

Popular posts from this blog

html - Sizing a high-res image (~8MB) to display entirely in a small div (circular, diameter 100px) -

java - IntelliJ - No such instance method -

identifier - Is it possible for an html5 document to have two ids? -