postcode lookup

[Lapchien]

I have a field for a postcode. I'd like another field to auto contain an
'area' number, based on the first part (only) of the postcode. For example,
if a postcode LS4 4DJ was entered, another field would read the LS4 part and
enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap

[Phil Stanton]

I assume your second table (TblAreas) looks like
SmallPostCode Area
LS 7
CO 5
etc

Create a query (QSmallPostCode) based on your table containing the post
codes containing the following
SmallPostCode:IIf(Len([PostCode])>=2,Left$([PostCode],2),"")
This extracts the first 2 letters (nothing for a missing post code

Then create a second query based on TblAreas and QSmallPostCode with a left
join between the 2 SmallPostCode fields

See if that gets you on your way

Phil

"Lapchien" <cc****@nospamplease.eclipse.co.uk> wrote in message
news:10***************@ananke.eclipse.net.uk...

I have a field for a postcode. I'd like another field to auto contain an
'area' number, based on the first part (only) of the postcode. For example, if a postcode LS4 4DJ was entered, another field would read the LS4 part and enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap

[Patrick]

Just use a case statement

Select Case Postcode
Case Trim(left(Postcode,3))="LS4"
Area = 4
Case Trim(left(Postcode,3))="LS5"
Area =5
Case.......
Area......
End Select

Patrick

On Mon, 1 Dec 2003 13:16:29 -0000, "Lapchien"
<cc****@nospamplease.eclipse.co.uk> wrote:

I have a field for a postcode. I'd like another field to auto contain an
'area' number, based on the first part (only) of the postcode. For example,
if a postcode LS4 4DJ was entered, another field would read the LS4 part and
enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap

[Lapchien]

Thanks - I'll let you know how I get on...
--
Thanks,
Chris
cc****@NOSPAMeclipse.co.uk

"Phil Stanton" <di********@stantonfamily.co.uk> wrote in message
news:3f***********************@mercury.nildram.net ...

I assume your second table (TblAreas) looks like
SmallPostCode Area
LS 7
CO 5
etc

Create a query (QSmallPostCode) based on your table containing the post
codes containing the following
SmallPostCode:IIf(Len([PostCode])>=2,Left$([PostCode],2),"")
This extracts the first 2 letters (nothing for a missing post code

Then create a second query based on TblAreas and QSmallPostCode with a left join between the 2 SmallPostCode fields

See if that gets you on your way

Phil

"Lapchien" <cc****@nospamplease.eclipse.co.uk> wrote in message
news:10***************@ananke.eclipse.net.uk...

I have a field for a postcode. I'd like another field to auto contain an 'area' number, based on the first part (only) of the postcode. For

example,

if a postcode LS4 4DJ was entered, another field would read the LS4 part

and

enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap

[peterleeds]

In the AfterUpdate event of the postcode field Try:-

Me.AreaCode = Mid(PostCode, 1, InStr(PostCode, " ") - 1)
On Mon, 1 Dec 2003 13:16:29 -0000, "Lapchien"
<cc****@nospamplease.eclipse.co.uk> wrote:

I have a field for a postcode. I'd like another field to auto contain an
'area' number, based on the first part (only) of the postcode. For example,
if a postcode LS4 4DJ was entered, another field would read the LS4 part and
enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap

[peterleeds]

On Mon, 01 Dec 2003 17:12:33 GMT, pe********@mcmail.com wrote:
Sorry did not notice the "enter '7' in that new field"
'Presuming that LS4 is 7 in your area's Table

Try this

Private Sub PostCode_AfterUpdate()

Dim strAreaCode As String
strAreaCode = Mid(PostCode, 1, InStr(PostCode, " ") - 1)
AreaCode = DLookup("Areacode", "tblAreas", "postcode ='" & strAreaCode
& "'")
End Sub

In the AfterUpdate event of the postcode field Try:-

Me.AreaCode = Mid(PostCode, 1, InStr(PostCode, " ") - 1)
On Mon, 1 Dec 2003 13:16:29 -0000, "Lapchien"
<cc****@nospamplease.eclipse.co.uk> wrote:

I have a field for a postcode. I'd like another field to auto contain an
'area' number, based on the first part (only) of the postcode. For example,
if a postcode LS4 4DJ was entered, another field would read the LS4 part and
enter '7' in that new field.

I have a table that contains an up to date list of just these first-part
postcodes...

Thanks,
Lap