Sub бал1()
Dim баланс_металла As Recordset
Dim sqlStr As String
  sqlStr = "SELECT баланс_металла.[наименование] as naim1, остаток_вх.[наименование] as naim2, "
  sqlStr = sqlStr & " баланс_металла.[номном] as rdest, остаток_вх.[номном] as lsource "
  sqlStr = sqlStr & " FROM остаток_вх LEFT JOIN баланс_металла ON "
  sqlStr = sqlStr & " остаток_вх.[номном]= баланс_металла.[номном]"

  Set баланс_металла = CurrentDb.OpenRecordset(sqlStr, dbOpenDynaset)
  If Not баланс_металла.EOF Then
    Do While Not баланс_металла.EOF

      баланс_металла.Edit
      баланс_металла![naim1].Value = баланс_металла![naim2].Value
      баланс_металла.Update
      
      баланс_металла.MoveNext
    Loop

  End If
  баланс_металла.Close
  Set баланс_металла=Nothing
End Sub