Hi Access Experts,

how to do the following?

Name ShortForm
United States America USA
Tomorrow is Friday TIF
Thank You Very Much TYVM


when I keyin a company name in the first column, it will AUTO generate the
shortform using the first alphabet of each word.

thanks in advance..

Should read as:

> Name Short Form
> United States America USA
> Tomorrow is Friday TIF
> Thank You Very Much TYVM
"Edmond" <(E-Mail Removed)> wrote in message
news:c8k5fu$rr3$(E-Mail Removed)...
> Hi Access Experts,
>
> how to do the following?
>
> Name ShortForm
> United States America USA
> Tomorrow is Friday TIF
> Thank You Very Much TYVM
>
>
> when I keyin a company name in the first column, it will AUTO generate the
> shortform using the first alphabet of each word.
>
> thanks in advance..
>
>

In the change event of your Name field enter the following code:
Public Sub Name_Change()
Me.ShortForm.Value = ShortForm(Me.Name.Value)
End Sub

And include the following function (this has not been tested)

Public Function ShortForm(ByVal LongForm As String)
Dim buf() as String
Dim ret as String
Dim idx as Integer

If Len(buf) = 0 Then
ShortForm = ""
Exit Function
End If

buf = Split(LongForm, " ")

For idx = 0 To Ubound(buf)
ret = buf(idx) & buf
Next idx

ShortForm = ret
End Function

Regards,
Dan

"Edmond" <(E-Mail Removed)> wrote in message
news:c8k5mf$rrf$(E-Mail Removed)...
> Should read as:
>
> > Name Short Form
> > United States America USA
> > Tomorrow is Friday TIF
> > Thank You Very Much TYVM
> "Edmond" <(E-Mail Removed)> wrote in message
> news:c8k5fu$rr3$(E-Mail Removed)...
> > Hi Access Experts,
> >
> > how to do the following?
> >
> > Name ShortForm
> > United States America USA
> > Tomorrow is Friday TIF
> > Thank You Very Much TYVM
> >
> >
> > when I keyin a company name in the first column, it will AUTO generate
the
> > shortform using the first alphabet of each word.
> >
> > thanks in advance..
> >
> >
>
>

Edmond wrote:
>how to do the following?
>
> Name ShortForm
> United States America USA
> Tomorrow is Friday TIF
> Thank You Very Much TYVM
>
>
>when I keyin a company name in the first column, it will AUTO generate the
>shortform using the first alphabet of each word.


Create a function to pick up the first character after each
space. Something like this shoud do it:

Public Function ShortForm(LongForm As String) As String
Dim pos As Integer
pos = 0
Do
ShortForm = ShortForm & UCase(Mid(LongForm, pos + 1, 1))
pos = InStr(pos + 2, LongForm, " ")
Loop Until pos = 0
End Function

--
Marsh
MVP [MS Access]

On Fri, 21 May 2004 14:23:15 +0800, "Edmond" <(E-Mail Removed)>
wrote:

>Hi Access Experts,
>
>how to do the following?
>
> Name ShortForm
> United States America USA
> Tomorrow is Friday TIF
> Thank You Very Much TYVM
>
>
>when I keyin a company name in the first column, it will AUTO generate the
>shortform using the first alphabet of each word.
>
>thanks in advance..
>

Answered (also) in Formscoding.

Please DO NOT MULTIPOST. Many of the volunteers here cover several
newsgroups; if you "crosspost" by typing two or three (NO MORE!)
newsgroups on the Newsgroups line, we can see that the question has
already been answered and not waste time repeating an answer. Thank
you!

John W. Vinson[MVP]
Come for live chats every Tuesday and Thursday
http://go.compuserve.com/msdevapps?loc=us&access=public

thanks to all.

noted with the advise.

"John Vinson" <jvinson@STOP_SPAM.WysardOfInfo.com> wrote in message
news:(E-Mail Removed)...
> On Fri, 21 May 2004 14:23:15 +0800, "Edmond" <(E-Mail Removed)>
> wrote:
>
> >Hi Access Experts,
> >
> >how to do the following?
> >
> > Name ShortForm
> > United States America USA
> > Tomorrow is Friday TIF
> > Thank You Very Much TYVM
> >
> >
> >when I keyin a company name in the first column, it will AUTO generate
the
> >shortform using the first alphabet of each word.
> >
> >thanks in advance..
> >
>
> Answered (also) in Formscoding.
>
> Please DO NOT MULTIPOST. Many of the volunteers here cover several
> newsgroups; if you "crosspost" by typing two or three (NO MORE!)
> newsgroups on the Newsgroups line, we can see that the question has
> already been answered and not waste time repeating an answer. Thank
> you!
>
> John W. Vinson[MVP]
> Come for live chats every Tuesday and Thursday
> http://go.compuserve.com/msdevapps?loc=us&access=public