Display value in text box related to value in another textbox on clicking navigation

[saleemsadique]

I have a table by name customer
fields :
Fields name Data Type
customer id auto number
fname text
lname text
referred number

each customer is referred by another customer

when I navigate by next or previous button I should get the name of referrer displayed in referrer's name text box related to referred customer id
I tried writing n number of events however I want to know how can it be focusing to the referred ID combobox. i have attached my sample database please help me to resolve this issue


Thanks in Advance

[Missinglinq]

First off, go into Table Design View and delete the 0 from the Default Value for the Field named referred. Best to do this by hi-lighting it and hitting Delete.

If I understand your question correctly, use this code in the Form’s Code Module

Private Sub Form_Current()
 
 Dim LN As String
 Dim FN As String
 
 If Not Me.NewRecord Then

  LN = DLookup("lname", "customer", "customer_ID = " & Me.Combo7)
  FN = DLookup("fname", "customer", "customer_ID = " & Me.Combo7)
  Me.Text9 = LN & "  " & FN
 
 Else
  
  Me.Text9 = Null
 
 End If

End Sub

If you want the referrer's name to appear immediately after selecting the ID from the Combobox, use this:

Private Sub Combo7_AfterUpdate()
 
 Dim LN As String
 Dim FN As String
 
  LN = DLookup("lname", "customer", "customer_ID = " & Me.Combo7)
  FN = DLookup("fname", "customer", "customer_ID = " & Me.Combo7)
  Me.Text9 = LN & "  " & FN
 
End Sub

Linq ;0)>

[pbaldy]

Can't look at the sample right now, but does this help?

http://www.baldyweb.com/Autofill.htm

[saleemsadique]

Thanks Missinglinq zillions times
your first code resolved my issue
past 2 weeks i was scratching my head
hope to catch u till i finish my project
Thanks Again..

[Missinglinq]

Glad we could help!

Welcome to the forum!

Linq ;0)>

[pbaldy]

I would have avoided the 2 extra trips to the data, but that's me.

[Missinglinq]

I would have, too, Paul! But when working with newbies, I tend to work with what they already have! And most of them aren't working with apps that are big enough to suffer from an extra trip to the data, given the speed of today's PCs!

Now, when I was a young lad...and we had 20 mb hard drives...

Linq ;0)>