AUTO POPULATE FIELD

[DantheDbaseMan]

I have two table as examples below:

DEALER_CODE DATA ENTRY
=========== ==========
DEALER_CODE DEALER_CODE
DEALER_NAME DEALER_NAME
REP_NAME REP_NAME <--Want auto populate with
REP_NAME in DEALER CODE table
when DEALER_NAME combo box
in DATA ENTRY is used.

 

[shmiller]

Can you give a little more detailed explanation. I'm not sure what you are trying to do.

 

[JoaoTL]

Try This

Dim varX Variant
varX = DLookup(&quot;[DEALER_NAME]&quot;, &quot;DEALER_CODE Table&quot;, &quot;MeFieldName = [DEALER_CODE ]&quot


If IsNull(varX) Then
?Not Found
Else
Me.Field = Varx
End If -------------------------
Regards
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt/Access

-------------------------

 

[JoaoTL]

Sorry,

On AfterUpdate() Event

Here you have a problem if the user dont change the data in the field, it not change anything


Or On Lost Focus() Event

Use this if you whant to Update the Field if the user lost is focus

Dim varX Variant
varX = DLookup(&quot;[DEALER_NAME]&quot;, &quot;DEALER_CODE Table&quot;, &quot;MeFieldNameCODE = [DEALER_CODE ]&quot


If IsNull(varX) Then
?Not Found
Else
Me.Field = Varx
End If -------------------------
Regards
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt/Access

-------------------------