How to change "United States American" to "USA" in Access

[Edmond]

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..

 

[Eric Cárdenas [MSFT]]

From: "Edmond" <[email protected]>
Newsgroups: microsoft.public.access.forms
Subject: How to change "United States American" to "USA" in Access
Date: Fri, 21 May 2004 14:36:36 +0800
Organization: Singapore Telecommunications Ltd
Lines: 17
Message-ID: <[email protected]>
NNTP-Posting-Host: 203.125.28.131
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Path: cpmsftngxa10.phx.gbl!TK2MSFTFEED02.phx.gbl!TK2MSFTNGXA01.phx.gbl!TK2MSFTNGP0
8.phx.gbl!newsfeed00.sul.t-online.de!t-online.de!border2.nntp.dca.giganews.c
om!nntp.giganews.com!wn14feed!worldnet.att.net!204.71.34.3!newsfeed.cwix.com
!news.loxinfo.co.th!peony.singnet.com.sg!columbine.singnet.com.sg!not-for-ma
il
Xref: cpmsftngxa10.phx.gbl microsoft.public.access.forms:267373
X-Tomcat-NG: microsoft.public.access.forms

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..

--------------------
Wouldn't it be easier to type the short form and get the long form
automatically?

Whichever way, you can use an autolookup technique to accomplish this. Look
at the Orders subform in the Orders main form in the sample Northwind
Traders database. When you specify the product id, the product description
and unit price is automatically filled in.

Hope this helps,

 

[Paul Johnson]

Function MyFunc(strText As String)
MyFunc = Left(strText, 1)
Do While InStr(1, strText, " ")
strText = Mid(strText, InStr(1, strText, " ") + 1)
MyFunc = MyFunc & Left(strText, 1)
Loop
End Function

Paul Johnson
Alexandria, VA