' Uncomment (Remove the ' ) the two lines of code below if they are not already at the top of your Module
'Option Compare Database
'Option Explicit


'------------------------------------------------------------------------------------- ' To use in a query, don't call the Function, ' just add the following line to a query column: ' FullName: FirstName & (" " + MI) & LastName & (" " + Suffix) ' FullName can then be used like a field in your Forms and Reports. ' Note: If your tables contain many records, this may slow down your query '--------------------------------------------------------------------------------------- ' Procedure : fFullName ' Author : Unknown ' Purpose : To cocantenate a person's full name. ' : fFullName can be used like a field on labels or reports. ' Arguments : strFirstName, strMI, strLastName, strSuffix are variables. You can enter ' : the actual names in quotation marks: ("Steve", "R.", "Thomas", "Sr.") ' : or use any string variable for names: (strFName, strMI, strLName, strSuf) ' : Use like this: Call fFullName(strFirstName, strMI, strLastName, strSuffix) '--------------------------------------------------------------------------------------- ' Public Function functFullName(strFirstName As String, strMI As String, _ strLastName As String, strSuffix As String) As String ' If there is no MI or Suffix the + makes sure there ' are no extra blank spaces functFullName = strFirstName & (" " + strMI) & " " & strLastName & (" " + strSuffix) End Function
' To use in a query, don't call the Function, ' Just add the following line to a query column: ' SortName: LastName & ", " & FirstName & (" " + MI) & (" " + Suffix) ' Then you can choose sort your query by SortName ' Note: If your tables contain many records, this may slow down your query ' Your Query will run faster if you have individual FirstName and LastName Columns '--------------------------------------------------------------------------------------- ' Procedure : fSortName ' Author : Unknown ' Purpose : To cocantenate a full name so it can be sorted alphabetically ' : ' Purpose : fSortName can be used like a field on labels or reports. ' Arguments : strFirstName, strMI, strLastName, strSuffix are variables. You can enter ' : the actual names in quotation marks: ("Steve", "R.", "Thomas", "Sr.") ' : or use any string variable for names: (strFName, strMI, strLName, strSuf) ' : Use like this: Call fSortName(strLastName, strMI, strFirstName, strSuffix) '--------------------------------------------------------------------------------------- ' Public Function fSortName(strLastName As String, strFirstName As String, strMI As String, strSuffix As String) As String fSortName = strLastName & ", " & strFirstName & (" " + strMI) & (" " + strSuffix) End Function
'--------------------------------------------------------------------------------------- ' Procedure : fAddress ' Author : Unknown ' Purpose : To cocantenate a full address ' : fAddress can be used like a field on labels or reports. '--------------------------------------------------------------------------------------- ' Public Function fAddress(City As String, State As String, Zip As String, Nation As String) As String fAddress = City & (" " + State) & (" " + Zip) & _ (IIf(Nation = "US" Or Nation = "CA", "", (" " + Nation))) End Function