Replace values in (1 Viewer)

[Uldis007]

Hi!

In the Access form I have a text box that by default displays the name of the system user who is logged in to the system. But the problem is that the username is displayed in the format "firstname.surname". I need to replace the "dot" with a "space" and the first letters of the name and surname in capital letters.

I use this to get a windows username

Option Compare Database
Option Explicit

Public Function GetUserName() As String

GetUserName = Environ("UserName")

End Function

 

[Gasman]

Use the Replace() function

No need to play around with the first letters if just checking name?

? "paul" = "PAUL"
True

? "paul" = "Paul"
True

If it is for cosmetic purposes, then look at Instr() and Left() functions as well.
I would search for the . and amend to uppercase, then use the replace.

 

[Uldis007]

Use the Replace() function

No need to play around with the first letters if just checking name?

? "paul" = "PAUL"
True

? "paul" = "Paul"
True

If it is for cosmetic purposes, then look at Instr() and Left() functions as well.
I would search for the . and amend to uppercase, then use the replace.

Thanks for the reply!

I try this but it doesn't work, obviously the code is wrong

Private Sub FormReplaceValue()

Dim FormReplaceValue As Integer
FormReplaceValue = Replace(Forms!Izvēlne!Text3, ".", " ")

End Sub

 

[Gasman]

Thanks for the reply!

I try this but it doesn't work, obviously the code is wrong

Private Sub FormReplaceValue()

Dim FormReplaceValue As Integer
FormReplaceValue = Replace(Forms!Izvēlne!Text3, ".", " ")

End Sub

Well no, all a Replace does is replace characters with others, so still remains a string?

Most people would just use

Forms!Izvēlne!Text3 =Replace(Forms!Izvēlne!Text3, ".", " ")

If in the form then use the Me. prefix instead of Forms!

I would not create a whole sub for it either?

You could also use strConv() to get your Proper names.

VBA Upper, Lower, and Proper Case - Case Functions - Automate Excel

VBA Functions to convert strings of text to Upper, Lower, or Proper Case - LCase, UCase, StrConv Functions.

www.automateexcel.com

 

[isladogs]

Summarising all the advice above, use:
Me.YourTextboxName=StrConv(Replace(Environ("username"),"."," "),vbProperCase)

Or a slightly shorter version
Me.YourTextboxName=StrConv(Replace(Environ("username"),"."," "),3)

 

[Uldis007]

Summarising all the advice above, use:
Me.YourTextboxName=StrConv(Replace(Environ("username"),"."," "),vbProperCase)

Or a slightly shorter version
Me.YourTextboxName=StrConv(Replace(Environ("username"),"."," "),3)

I combined your solution with my own and set the default value of the text box to "GetUserName ()" and it works

Public Function GetUserName() As String

GetUserName = StrConv(Replace(Environ("username"), ".", " "), 3)

End Function

Thank you very much for your response!
You saved my day!

 

[Uldis007]

Thanks for the help!

 

[isladogs]

You're welcome. @Gasman and I were pleased to assist.