Access Command button to look up and copy data from a query to a table

[Rafis]

Can someone assist me with a VBA code that does the following?

Given query "Query1" and Table "Table1" in an Access DB
I would like to create a command button to loop through Query1, lookup and match a field
lookup [Query1].[number]=[Table1].[number]
and then set [Table1].[length]=[Query1].[Tlength]
for all the numbers in Query1
Not all numbers in Table1 exist in Query1

(I previously had this implemented through relationships, however It give me issues when I needed to create new entries in Table1)