last letter -s

[Tinny]

how can i remove the letter if is s with vba in my reports?
for example is is bobys to be boby?

 

[gemma-the-husky]

if right(field,1)="s" then field=left(field,len(field)-1))

what if there is "ss" at the end of a field?

 

[Oldsoftboss]

if right(field,1)="s" then field=left(field,len(field)-1))

what if there is "ss" at the end of a field?

Or there are 2 reports?

 

[Tinny]

No is only one report but i dont understand the two ss..why is it posible that eny name ends with ss? i need onlly if is s or whatever last latter

if right(field,1)="s" then field=left(field,len(field)-1))


my problem is that i use ony one textfield like

="I Got Todate" & Date() & "From" & [LastName] & " " & [FirstName] & " the sum of" & [LastPay] & "€ for car payment with car id" & [CarId] & ""

 

[raskew]

Hi =

Have to ask. Is English your native language?

Bob

 

[Rich]

Hi =

Have to ask. Is English your native language?

Bob

I would have said it was highl unlikely with the Euro sign being displayed, wouldn't you.

 

[Oldsoftboss]

Finally, a real photo of Rich !

 

[Tinny]

my native language is C#

 

[gemma-the-husky]

tinny, I think we wondered why you needed to remove the last s from a name. But to do it, wrap my code in a function

function remove_s (intext as string) as string

if right(intext,1)="s" then
remove_s=left(intext,len(intext)-1))
else
remove_s = intext 'don't change it
end if

end function

and call it

="I Got Todate" & Date() & "From" & remove_s(nz([LastName],"")) & " " & remove_s(nz([FirstName],"")) & " the sum of" & [LastPay] & "€ for car payment with car id" & [CarId] & ""

this will take the last s of both the firstname and the lastname

is this what you mean. You need the nz function in case either firstname or lastname are blank (null)