Define A Name

J

Joe

Hello,

I want to run the following procedure on a query. How do I define the
[PRIMARY_BORR_NAME] to reference a field in a table or the query itself.

Query
select account#, FirstName() from accounts

Function

Public Function FirstName()

Dim source1 As String
Dim FName As String

source1 = "*LLC*"
FName = [PRIMARY_BORR_NAME]

IIf FName Like source1, "", Left(FName, InStr(FName, " ") - 1)

End Function

Thank You
 
J

John Spencer

Public Function FirstName(StrIn)

Dim source1 As String
Dim FName As String

source1 = "*LLC*"
FName = StrIn

FirstName = IIf FName Like source1, "", Left(FName, InStr(FName, " ") - 1)

End Function


The query would be
SELECT [Account#], FirstName([Primary_Borr_Name]) FROM Accounts


John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County
 
J

Joe

Thank you John

That work just fine. Very helpful.

John Spencer said:
Public Function FirstName(StrIn)

Dim source1 As String
Dim FName As String

source1 = "*LLC*"
FName = StrIn

FirstName = IIf FName Like source1, "", Left(FName, InStr(FName, " ") - 1)

End Function


The query would be
SELECT [Account#], FirstName([Primary_Borr_Name]) FROM Accounts


John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County
Hello,

I want to run the following procedure on a query. How do I define the
[PRIMARY_BORR_NAME] to reference a field in a table or the query itself.

Query
select account#, FirstName() from accounts

Function

Public Function FirstName()

Dim source1 As String
Dim FName As String

source1 = "*LLC*"
FName = [PRIMARY_BORR_NAME]

IIf FName Like source1, "", Left(FName, InStr(FName, " ") - 1)

End Function

Thank You
Click to expand...
Click to expand...
 
Top