Look up another table

[sinyce]

I have two tables:

CUSTOMER TABLE
CUSTID CCY AMOUNT TYPE
10001 USD 9.99 2
10002 CAD 8.88 99
10003 JPY 7.77 99

COUNTRY TABLE
CUSTID
10001
99999
88888
...

The TYPE in [CUSTOMER TABLE] is set to 99
unless the CUSTID is present in [COUNTRY TABLE]
then it is set to 2.

is there a way to do this with a DLookup? or an
Expression on the Query?

 

[hermanlaksko]

As you leave your CUSTID in your COUNTRY TABLE you could do a dlookup in coustomer tbl, something like this

Dim MyDb as Dao.Database
Dim IsThere as boolean
Set mydb=currentdb
IsThere = dlookup("CUSTID","coustomer","CUSTID=" & me!CUSTID)
if IsThere then
mydb.execute ("Update coustomer Set CUSTID=2 Where CUSTID=" & me!CUSTID)
end if
Should do the trick ;-)