Hi Hendra,
You could do it with a Function like;
Public Function TxtNumSpaced(n As String) As String
' Add a space between each characater of String.
Dim i As Integer
Dim s As String
On Error GoTo MyErr
For i = 1 To Len(n)
s = s & Mid$(n, i, 1) & " "
Next i
TxtNumSpaced = Trim(s)
MyExit:
Exit Function
MyErr:
MsgBox "Err =" & Err & vbCrLf & Err.Description
Resume MyExit
End Function
Regards, Clive.
--- In MS_Access_Professionals@yahoogroups.com, "agesthahendra@..." <agesthahendra@...> wrote:
>
> Hi Everyone..
>
> How can we give space between characters in the value of a field..?
> For example i have a field (Text type) with value = 12345, i want to
> give space between the characters to be 1 2 3 4 5 and display it on
> a report or form...
> Any directions would be appreciated...thank you
>
> Regards
> Hendra
>
Tidak ada komentar:
Posting Komentar