Access VBA

Last Name First

Public Function LastNameFirst(sID As Long) As String
	'Based on BorrowerID and BorrowerType, return name; Last Name first
	'Person ID passed as ‘sID’ to ‘DVid’
	Dim theName 	As String
	Dim Borrows 	As Recordset
	Set Borrows = CurrentDb.OpenRecordset("BorrowerInfo", dbOpenDynaset, dbSeeChanges)
	Do Until Borrows.EOF
		With Borrows
		If !DVid = sID Then
			theName = !LastName
			If Len(!Prefix) > 0 Then     'If there is a prefix before a numbe, capture it
		theName = theName & ", " & !Prefix & Chr(32) & !FirstNameMI & Chr(32) & !Suffix
			Else		'Else ignore the Prefix field
		theName = theName & ", " & !FirstNameMI & Chr(32) & !Suffix
			End If
			Exit Do		'If you have everything you came for exit the Loop
		End If
		End With
	Borrows.MoveNext
	Loop
	LastNameFirst = theName		'Data from search 
	Borrows.Close
End Function