在MS-ACCESS中使用“查找”表进行更新查询

Question

I have an Access Database with a table [tblManipulate] with the following four fields populated with data:

[tblManipulate].[Name] 
[tblManipulate].[Description] 
[tblManipulate].[Price]
[tblManipulate].[Account code]

I also have an 150 entry table of descriptions called [tblDescLookup] that needs to be utilized like a lookup table in order to manipulate account codes. Example entries follow:

[tblDescLookup].[Description Lookup]    [tblDescLookup].[Account Code Result]
*demonstration*                         10000
*coding*                                12000
*e-mail*                                13000

---

What is the best way to take every record in [tblManipulate] and check the [tblManipulate].[Description] field against [tblDescLookup].[Description Lookup], assigning the account code result into the original table if a 'like' match is found?

This seems to me like one of those instances where Access is not the best tool for the job, but it is what I have been instructed to use. I would appreciate any help or insight (or alternatives!). Thank you!

Answer 1

Something like this should do it for you.

Dim Description As String
Dim lookupDescription As String

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(SELECT * FROM tblManipulate) 

 If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst 'good habit

       Do Until rs.EOF = True


       Description = rs("Description")

       Dim rsLookUp As DAO.Recordset
       Set rsLookUp = CurrentDb.OpenRecordset(SELECT * FROM tblDescLookup) 


              If Not (rsLookUp .EOF And rsLookUp .BOF) Then
                      rsLookUp .MoveFirst 'good habit

                      Do Until rsLookUp.EOF = True

                      lookupDescription = rsLookUp("Description Lookup") 

                      If() Then    'match criteria
                       'assign value 
                      End if

                      rsLookUp.MoveNext
                      Loop

                     Else
                          MsgBox "No records in the recordset."
                      End If


              rs.MoveNext
            Loop


            Else
                MsgBox "No records in the recordset."
 End If

Answer 2

Oy. You're going to need a loop here. I would open up tblDescLookup in a recordset:

Set rec = CurrentDB.OpenRecordset ("Select * from tblDescLookup")

Then loop through each record and run the query that way:

Do While rec.EOF = False

    Set rec2 = CurrentDB.OpenRecordset ("Select * from rec where Description like '" & rec("Description Lookup") & "'")

    rec.MoveNext

Loop

Or maybe you need to make that an Update statement instead? I can't write that off the top of my head, but you get the idea.

Answer 3

Have you tried something like this?

Update tblManipulate as t1
Set [Account Code] = (Select [Account Code Result] from [tblDescLookup] where [Description Lookup] = t1.[Description])