Loop Through Table

[toleafs]

Hi
Any help is greatly appreciated. What I would like to do is the following;

I have a table 'tblLRF' with a 'Field1Name' with over 150 records, I also have an unbound form called 'frmBuild' that contains an unbound text field (txtReport) as well a a Button that when click runs macros to populate other tables in the database based on the 'txtReport' field in the form. What happens now is that one by one I need to populate the 'txtReport' field in the form and click the button. Is there a way to automatically populate the 'txtReport' field with the record in 'tblLRF' and run the macros and have it cylcle through the table until all records have been completed?

Hope this makes sense. Thanks in advance for your help.

 

[UncleCatwoman]

I use DAO but you can use ADO too. Make sure your database has the appropriate references.

' declare variables
Dim dbMe as Database
Dim rsLRF as DAO.Recordset

' open recordset
Set dbMe = CurrentDb
Set rsLRF + dbMe.OpenRecordset("tblLRF")

' loop through and run the macro for each value in the table
With rsLRF
.MoveFirst
Do Until .EOF
' assuming this code is being run from frmBuild ...
' put the value in the text box
[txtReport] = !Field1Name
' and run the macros
DoCmd.RunDataMacro(MacroName)
' move to the next record
.MoveNext
Loop
End With

' deallocate recordset objects
Set rsLFR = Nothing
Set dbMe = Nothing

Hope this helps!

UC

 

[toleafs]

Perfect, will try it out. Thanks