Populate value 1

[qwerty70]

Dear All,

My frmDrawing is bound to a table called tblDrawing. frmDrawing have 2 fields, txtDwgNum and txtDescription. txtDwgNum is indexed and accepts duplicate entry. What I would like to happen is, if I enter any drawing number that is already existing in the tblDrawing, I want the Description to be automatically populated in my form. This is to save my time re-typing the whole description again. But if the drawing number does not exist, then I of course I need to type it.

Your help is highly appreciated.

qwerty70

 

[PHV]

Have a look here:

http://r937.com/relational.html

http://www.devshed.com/c/a/MySQL/Understanding-SQL-Joins

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

How are ya qwerty70 . . .

There's a big question here as far as your table structure is concerned (the same prompted [blue]PHV's post![/blue]).

In any case [blue]DLookup[/blue] should help. Copy/paste the following in the [blue]AfterUpdate[/blue] event of txtDwgNum:

[blue]   Dim Ans As String, Cri As String
   
   Cri = "[txtDwgNum] = [red][b]'[/b][/red]" & Me![txtDwgNum] & "[red][b]'[/b][/red]"
   Ans = Nz(DLookup("[txtDescription]", "tblDrawing", Cri), "")
   If Ans <> "" Then Me!txtDescription = Ans[/blue]

If txtDwgNum is numeric, remove the two single quotes in [red]red[/red] . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[qwerty70]

TheAceman1, thanks a lot. That's exactly what I'm looking for.

reqards,

qwerty70