Question : URGENT - Programatically insert field in a Table

Combo 1 is a list of bad Customer table in tblCustomer1. The list was previously compile by someone else. I have inherited this DB and I aam now trying to normalize it. It contained duplicate names of customers with duplicated CustID and in some instances with skipped CustIDs in tblCustomer1.

tblCustomer1 was used in creating combo1 to fill the MainTable (TableA) containing all job transactions with the  Customers.

tblCustomer2 is a new table with unique Customer IDs that I recently created to replace tblCustomer1.

So what I will like to do is substitute the old Customer ID with the new Customer ID in all instances where the old Customer IDs existed in the Main Table (TableA). I have about 11 Mb of data already.

Old table                                                                        New Modified table
tblCustomer1                                                                  tblCustomer2

CustID   CustName (LastName, FirstName)                        CustID    CustName (LastName, FirstName)
  1         Doe, John                                                             1         Curt, Alice
  3         Doe, Jon                                                               2         Doe, John
  4        Curt, Alice                                                             3         Thomas, Jane
  6        Thomas, Jane                                                        4         Batman, Tom
  7         Batman, Tom

MainTableA
  TableID      PermitNo     JobDate        CustName   <----- tblCustomer1 was used in generating this TableA
   1               3422          01/12/02      Doe, John             (I now want to use the new CustName in tblCustomers)
   2               3567          02/15/03      Thomas, Jane       (to replace the old CustName in TableA)
   3               3765          02/23/03      Doe, John
   4               3645          02/24/03      Curt, Alice
   5               3346          02/25/03      Thomas, Jane
   6               4245          02/26/03      Doe, John
   
I can also create a new field in TableA and name it CustName2 field and then use tblCustomer2 CustIDs to insert or "substitute" all instances where the old CustName existed in TableA.

I will appreciate codes or SQL that will let me achieve this desired object programatically. Any help will be appreciated

Answer : URGENT - Programatically insert field in a Table

Presuming you mean that I use Numeric for the ID columns, and that you are using TEXT for the CustID1 and 2 in all three tables.

Then the SQL would be the same, except for adding one more condition at the end of the statement:

UPDATE (TableA INNER JOIN tblCustomer1 ON (TableA.CustID1=tblCustomer1.CustID1)) INNER JOIN tblCustomer2 ON (tblCustomer1.CustLName1=tblCustomer2.CustLName2 AND tblCustomer1.CustFName1=tblCustomer2.CustFName2) SET TableA.CustID2=tblCustomer2.CustID2 WHERE TableA.CustID1 IS NOT NULL AND TableA.CustID1 <> ''

And the code should be:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsOld As DAO.Recordset
Dim rsNew As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from TableA WHERE CustID1 IS NOT NULL AND CustID1 <> ''")

Do Until rs.EOF
   Set rsOld = db.OpenRecordset("SELECT CustLName1,CustFName1 FROM tblCustomer1 WHERE CustID1='" & rs!CustID1 & "'")
   Set rsNew = db.OpenRecordset("SELECT CustID2 FROM tblCustomer2 WHERE CustLName2='" & rsOld!CustLName1 & "' AND CustFName2='" & rsOld!CustFName1 & "'")
   If rsNew.RecordCount > 0 Then
      db.Execute "UPDATE TableA SET CustID2='" & rsNew!CustID2 & "' WHERE AppID=" & rs!AppID
           ' if AppID is also TEXT add apostroph after AppID= and also add one after rs!AppID
   End If
   rsOld.Close
   rsNew.Close
   rs.MoveNext
Loop
rs.Close

Set rs=Nothing
Set rsOld=Nothing
Set rsNew=Nothing