Oneline of code instead of two

[Khalil Handal]

Hi to all,



Can have these two lines of VBA code in a one line?

 Me.txtFamilyName = Trim(Me.txtFamilyName)
    Me.txtFamilyName = UCase(Left(Me.txtFamilyName, 1)) & Mid(Me.txtFamilyName, 2)

Thanks
Khalil

[Welshgasman]

I believe you could use a : to seperate them, but that to me would make it harder to read?
Write your code so that it is easy for ANYONE to understand it.

[June7]

Can use Trim() on each instance of txtFamilyName in the second expression.

Why is Trim needed? Are there leading spaces in data? I suppose users could mistype and cause that.

[Khalil Handal]

Right. The trim is to remove any leading spaces.

[CJ_London]

you could use

Me.txtFamilyName = UCase(Left(trim(Me.txtFamilyName), 1)) & Mid(trim(Me.txtFamilyName), 2)

but it is a bit less readable

[Welshgasman]

Perhaps

Me.txtFamilyName = strConv(Me.txtFamilyName,vbProperCase)

That is one line?

A lot easier to read as well?

[Khalil Handal]

Hi,
Thank you all.
Solved

[June7]

So with Trim:

Me.txtFamilyName = strConv(Trim(Me.txtFamilyName), vbProperCase)
or
Me.txtFamilyName = Trim(strConv(Me.txtFamilyName, vbProperCase))