Replacing ALL Null values in a Table

[jhlee2222]

I tried running it on another PC, got another error about locks being exceeded. I found there's a setting I could change in Access and now it appears to work like a charm. I am working with a huge number of records, so it's not surprising.



Thanks again ItsMe for all your help on what turned out to be a LOT of code!

[ItsMe]

Alternatively you could change the code in post #13 to open snapshot for the tblDefs and optimistic for the recordset the upates the tables.

Replace with using the following

Set rsFindField = CurrentDb.OpenRecordset("SELECT * FROM tblDefs " & _
                                          "WHERE([tblDefs].[TableName]) = '" & strTable & "'", dbOpenSnapshot)

and this one for the update

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [" & strTable & "]", dbOpenDynaset + dbOptimistic)